loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.182.4.7, 2009/08/14 12:18:46	version 1.182.4.8, 2009/08/23 12:59:18
Line 1950 sub set_form_elements {	Line 1950 sub set_form_elements {
$values{$name}[$i] =~ s/([\r\n\f]+)/\\n/g;	$values{$name}[$i] =~ s/([\r\n\f]+)/\\n/g;
$values{$name}[$i] =~ s/"/\\"/g;	$values{$name}[$i] =~ s/"/\\"/g;
}	}
if ($$elements{$name} eq 'text') {	if (($$elements{$name} eq 'text') \|\| ($$elements{$name} eq 'hidden')) {
my $numvalues = @{$values{$name}};	my $numvalues = @{$values{$name}};
if ($numvalues > 1) {	if ($numvalues > 1) {
my $valuestring = join('","',@{$values{$name}});	my $valuestring = join('","',@{$values{$name}});
Line 1985 sub set_form_elements {	Line 1985 sub set_form_elements {
$output .= qq\|	$output .= qq\|
if (courseForm.elements['$name'].value == "$value") {	if (courseForm.elements['$name'].value == "$value") {
courseForm.elements['$name'].checked = true;	courseForm.elements['$name'].checked = true;
	} else {
	courseForm.elements['$name'].checked = false;
}\|;	}\|;
}	}
}	}