loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.87, 2002/09/07 18:21:44	version 1.89, 2002/09/23 17:29:37
Line 79 sub get_target {	Line 79 sub get_target {
return ('web');	return ('web');
}	}
} else {	} else {
if ( $ENV{'form.problemmode'} eq 'View' ) {	if ( $ENV{'form.problemmode'} eq 'View' \|\|
	$ENV{'form.problemmode'} eq 'Discard Edits and View') {
if ( defined($ENV{'form.submitted'}) &&	if ( defined($ENV{'form.submitted'}) &&
(!defined($ENV{'form.resetdata'})) ) {	(!defined($ENV{'form.resetdata'})) ) {
return ('grade', 'web','answer');	return ('grade', 'web','answer');
Line 334 sub editxmlmode {	Line 335 sub editxmlmode {
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");
if ($cols > 80) { $cols = 80; }	if ($cols > 80) { $cols = 80; }
	if ($cols < 70) { $cols = 70; }
	if ($rows < 20) { $rows = 20; }
$result.='<html><body bgcolor="#FFFFFF">	$result.='<html><body bgcolor="#FFFFFF">
<form name="lonhomework" method="POST" action="'.	<form name="lonhomework" method="POST" action="'.
$ENV{'request.uri'}.'">	$ENV{'request.uri'}.'">