loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.109, 2003/02/25 18:49:05	version 1.110, 2003/02/25 23:18:22
Line 429 sub editxmlmode {	Line 429 sub editxmlmode {
&renderpage($request,$file);	&renderpage($request,$file);
} else {	} else {
my ($rows,$cols) = &Apache::edit::textarea_sizes(\$problem);	my ($rows,$cols) = &Apache::edit::textarea_sizes(\$problem);
my $xml_help = Apache::loncommon::help_open_topic("Problem_Editor_XML_Index");	my $xml_help = Apache::loncommon::help_open_topic("Problem_Editor_XML_Index",'Problem Editing Help');
if ($cols > 80) { $cols = 80; }	if ($cols > 80) { $cols = 80; }
if ($cols < 70) { $cols = 70; }	if ($cols < 70) { $cols = 70; }
if ($rows < 20) { $rows = 20; }	if ($rows < 20) { $rows = 20; }
Line 444 sub editxmlmode {	Line 444 sub editxmlmode {
<input type="submit" name="submit" value="Submit Changes and View" />	<input type="submit" name="submit" value="Submit Changes and View" />
<input type="submit" name="Undo" value="undo" />	<input type="submit" name="Undo" value="undo" />
<hr />	<hr />
' . $xml_help . ' Problem Help<br>	' . $xml_help . '
<textarea rows="'.$rows.'" cols="'.$cols.'" name="editxmltext">'.	<textarea rows="'.$rows.'" cols="'.$cols.'" name="editxmltext">'.
&HTML::Entities::encode($problem).'</textarea>	&HTML::Entities::encode($problem).'</textarea>
</form></body></html>';	</form></body></html>';