diff options
| author | ivan <ivan> | 2002-02-10 13:21:31 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-02-10 13:21:31 +0000 |
| commit | 22a35047ecdffff80110e06cc08fc84f9ddba9b0 (patch) | |
| tree | 5a9db14bebc973ba6effb8407b08d10c33807bbe /httemplate/edit/process/part_pkg.cgi | |
| parent | b4bce0bf487b4ee3620e13f1fdf56ecc1d001a42 (diff) | |
removed <!-- $Id$ --> from all files to fix any redirects, whew
Mason handler.pl overrides CGI::redirect
fixed strict; problems in edit/part_pkg.cgi & edit/process/part_pkg.cgi
Diffstat (limited to 'httemplate/edit/process/part_pkg.cgi')
| -rwxr-xr-x | httemplate/edit/process/part_pkg.cgi | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/httemplate/edit/process/part_pkg.cgi b/httemplate/edit/process/part_pkg.cgi index 9ad1527a1..d489426f9 100755 --- a/httemplate/edit/process/part_pkg.cgi +++ b/httemplate/edit/process/part_pkg.cgi @@ -1,4 +1,3 @@ -<!-- $Id: part_pkg.cgi,v 1.9 2002-02-10 02:16:47 ivan Exp $ --> <% my $dbh = dbh; @@ -61,7 +60,7 @@ if ( $error ) { myexit(); } -foreach $part_svc (qsearch('part_svc',{})) { +foreach my $part_svc (qsearch('part_svc',{})) { my $quantity = $cgi->param('pkg_svc'. $part_svc->svcpart) || 0; my $old_pkg_svc = qsearchs('pkg_svc', { 'pkgpart' => $pkgpart, |