version 1.227, 2009/03/21 21:37:13
|
version 1.228, 2009/04/04 00:38:13
|
Line 558 sub selectbox {
|
Line 558 sub selectbox {
|
foreach my $id (@idlist) { |
foreach my $id (@idlist) { |
$selout.='<option value="'.$id.'"'; |
$selout.='<option value="'.$id.'"'; |
if ($id eq $value) { |
if ($id eq $value) { |
$selout.=' selected>'.&{$functionref}($id).'</option>'; |
$selout.=' selected="selected">'.&{$functionref}($id).'</option>'; |
} else { |
} else { |
$selout.='>'.&{$functionref}($id).'</option>'; |
$selout.='>'.&{$functionref}($id).'</option>'; |
} |
} |