From: ivan Date: Wed, 26 Dec 2001 05:19:01 +0000 (+0000) Subject: expedited check entry X-Git-Tag: freeside_1_4_0pre11~157 X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=f91771606ce8a2bb4f2fa44e7bf54c9b7c945db6 expedited check entry --- diff --git a/httemplate/edit/cust_pay.cgi b/httemplate/edit/cust_pay.cgi index 7f70802c3..38654e98d 100755 --- a/httemplate/edit/cust_pay.cgi +++ b/httemplate/edit/cust_pay.cgi @@ -1,8 +1,8 @@ <% -# +# use strict; -use vars qw( $cgi $link $linknum $p1 $_date $payby $payinfo $paid ); +use vars qw( $cgi $link $linknum $p1 $_date $payby $payinfo $paid $quickpay ); use Date::Format; use CGI; use CGI::Carp qw(fatalsToBrowser); @@ -21,6 +21,7 @@ if ( $cgi->param('error') ) { $paid = $cgi->param('paid'); $payby = $cgi->param('payby'); $payinfo = $cgi->param('payinfo'); + $quickpay = $cgi->param('quickpay'); } elsif ($cgi->keywords) { my($query) = $cgi->keywords; $query =~ /^(\d+)$/; @@ -29,12 +30,14 @@ if ( $cgi->param('error') ) { $paid = ''; $payby = 'BILL'; $payinfo = ""; + $quickpay = ''; } elsif ( $cgi->param('custnum') =~ /^(\d+)$/ ) { $link = 'custnum'; $linknum = $1; $paid = ''; $payby = 'BILL'; $payinfo = ''; + $quickpay = $cgi->param('quickpay'); } else { die "illegal query ". $cgi->keywords; } @@ -51,6 +54,7 @@ print < + END my $custnum; diff --git a/httemplate/edit/process/cust_pay.cgi b/httemplate/edit/process/cust_pay.cgi index b2b3602db..630e8fc1b 100755 --- a/httemplate/edit/process/cust_pay.cgi +++ b/httemplate/edit/process/cust_pay.cgi @@ -1,5 +1,5 @@ <% -# +# use strict; use vars qw( $cgi $link $linknum $new $error ); @@ -43,7 +43,11 @@ if ($error) { or die "unknown custnum $linknum"; $cust_main->apply_payments; } - print $cgi->redirect(popurl(3). "view/cust_main.cgi?$linknum"); + if ( $cgi->param('quickpay') eq 'yes' ) { + print $cgi->redirect(popurl(3). "search/cust_main-quickpay.html"); + } else { + print $cgi->redirect(popurl(3). "view/cust_main.cgi?$linknum"); + } } %> diff --git a/httemplate/index.html b/httemplate/index.html index 85912c24f..dcf513703 100644 --- a/httemplate/index.html +++ b/httemplate/index.html @@ -26,7 +26,7 @@
  • accounts (by username)
  • domains (by domain) -
  • mail forwards (by ?) +
  • invoices (by invoice number)
  • Browse @@ -62,6 +62,10 @@
  • Job queue
  • Pending credit card batch +
  • Miscellaneous +
      diff --git a/httemplate/search/cust_main-payinfo.html b/httemplate/search/cust_main-payinfo.html index 47bb83cbd..671b5ef08 100755 --- a/httemplate/search/cust_main-payinfo.html +++ b/httemplate/search/cust_main-payinfo.html @@ -2,8 +2,8 @@ Customer Search - - + + Customer Search
      diff --git a/httemplate/search/cust_main-quickpay.html b/httemplate/search/cust_main-quickpay.html new file mode 100755 index 000000000..3f0ba0412 --- /dev/null +++ b/httemplate/search/cust_main-quickpay.html @@ -0,0 +1,37 @@ + + + Quick payment entry + + + + Quick payment entry + +

      +
      + + Search for last name: + + using search method: + +

      Search for company: + + using search methods: + +

      Note: Fuzzy searching can take a while. Please be patient. + +

      + +
      Explanation of search methods: +
        +
      • Fuzzy - Searches for matches that are close to your text. +
      • Exact - Finds exact matches only, but much faster than the other search methods. +
      + + + diff --git a/httemplate/search/cust_main.cgi b/httemplate/search/cust_main.cgi index b9b1d1fb2..4d3ec3564 100755 --- a/httemplate/search/cust_main.cgi +++ b/httemplate/search/cust_main.cgi @@ -1,5 +1,5 @@ <% -# +# use strict; #use vars qw( $conf %ncancelled_pkgs %all_pkgs $cgi @cust_main $sortby ); @@ -154,7 +154,11 @@ if ( $conf->exists('hidecancelledpackages' ) ) { #%all_pkgs = (); if ( scalar(@cust_main) == 1 && ! $cgi->param('referral_custnum') ) { - print $cgi->redirect(popurl(2). "view/cust_main.cgi?". $cust_main[0]->custnum); + if ( $cgi->param('quickpay') eq 'yes' ) { + print $cgi->redirect(popurl(2). "edit/cust_pay.cgi?quickpay=yes;custnum=". $cust_main[0]->custnum); + } else { + print $cgi->redirect(popurl(2). "view/cust_main.cgi?". $cust_main[0]->custnum); + } exit; } elsif ( scalar(@cust_main) == 0 ) { eidiot "No matching customers found!\n"; @@ -282,7 +286,12 @@ END } #my($rowspan) = scalar(@{$all_pkgs{$custnum}}); - my $view = $p. 'view/cust_main.cgi?'. $custnum; + my $view; + if ( defined $cgi->param('quickpay') && $cgi->param('quickpay') eq 'yes' ) { + $view = $p. 'edit/cust_pay.cgi?quickpay=yes;custnum='. $custnum; + } else { + $view = $p. 'view/cust_main.cgi?'. $custnum; + } print < $custnum diff --git a/httemplate/search/cust_main.html b/httemplate/search/cust_main.html index 12796c7b2..1e91adee9 100755 --- a/httemplate/search/cust_main.html +++ b/httemplate/search/cust_main.html @@ -6,7 +6,7 @@ Customer Search -
      +

      Search for last name: