--- loncom/interface/lonhtmlcommon.pm 2003/06/20 16:13:06 1.26
+++ loncom/interface/lonhtmlcommon.pm 2003/07/25 19:56:37 1.28
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common html routines
#
-# $Id: lonhtmlcommon.pm,v 1.26 2003/06/20 16:13:06 matthew Exp $
+# $Id: lonhtmlcommon.pm,v 1.28 2003/07/25 19:56:37 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -385,6 +385,9 @@ the selection box is set to document.$fo
$size: the size (number of lines) of the selection box.
+$onchange: javascript to use when the value is changed. Enclosed in
+double quotes, ""s, not single quotes.
+
Returns: a perl string as described.
=cut
@@ -392,7 +395,7 @@ Returns: a perl string as described.
##############################################
##############################################
sub StatusOptions {
- my ($status, $formName,$size)=@_;
+ my ($status, $formName,$size,$onchange)=@_;
$size = 1 if (!defined($size));
if (! defined($status)) {
$status = 'Active';
@@ -409,9 +412,12 @@ sub StatusOptions {
my $Str = '';
$Str .= '