X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fprocess%2Fcust_pkg.cgi;h=25b82675883a09aae1e8619c200e52af502ed9ce;hb=8e2487662e3555c1efbb7b8ed90e4bda0f8b6cd2;hp=df8471c27b792dc37cc82d7ffe0a59b9256ea9b1;hpb=5fc8c5edf574ab024d4646914b6432d458e2ffbd;p=freeside.git diff --git a/httemplate/edit/process/cust_pkg.cgi b/httemplate/edit/process/cust_pkg.cgi index df8471c27..25b826758 100755 --- a/httemplate/edit/process/cust_pkg.cgi +++ b/httemplate/edit/process/cust_pkg.cgi @@ -1,4 +1,21 @@ -<% +% if ($error) { +% $cgi->param('error', $error); +% $cgi->redirect(popurl(3). $error_redirect. '?'. $cgi->query_string ); +% } elsif ( $action eq 'change' ) { + + <% header("Package changed") %> + + + + +% } elsif ( $action eq 'bulk' ) { +% $cgi->redirect(popurl(3). "view/cust_main.cgi?$custnum"); +% } else { +% die "guru exception #5: action is neither change nor bulk!"; +% } +<%init> my $error = ''; @@ -11,12 +28,14 @@ my @remove_pkgnums = map { $1; } $cgi->param('remove_pkg'); -my $error_redirect; -my @pkgparts; +my( $action, $error_redirect ); +my @pkgparts = (); if ( $cgi->param('new_pkgpart') =~ /^(\d+)$/ ) { #came from misc/change_pkg.cgi + $action = 'change'; $error_redirect = "misc/change_pkg.cgi"; @pkgparts = ($1); } else { #came from edit/cust_pkg.cgi + $action = 'bulk'; $error_redirect = "edit/cust_pkg.cgi"; foreach my $pkgpart ( map /^pkg(\d+)$/ ? $1 : (), $cgi->param ) { if ( $cgi->param("pkg$pkgpart") =~ /^(\d+)$/ ) { @@ -33,11 +52,4 @@ if ( $cgi->param('new_pkgpart') =~ /^(\d+)$/ ) { #came from misc/change_pkg.cgi $error ||= FS::cust_pkg::order($custnum,\@pkgparts,\@remove_pkgnums); -if ($error) { - $cgi->param('error', $error); - print $cgi->redirect(popurl(3). $error_redirect. '?'. $cgi->query_string ); -} else { - print $cgi->redirect(popurl(3). "view/cust_main.cgi?$custnum"); -} - -%> +