summaryrefslogtreecommitdiff
path: root/httemplate/edit/part_svc.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/edit/part_svc.cgi')
-rwxr-xr-xhttemplate/edit/part_svc.cgi8
1 files changed, 4 insertions, 4 deletions
diff --git a/httemplate/edit/part_svc.cgi b/httemplate/edit/part_svc.cgi
index 7f2e3aa3c..940ea8d25 100755
--- a/httemplate/edit/part_svc.cgi
+++ b/httemplate/edit/part_svc.cgi
@@ -298,10 +298,10 @@ that field.
% $item. '</OPTION>';
% } #next $item
% } elsif ( $def->{select_hash} ) {
-% $def->{select_hash} = tie %{ $def->{select_hash} },
-% 'Tie::IxHash',
-% @{ $def->{select_hash} }
-% if ref($def->{select_hash}) eq 'ARRAY';
+% if ( ref($def->{select_hash}) eq 'ARRAY' ) {
+% tie my %hash, 'Tie::IxHash', @{ $def->{select_hash} };
+% $def->{select_hash} = \%hash;
+% }
% foreach my $key ( keys %{$def->{select_hash}} ) {
% $html .= qq!<OPTION VALUE="$key"!.
% (grep(/^$key$/, split(',',$value)) ? ' SELECTED>' : '>' ).