diff options
Diffstat (limited to 'httemplate/edit/process/svc_acct_sm.cgi')
| -rwxr-xr-x | httemplate/edit/process/svc_acct_sm.cgi | 21 |
1 files changed, 5 insertions, 16 deletions
diff --git a/httemplate/edit/process/svc_acct_sm.cgi b/httemplate/edit/process/svc_acct_sm.cgi index 10afcc1f9..25cd88d5a 100755 --- a/httemplate/edit/process/svc_acct_sm.cgi +++ b/httemplate/edit/process/svc_acct_sm.cgi @@ -1,34 +1,23 @@ +<!-- $Id: svc_acct_sm.cgi,v 1.3 2002-01-30 14:18:09 ivan Exp $ --> <% -#<!-- $Id: svc_acct_sm.cgi,v 1.2 2001-08-21 02:31:56 ivan Exp $ --> - -use strict; -use vars qw( $cgi $svcnum $old $new $error ); -use CGI; -use CGI::Carp qw(fatalsToBrowser); -use FS::UID qw(cgisuidsetup); -use FS::Record qw(qsearchs fields); -use FS::svc_acct_sm; -use FS::CGI qw(popurl); - -$cgi = new CGI; -cgisuidsetup($cgi); $cgi->param('svcnum') =~ /^(\d*)$/ or die "Illegal svcnum!"; -$svcnum =$1; +my $svcnum =$1; -$old = qsearchs('svc_acct_sm',{'svcnum'=>$svcnum}) if $svcnum; +my $old = qsearchs('svc_acct_sm',{'svcnum'=>$svcnum}) if $svcnum; #unmunge domsvc and domuid #$cgi->param('domsvc',(split(/:/, $cgi->param('domsvc') ))[0] ); #$cgi->param('domuid',(split(/:/, $cgi->param('domuid') ))[0] ); -$new = new FS::svc_acct_sm ( { +my $new = new FS::svc_acct_sm ( { map { ($_, scalar($cgi->param($_))); #} qw(svcnum pkgnum svcpart domuser domuid domsvc) } ( fields('svc_acct_sm'), qw( pkgnum svcpart ) ) } ); +my $error = ''; if ( $svcnum ) { $error = $new->replace($old); } else { |