--- loncom/interface/lonhtmlcommon.pm 2009/08/13 14:32:33 1.232
+++ loncom/interface/lonhtmlcommon.pm 2009/09/08 20:48:34 1.235
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common html routines
#
-# $Id: lonhtmlcommon.pm,v 1.232 2009/08/13 14:32:33 raeburn Exp $
+# $Id: lonhtmlcommon.pm,v 1.235 2009/09/08 20:48:34 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -82,7 +82,7 @@ sub confirm_success {
.''."\n";
} else {
return ''."\n"
- .'
'."\n"
+ .'
'."\n"
.$message."\n"
.''."\n";
}
@@ -1945,7 +1945,7 @@ sub set_form_elements {
$values{$name}[$i] =~ s/([\r\n\f]+)/\\n/g;
$values{$name}[$i] =~ s/"/\\"/g;
}
- if ($$elements{$name} eq 'text') {
+ if (($$elements{$name} eq 'text') || ($$elements{$name} eq 'hidden')) {
my $numvalues = @{$values{$name}};
if ($numvalues > 1) {
my $valuestring = join('","',@{$values{$name}});
@@ -1980,6 +1980,8 @@ sub set_form_elements {
$output .= qq|
if (courseForm.elements['$name'].value == "$value") {
courseForm.elements['$name'].checked = true;
+ } else {
+ courseForm.elements['$name'].checked = false;
}|;
}
}
@@ -2021,6 +2023,7 @@ sub set_form_elements {
}
}
$output .= "
+ return;
}\n";
return $output;
}