loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.134, 2003/06/13 20:50:57	version 1.136, 2003/06/20 14:45:19
Line 469 sub editxmlmode {	Line 469 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 = '<table><tr><td>'.	my $xml_help = Apache::loncommon::helpLatexCheatsheet("Problem_Editor_XML_Index",
&Apache::loncommon::help_open_topic("Problem_Editor_XML_Index",'Problem Editing Help')	"Problem Editing Help");
.'</td><td>'.
&Apache::loncommon::help_open_topic("Greek_Symbols",'Greek Symbols',
undef,undef,600)
.'</td><td>'.
&Apache::loncommon::help_open_topic("Other_Symbols",'Other Symbols',
undef,undef,600)
.'</td></tr></table>';
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 677 sub handler {	Line 670 sub handler {
}	}
if ($ENV{'request.state'} eq "construct") {	if ($ENV{'request.state'} eq "construct") {
if ( -e $file ) {	if ( -e $file ) {
	&Apache::loncommon::get_unprocessed_cgi
	($ENV{'QUERY_STRING'},['problemmode']);
if (!(defined $ENV{'form.problemmode'})) {	if (!(defined $ENV{'form.problemmode'})) {
#first visit to problem in construction space	#first visit to problem in construction space
#&view_or_edit_menu($request);	#&view_or_edit_menu($request);