diff options
| author | ivan <ivan> | 2002-04-12 15:14:58 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-04-12 15:14:58 +0000 |
| commit | 81faa8d34d1287a61fd723d73ab02a022cf5d050 (patch) | |
| tree | 94734a4b14fa9337535471bc316ceedeb27361c0 /httemplate | |
| parent | e6ea57971831f25d682d97a0ba508c39b66ecd8b (diff) | |
fudge up FS::cust_pkg::order ("Order and cancel packages") to try to move
services between svcparts as a last resort...
Diffstat (limited to 'httemplate')
| -rwxr-xr-x | httemplate/edit/cust_pkg.cgi | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/httemplate/edit/cust_pkg.cgi b/httemplate/edit/cust_pkg.cgi index d546f7409..485d601eb 100755 --- a/httemplate/edit/cust_pkg.cgi +++ b/httemplate/edit/cust_pkg.cgi @@ -3,7 +3,16 @@ my %pkg = (); my %comment = (); -foreach (qsearch('part_pkg', { 'disabled' => '' })) { +my %all_pkg = (); +my %all_comment = (); +#foreach (qsearch('part_pkg', { 'disabled' => '' })) { +# $pkg{ $_ -> getfield('pkgpart') } = $_->getfield('pkg'); +# $comment{ $_ -> getfield('pkgpart') } = $_->getfield('comment'); +#} +foreach (qsearch('part_pkg', {} )) { + $all_pkg{ $_ -> getfield('pkgpart') } = $_->getfield('pkg'); + $all_comment{ $_ -> getfield('pkgpart') } = $_->getfield('comment'); + next if $_->disabled; $pkg{ $_ -> getfield('pkgpart') } = $_->getfield('pkg'); $comment{ $_ -> getfield('pkgpart') } = $_->getfield('comment'); } @@ -46,7 +55,7 @@ END my($pkgnum,$pkgpart)=( $_->getfield('pkgnum'), $_->getfield('pkgpart') ); print qq!<TD><INPUT TYPE="checkbox" NAME="remove_pkg" VALUE="$pkgnum"!; print " CHECKED" if $remove_pkg{$pkgnum}; - print qq!>$pkgnum: $pkg{$pkgpart} - $comment{$pkgpart}</TD>\n!; + print qq!>$pkgnum: $all_pkg{$pkgpart} - $all_comment{$pkgpart}</TD>\n!; $count ++ ; if ($count == 2) { |