|
version 1.222, 2008/12/13 21:56:57
|
version 1.223, 2008/12/13 22:15:53
|
|
Line 556 sub selectbox {
|
Line 556 sub selectbox {
|
| } |
} |
| my $selout='<select name="'.$name.'">'; |
my $selout='<select name="'.$name.'">'; |
| 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>'.&{$functionref}($id).'</option>'; |
| } else { |
} else { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmeta.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface