first part of ACL and re-skinning work and some other small stuff
[freeside.git] / httemplate / search / cust_pay.cgi
index 9b9458e..99ffc3d 100755 (executable)
@@ -17,7 +17,7 @@
      
        if ( $cgi->param('payby') ) {
          $cgi->param('payby') =~
-           /^(CARD|CHEK|BILL|PREP|CASH|WEST)(-(VisaMC|Amex|Discover|Maestro))?$/
+           /^(CARD|CHEK|BILL|PREP|CASH|WEST|MCRD)(-(VisaMC|Amex|Discover|Maestro))?$/
              or die "illegal payby ". $cgi->param('payby');
          push @search, "cust_pay.payby = '$1'";
          if ( $3 ) {
@@ -51,8 +51,9 @@
                " ) ";
            } elsif ( $3 eq 'Discover' ) {
              push @search,
-               "    substring(cust_pay.payinfo from 1 for 4 ) = '6011'  ".
-               " OR substring(cust_pay.payinfo from 1 for 3 ) = '650'   ";
+               " (    substring(cust_pay.payinfo from 1 for 4 ) = '6011'  ".
+               "   OR substring(cust_pay.payinfo from 1 for 3 ) = '650'   ".
+               " ) ";
            } elsif ( $3 eq 'Maestro' ) { 
              push @search,
                " (    substring(cust_pay.payinfo from 1 for 2 ) = '63'     ".
                        'Cash '. $cust_pay->payinfo;
                      } elsif ( $cust_pay->payby eq 'WEST' ) {
                        'Western Union'; #. $cust_pay->payinfo;
+                     } elsif ( $cust_pay->payby eq 'MCRD' ) {
+                       'Manual credit card'; #. $cust_pay->payinfo;
                      } else {
                        $cust_pay->payby. ' '. $cust_pay->payinfo;
                      }