loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.87, 2003/03/10 20:21:45
+version 1.88, 2003/03/20 16:17:37
  Line 601  sub get_domains {
  =pod
+ =item select_form($defdom,$name,%hash)
+ Returns a string containing a <select name='$name' size='1'> form to
+ allow a user to select options from a hash option_name => displayed text.
+ See lonrights.pm for an example invocation and use.
+ =cut
+ #-------------------------------------------
+ sub select_form {
+     my ($def,$name,%hash) = @_;
+     my $selectform = "<select name=\"$name\" size=\"1\">\n";
+     foreach (keys %hash) {
+         $selectform.="<option value=\"$_\" ".
+             ($_ eq $def ? 'selected' : '').
+                 ">".$hash{$_}."</option>\n";
+     }
+     $selectform.="</select>";
+     return $selectform;
+ }
+ #-------------------------------------------
+ =pod
  =item select_dom_form($defdom,$name)
  Returns a string containing a <select name='$name' size='1'> form to