Added 'id' attribute to branchcode select list

2003-12-31 17:57:25 +00:00 · 2003-12-31 17:57:25 +00:00 · f94b052374
commit f94b052374
parent 097c494a59
1 changed files with 1 additions and 0 deletions
--- a/imemberentry.pl
+++ b/imemberentry.pl
@ -64,6 +64,7 @@ foreach my $branch (keys %$branches) {
  	$select_branches{$branch} = $branches->{$branch}->{'branchname'};
 }
 my $CGIbranch=CGI::scrolling_list( -name     => 'branchcode',
+			-id => 'branchcode',
 			-values   => \@select_branch,
 			-default  => $data->{'branchcode'},
 			-labels   => \%select_branches,