loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.99, 2005/12/22 22:06:54	version 1.101, 2006/04/18 22:36:23
Line 577 sub editfield {	Line 577 sub editfield {
if ($rows < $minheight) { $rows = $minheight; }	if ($rows < $minheight) { $rows = $minheight; }
if ($description) { $description="<br />".$description."<br />"; }	if ($description) { $description="<br />".$description."<br />"; }
if ($usehtmlarea) {	if ($usehtmlarea) {
push @Apache::lonxml::htmlareafields,'homework_edit_'.	&Apache::lonhtmlcommon::add_htmlareafields('homework_edit_'.
$Apache::lonxml::curdepth;	$Apache::lonxml::curdepth);
}	}
return $description."\n".'   <textarea style="width:100%" rows="'.$rows.	return $description."\n".'   <textarea style="width:100%" rows="'.$rows.
'" cols="'.$cols.'" name="homework_edit_'.	'" cols="'.$cols.'" name="homework_edit_'.
Line 683 sub checked_arg {	Line 683 sub checked_arg {
$text=$option;	$text=$option;
$value='value="'.$option.'"';	$value='value="'.$option.'"';
}	}
$result.="<nobr><input type='checkbox' $value name='".	$result.="<nobr><label><input type='checkbox' $value name='".
&html_element_name($name)."'";	&html_element_name($name)."'";
foreach my $selected (split(/,/,$allselected)) {	foreach my $selected (split(/,/,$allselected)) {
if ( $selected eq $option ) {	if ( $selected eq $option ) {
Line 691 sub checked_arg {	Line 691 sub checked_arg {
last;	last;
}	}
}	}
$result.=&element_change_detection()." />$text</nobr>\n";	$result.=&element_change_detection()." />$text</label></nobr>\n";
}	}
return $result;	return $result;
}	}