diff options
author | ivan <ivan> | 1999-01-25 12:19:11 +0000 |
---|---|---|
committer | ivan <ivan> | 1999-01-25 12:19:11 +0000 |
commit | cd6989b0380bb289bffac0b947a3bfa6eb8c773e (patch) | |
tree | a03a1170bbf7fa84ff4d4001b38a5ad2782b7ff4 /htdocs/edit/process/cust_pkg.cgi | |
parent | 6e5eed5d49163fdb06f16c735ab43486c047011d (diff) |
yet more mod_perl stuff
Diffstat (limited to 'htdocs/edit/process/cust_pkg.cgi')
-rwxr-xr-x | htdocs/edit/process/cust_pkg.cgi | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/htdocs/edit/process/cust_pkg.cgi b/htdocs/edit/process/cust_pkg.cgi index e8493b2de..639b2f140 100755 --- a/htdocs/edit/process/cust_pkg.cgi +++ b/htdocs/edit/process/cust_pkg.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: cust_pkg.cgi,v 1.3 1999-01-19 05:13:54 ivan Exp $ +# $Id: cust_pkg.cgi,v 1.4 1999-01-25 12:19:10 ivan Exp $ # # this is for changing packages around, not for editing things within the # package @@ -21,7 +21,10 @@ # bmccane@maxbaud.net 98-apr-3 # # $Log: cust_pkg.cgi,v $ -# Revision 1.3 1999-01-19 05:13:54 ivan +# Revision 1.4 1999-01-25 12:19:10 ivan +# yet more mod_perl stuff +# +# Revision 1.3 1999/01/19 05:13:54 ivan # for mod_perl: no more top-level my() variables; use vars instead # also the last s/create/new/; # @@ -60,7 +63,8 @@ foreach $pkgpart ( map /^pkg(\d+)$/ ? $1 : (), $cgi->param ) { $error = FS::cust_pkg::order($custnum,\@pkgparts,\@remove_pkgnums); if ($error) { - idiot($error); + $cgi->param('error', $error); + print $cgi->redirect(popurl(2). "cust_pkg.cgi?". $cgi->query_string ); } else { print $cgi->redirect(popurl(3). "view/cust_main.cgi?$custnum#cust_pkg"); } |