[BACK]Return to lonhomework.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/lonhomework.pm between versions 1.134 and 1.137

version 1.134, 2003/06/13 20:50:57 version 1.137, 2003/06/30 20:10:01
Line 50  use Apache::essayresponse(); Line 50  use Apache::essayresponse();
 use Apache::externalresponse();  use Apache::externalresponse();
 use Apache::rankresponse();  use Apache::rankresponse();
 use Apache::matchresponse();  use Apache::matchresponse();
 #use Apache::chemresponse();  use Apache::chemresponse();
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use HTML::Entities();  use HTML::Entities();
 use Apache::loncommon();  use Apache::loncommon();
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);
Removed from v.1.134  
changed lines
  Added in v.1.137

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>