X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_main.cgi;h=bb2a8618eb2b0861f44b938ed231f772299efac2;hp=bfe4a2d4f50bc04a1081b5dc7ee8053041cf33a9;hb=2c757d7db4cb6a7b9655de13206fcc84fb7ce61f;hpb=85be0d954dbe4a2c86841a37dc6a4df690dd5142 diff --git a/httemplate/edit/cust_main.cgi b/httemplate/edit/cust_main.cgi index bfe4a2d4f..bb2a8618e 100755 --- a/httemplate/edit/cust_main.cgi +++ b/httemplate/edit/cust_main.cgi @@ -1,4 +1,3 @@ - <% #for misplaced logic below @@ -18,6 +17,7 @@ my $conf = new FS::Conf; my $error = ''; my($custnum, $username, $password, $popnum, $cust_main, $saved_pkgpart); my(@invoicing_list); +my $same = ''; if ( $cgi->param('error') ) { $error = $cgi->param('error'); $cust_main = new FS::cust_main ( { @@ -34,6 +34,8 @@ if ( $cgi->param('error') ) { $password = $cgi->param('_password'); $popnum = $cgi->param('popnum'); @invoicing_list = split( /\s*,\s*/, $cgi->param('invoicing_list') ); + $same = $cgi->param('same'); + $cust_main->setfield('paid' => $cgi->param('paid')) if $cgi->param('paid'); } elsif ( $cgi->keywords ) { #editing my( $query ) = $cgi->keywords; $query =~ /^(\d+)$/; @@ -64,20 +66,27 @@ if ( $cgi->param('error') ) { $cgi->delete_all(); my $action = $custnum ? 'Edit' : 'Add'; -# top +%> + + + +<%= include('/elements/header.html', + "Customer $action", + '', + ' onUnload="myclose()"' +) %> -my $p1 = popurl(1); -print header("Customer $action", '', ' onUnload="myclose()"'); -print qq!Error: !, $error, "" - if $error; +<% if ( $error ) { %> +Error: <%= $error %> +<% } %> -print qq!