[freeside-commits] freeside/fs_selfservice/FS-SelfService/cgi bill.html, 1.2, 1.3 selfservice.cgi, 1.28, 1.29

Jeff Finucane,420,, jeff at wavetail.420.am
Tue Sep 30 13:17:45 PDT 2008


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

Modified Files:
	bill.html selfservice.cgi 
Log Message:
turn on and off postal billing from self-service

Index: selfservice.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi/selfservice.cgi,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -d -r1.28 -r1.29
--- selfservice.cgi	23 Jan 2008 19:18:39 -0000	1.28
+++ selfservice.cgi	30 Sep 2008 20:17:43 -0000	1.29
@@ -140,7 +140,7 @@
 sub process_change_bill {
         _process_change_info( 'change_bill', 
           qw( first last company address1 address2 city state
-              county state zip country daytime night fax )
+              county zip country daytime night fax )
         );
 }
 
@@ -157,11 +157,22 @@
 }
 
 sub process_change_pay {
-        _process_change_info( 'change_pay', 
+        my $postal = $cgi->param( 'postal_invoicing' );
+        my @list =
           qw( payby payinfo payinfo1 payinfo2 month year payname
               address1 address2 city county state zip country auto paytype
-              paystate ss stateid stateid_state )
-        );
+              paystate ss stateid stateid_state invoicing_list
+            );
+        push @list, 'postal_invoicing' if $postal;
+        unless ( $postal || $cgi->param( 'invoicing_list' ) ) {
+          $action = 'change_pay';
+          return {
+            %{&change_pay()},
+            $cgi->Vars,
+            'error' => '<FONT COLOR="#FF0000">Postal or email required.</FONT>',
+          };
+        }
+        _process_change_info( 'change_pay', @list );
 }
 
 sub view_invoice {

Index: bill.html
===================================================================
RCS file: /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi/bill.html,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- bill.html	23 Jan 2008 19:18:37 -0000	1.2
+++ bill.html	30 Sep 2008 20:17:42 -0000	1.3
@@ -4,4 +4,12 @@
 </TR><TR>
   <TD ALIGN="right">Attention</TD>
   <TD><INPUT TYPE="text" SIZE=32 MAXLENGTH=80 NAME="payname" VALUE="<%=$payname%>"></TD>
+</TR><TR>
+  <TD><INPUT TYPE="checkbox" NAME="postal_invoicing" VALUE="POST" <%=
+    $postal_invoicing ? 'CHECKED' : ''
+    %>></TD>
+  <TD>Postal mail invoice</TD>
+</TR><TR>
+  <TD>Email address(es)</TD>
+  <TD><INPUT TYPE="text" NAME="invoicing_list" VALUE="<%= join(',', $invoicing_list ) %>"></TD>
 </TR>



More information about the freeside-commits mailing list