loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.88, 2003/03/20 16:17:37	version 1.89, 2003/03/20 19:20:31
Line 613 See lonrights.pm for an example invocati	Line 613 See lonrights.pm for an example invocati
sub select_form {	sub select_form {
my ($def,$name,%hash) = @_;	my ($def,$name,%hash) = @_;
my $selectform = "<select name=\"$name\" size=\"1\">\n";	my $selectform = "<select name=\"$name\" size=\"1\">\n";
foreach (keys %hash) {	foreach (sort keys %hash) {
$selectform.="<option value=\"$_\" ".	$selectform.="<option value=\"$_\" ".
($_ eq $def ? 'selected' : '').	($_ eq $def ? 'selected' : '').
">".$hash{$_}."</option>\n";	">".$hash{$_}."</option>\n";