diff options
Diffstat (limited to 'htdocs/misc')
| -rwxr-xr-x | htdocs/misc/cancel-unaudited.cgi | 11 | ||||
| -rwxr-xr-x | htdocs/misc/process/link.cgi | 11 |
2 files changed, 14 insertions, 8 deletions
diff --git a/htdocs/misc/cancel-unaudited.cgi b/htdocs/misc/cancel-unaudited.cgi index b8729440f..d54674660 100755 --- a/htdocs/misc/cancel-unaudited.cgi +++ b/htdocs/misc/cancel-unaudited.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: cancel-unaudited.cgi,v 1.4 1999-01-19 05:14:03 ivan Exp $ +# $Id: cancel-unaudited.cgi,v 1.5 1999-02-07 09:59:34 ivan Exp $ # # Usage: cancel-unaudited.cgi svcnum # http://server.name/path/cancel-unaudited.cgi pkgnum @@ -18,7 +18,10 @@ # bmccane@maxbaud.net 98-apr-3 # # $Log: cancel-unaudited.cgi,v $ -# Revision 1.4 1999-01-19 05:14:03 ivan +# Revision 1.5 1999-02-07 09:59:34 ivan +# more mod_perl fixes, and bugfixes Peter Wemm sent via email +# +# Revision 1.4 1999/01/19 05:14:03 ivan # for mod_perl: no more top-level my() variables; use vars instead # also the last s/create/new/; # @@ -48,7 +51,7 @@ $query =~ /^(\d+)$/; $svcnum = $1; $svc_acct = qsearchs('svc_acct',{'svcnum'=>$svcnum}); -&eidiot("Unknown svcnum!") unless $svc_acct; +die "Unknown svcnum!" unless $svc_acct; $cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum}); &eidiot(qq!This account has already been audited. Cancel the @@ -70,5 +73,5 @@ $error = $svc_acct->delete; $error = $cust_svc->delete; &eidiot($error) if $error; -$cgi->redirect(popurl(2)); +print $cgi->redirect(popurl(2)); diff --git a/htdocs/misc/process/link.cgi b/htdocs/misc/process/link.cgi index c20b47373..808299415 100755 --- a/htdocs/misc/process/link.cgi +++ b/htdocs/misc/process/link.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: link.cgi,v 1.3 1999-01-19 05:14:10 ivan Exp $ +# $Id: link.cgi,v 1.4 1999-02-07 09:59:35 ivan Exp $ # # ivan@voicenet.com 97-feb-5 # @@ -12,7 +12,10 @@ # can also link on some other fields now (about time) ivan@sisd.com 98-jun-24 # # $Log: link.cgi,v $ -# Revision 1.3 1999-01-19 05:14:10 ivan +# Revision 1.4 1999-02-07 09:59:35 ivan +# more mod_perl fixes, and bugfixes Peter Wemm sent via email +# +# Revision 1.3 1999/01/19 05:14:10 ivan # for mod_perl: no more top-level my() variables; use vars instead # also the last s/create/new/; # @@ -24,7 +27,7 @@ use strict; use vars qw ( $cgi $old $new $error ); use CGI; use CGI::Carp qw(fatalsToBrowser); -use FS::CGI qw(popurlidiot); +use FS::CGI qw(popurl idiot); use FS::UID qw(cgisuidsetup); use FS::cust_svc; use FS::Record qw(qsearchs); @@ -41,7 +44,7 @@ unless ( $svcnum ) { my($svcdb) = $part_svc->getfield('svcdb'); $cgi->param('link_field') =~ /^(\w+)$/; my($link_field)=$1; my($svc_acct)=qsearchs($svcdb,{$link_field => $cgi->param('link_value') }); - idiot("$link_field not found!") unless $svc_acct; + eidiot("$link_field not found!") unless $svc_acct; $svcnum=$svc_acct->svcnum; } |