[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Tue, 08 Nov 2005 02:12:24 -0000
albertel Mon Nov 7 21:12:24 2005 EDT
Modified files:
/loncom/interface loncommon.pm
Log:
- adding some docs
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.281 loncom/interface/loncommon.pm:1.282
--- loncom/interface/loncommon.pm:1.281 Tue Nov 1 15:47:15 2005
+++ loncom/interface/loncommon.pm Mon Nov 7 21:12:24 2005
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.281 2005/11/01 20:47:15 albertel Exp $
+# $Id: loncommon.pm,v 1.282 2005/11/08 02:12:24 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1155,6 +1155,24 @@
}
}
+#-------------------------------------------
+
+=pod
+
+=item * multiple_select_form($name,$value,$size,%hash)
+
+Returns a string containing a <select> element int multiple mode
+
+
+Args:
+ $name - name of the <select> element
+ $value - sclara or array ref of values that should already be selected
+ $size - number of rows long the select element is
+ %hash - the elements should be 'option' => 'shown text'
+ (shown text should already have been &mt())
+=cut
+
+#-------------------------------------------
sub multiple_select_form {
my ($name,$value,$size,%hash)=@_;
my %selected = map { $_ => 1 } ref($value)?@{$value}:($value);