(I)LIKE-Argumente immer mit Funktion SL::DBUtils::like erstellen

[mfinanz.git] / SL / IC.pm

diff --git a/SL/IC.pm b/SL/IC.pm
index 8341f1888b56caf37d04a6875ef19e741f10cd05..8f265029f2c587894dfc89f1ab29e542b045d136 100644 (file)
--- a/SL/IC.pm
+++ b/SL/IC.pm
@@ -878,7 +878,7 @@ sub all_parts {
   if ($form->{all}) {
     $form->{"l_$_"} = 1 for qw(partnumber description unit sellprice lastcost cvar_packaging linetotal);
     push @where_tokens, "p.partnumber ILIKE ? OR p.description ILIKE ?";
   if ($form->{all}) {
     $form->{"l_$_"} = 1 for qw(partnumber description unit sellprice lastcost cvar_packaging linetotal);
     push @where_tokens, "p.partnumber ILIKE ? OR p.description ILIKE ?";

-    push @bind_vars,    "%$form->{all}%", "%$form->{all}%";
+    push @bind_vars,    (like($form->{all})) x 2;

   }
 
   # special case insertdate
   }
 
   # special case insertdate


@@ -1342,7 +1342,7 @@ sub create_links {
   # connect to database
   my $dbh = $form->get_standard_dbh;
 
   # connect to database
   my $dbh = $form->get_standard_dbh;
 

-  my @values = ('%' . $module . '%');
+  my @values = like($module);

   my $query;
 
   if ($form->{id}) {
   my $query;
 
   if ($form->{id}) {