--- loncom/interface/loncommon.pm	2003/03/10 20:21:45	1.87
+++ loncom/interface/loncommon.pm	2003/03/20 16:17:37	1.88
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.87 2003/03/10 20:21:45 matthew Exp $
+# $Id: loncommon.pm,v 1.88 2003/03/20 16:17:37 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -599,6 +599,32 @@ 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)