[freeside-commits] freeside/fs_selfservice/FS-SelfService/cgi selfservice.cgi, 1.21.2.8, 1.21.2.9

Jeff Finucane,420,, jeff at wavetail.420.am
Wed Aug 26 13:55:31 PDT 2009


Update of /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi
In directory wavetail.420.am:/tmp/cvs-serv7701

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	selfservice.cgi 
Log Message:
improve testing need for invoicing list

Index: selfservice.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi/selfservice.cgi,v
retrieving revision 1.21.2.8
retrieving revision 1.21.2.9
diff -u -d -r1.21.2.8 -r1.21.2.9
--- selfservice.cgi	26 Aug 2009 00:45:36 -0000	1.21.2.8
+++ selfservice.cgi	26 Aug 2009 20:55:29 -0000	1.21.2.9
@@ -157,13 +157,18 @@
 
 sub process_change_pay {
         my $postal = $cgi->param( 'postal_invoicing' );
+        my $payby  = $cgi->param( 'payby' );
         my @list =
           qw( payby payinfo payinfo1 payinfo2 month year payname
               address1 address2 city county state zip country auto paytype
               paystate ss stateid stateid_state invoicing_list
             );
         push @list, 'postal_invoicing' if $postal;
-        unless ( $postal || $cgi->param( 'invoicing_list' ) ) {
+        unless (    $payby ne 'BILL'
+                 || $postal
+                 || $cgi->param( 'invoicing_list' )
+               )
+        {
           $action = 'change_pay';
           return {
             %{&change_pay()},



More information about the freeside-commits mailing list