fix check# search
authorivan <ivan>
Tue, 26 Jun 2007 18:58:22 +0000 (18:58 +0000)
committerivan <ivan>
Tue, 26 Jun 2007 18:58:22 +0000 (18:58 +0000)
httemplate/search/cust_pay.cgi

index 6215b4b..0eefd2b 100755 (executable)
@@ -154,6 +154,12 @@ if ( $cgi->param('magic') ) {
       }
     }
 
+    if ( $cgi->param('payinfo') ) {
+      $cgi->param('payinfo') =~ /^\s*(\d+)\s*$/
+        or die "illegal payinfo ". $cgi->param('payinfo');
+      push @search, "cust_pay.payinfo = '$1'";
+    }
+
     my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi);
     push @search, "_date >= $beginning ",
                   "_date <= $ending";
@@ -198,6 +204,8 @@ if ( $cgi->param('magic') ) {
 
 } else {
 
+  #hmm... is this still used?
+
   $cgi->param('payinfo') =~ /^\s*(\d+)\s*$/ or die "illegal payinfo";
   my $payinfo = $1;