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

Diff for /loncom/homework/lonhomework.pm between versions 1.117 and 1.120

version 1.117, 2003/03/25 23:07:07 version 1.120, 2003/04/30 21:27:57
Line 65  sub get_target { Line 65  sub get_target {
  && ($ENV{'form.grade_target'} eq 'tex')) {   && ($ENV{'form.grade_target'} eq 'tex')) {
       return ($ENV{'form.grade_target'});        return ($ENV{'form.grade_target'});
     } elsif ( defined($ENV{'form.grade_target'}  )       } elsif ( defined($ENV{'form.grade_target'}  ) 
  && ($Apache::lonhomework::viewgrades == 'F' )) {   && ($Apache::lonhomework::viewgrades eq 'F' )) {
       return ($ENV{'form.grade_target'});        return ($ENV{'form.grade_target'});
     }      }
     
     if ( defined($ENV{'form.submitted'})) {      if ( defined($ENV{'form.submitted'}) &&
    ( !defined($ENV{'form.resetdata'}))) {
       return ('grade', 'web');        return ('grade', 'web');
     } else {      } else {
       return ('web');        return ('web');
Line 284  sub setuppermissions { Line 285  sub setuppermissions {
 }  }
   
 sub setupheader {  sub setupheader {
   my $request=$_[0];      my $request=$_[0];
   if ($ENV{'browser.mathml'}) {      if ($ENV{'browser.mathml'}) {
     $request->content_type('text/xml');   $request->content_type('text/xml');
   } else {      } else {
     $request->content_type('text/html');   $request->content_type('text/html');
   }      }
   if (!$Apache::lonxml::debug && ($ENV{'REQUEST_METHOD'} eq 'GET')) {      $request->content_encoding('UTF-8');
     &Apache::loncommon::no_cache($request);      if (!$Apache::lonxml::debug && ($ENV{'REQUEST_METHOD'} eq 'GET')) {
   }   &Apache::loncommon::no_cache($request);
   $request->send_http_header;      }
   return OK if $request->header_only;      $request->send_http_header;
   return ''      return OK if $request->header_only;
       return ''
 }  }
   
 sub handle_save_or_undo {  sub handle_save_or_undo {
Line 599  sub handler { Line 601  sub handler {
   #my $t0 = [&gettimeofday()];    #my $t0 = [&gettimeofday()];
   my $request=$_[0];    my $request=$_[0];
   
 #  if ( $ENV{'user.name'} eq 'albertel' ) {$Apache::lonxml::debug=1;}  
   $Apache::lonxml::debug=$ENV{'user.debug'};    $Apache::lonxml::debug=$ENV{'user.debug'};
   
   if (&setupheader($request)) { return OK; }    if (&setupheader($request)) { return OK; }
Line 631  sub handler { Line 632  sub handler {
     }      }
   }    }
   
     my ($symb) = &Apache::lonxml::whichuser();
     &Apache::lonxml::debug('symb is '.$symb);
     if ($ENV{'request.state'} eq "construct" || $symb eq '') {
         if ($ENV{'form.resetdata'} eq 'Reset Submissions' ||
     $ENV{'form.resetdata'} eq 'New Problem Variation' ) {
     my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();
     &Apache::lonnet::tmpreset($symb,'',$domain,$name);
         }
     }
   if ($ENV{'request.state'} eq "construct") {    if ($ENV{'request.state'} eq "construct") {
     if ($ENV{'form.resetdata'} eq 'Reset Submissions') {  
       my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();  
       &Apache::lonnet::tmpreset($symb,'',$domain,$name);  
     }  
     if ( -e $file ) {      if ( -e $file ) {
       if (!(defined $ENV{'form.problemmode'})) {        if (!(defined $ENV{'form.problemmode'})) {
  #first visit to problem in construction space   #first visit to problem in construction space
Removed from v.1.117  
changed lines
  Added in v.1.120

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