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/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/part_pkg.cgi')
| -rwxr-xr-x | httemplate/edit/part_pkg.cgi | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/httemplate/edit/part_pkg.cgi b/httemplate/edit/part_pkg.cgi index bead1410a..a98179e12 100755 --- a/httemplate/edit/part_pkg.cgi +++ b/httemplate/edit/part_pkg.cgi @@ -1,5 +1,3 @@ -<!-- $Id: part_pkg.cgi,v 1.10 2002-02-10 02:16:47 ivan Exp $ --> - <% if ( $cgi->param('clone') && $cgi->param('clone') =~ /^(\d+)$/ ) { @@ -417,7 +415,7 @@ if ( $cgi->param('pkgnum') ) { <INPUT TYPE="text" NAME="<%= $field %>" VALUE="<%= exists($plandata{$field}) ? $plandata{$field} : $href->{$field}{'default'} %>" onChange="fchanged(this)"> <% } elsif ( $href->{$field}{'type'} eq 'select_multiple' ) { %> <SELECT MULTIPLE NAME="<%= $field %>" onChange="fchanged(this)"> - <% foreach $record ( qsearch( $href->{$field}{'select_table'}, $href->{$field}{'select_hash'} ) ) { + <% foreach my $record ( qsearch( $href->{$field}{'select_table'}, $href->{$field}{'select_hash'} ) ) { my $value = $record->getfield($href->{$field}{'select_key'}); %> <OPTION VALUE="<%= $value %>"<%= $plandata{$field} =~ /(^|, *)$value *(,|$)/ ? ' SELECTED' : '' %>><%= $record->getfield($href->{$field}{'select_label'}) %> <% } %> |