]> wagnertech.de Git - mfinanz.git/blobdiff - SL/IC.pm
epic-ts
[mfinanz.git] / SL / IC.pm
index 5b5c92add8d939bda042ec30e8eacc233f42ca61..a2a0a86a8b7b77fad4edcc8865c1725778ba9234 100644 (file)
--- a/SL/IC.pm
+++ b/SL/IC.pm
@@ -37,7 +37,6 @@ package IC;
 
 use Data::Dumper;
 use List::MoreUtils qw(all any uniq);
-use YAML;
 
 use SL::CVar;
 use SL::DBUtils;
@@ -314,11 +313,11 @@ sub all_parts {
 
   # special case smart search
   if ($form->{all}) {
-    $form->{"l_$_"}       = 1 for qw(partnumber description unit sellprice lastcost cvar_packaging linetotal);
-    $form->{l_service}    = 1 if($form->{searchitems} eq 'service' || $form->{searchitems} eq '');
-    $form->{l_assembly}   = 1 if($form->{searchitems} eq 'assembly' || $form->{searchitems} eq '');
-    $form->{l_part}       = 1 if($form->{searchitems} eq 'part' || $form->{searchitems} eq '');
-    $form->{l_assortment} = 1 if($form->{searchitems} eq 'assortment' || $form->{searchitems} eq '');
+    $form->{"l_$_"}       = 1 for qw(partnumber description unit sellprice lastcost linetotal);
+    $form->{l_service}    = 1 if $form->{searchitems} eq 'service'    || $form->{searchitems} eq '';
+    $form->{l_assembly}   = 1 if $form->{searchitems} eq 'assembly'   || $form->{searchitems} eq '';
+    $form->{l_part}       = 1 if $form->{searchitems} eq 'part'       || $form->{searchitems} eq '';
+    $form->{l_assortment} = 1 if $form->{searchitems} eq 'assortment' || $form->{searchitems} eq '';
     push @where_tokens, "p.partnumber ILIKE ? OR p.description ILIKE ?";
     push @bind_vars,    (like($form->{all})) x 2;
   }
@@ -954,24 +953,4 @@ sub prepare_parts_for_printing {
   return %template_arrays;
 }
 
-sub normalize_text_blocks {
-  $main::lxdebug->enter_sub();
-
-  my $self     = shift;
-  my %params   = @_;
-
-  my $form     = $params{form}     || $main::form;
-
-  # check if feature is enabled (select normalize_part_descriptions from defaults)
-  return unless ($::instance_conf->get_normalize_part_descriptions);
-
-  foreach (qw(description notes)) {
-    $form->{$_} =~ s/\s+$//s;
-    $form->{$_} =~ s/^\s+//s;
-    $form->{$_} =~ s/ {2,}/ /g;
-  }
-   $main::lxdebug->leave_sub();
-}
-
-
 1;