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

Diff for /loncom/homework/lonhomework.pm between versions 1.121 and 1.127

version 1.121, 2003/05/08 15:33:15 version 1.127, 2003/05/14 17:16:20
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 61  BEGIN { Line 61  BEGIN {
 }  }
   
 sub get_target {  sub get_target {
   if ( $ENV{'request.state'} eq "published") {    if (($ENV{'request.state'} eq "published") ||
         ($ENV{'request.state'} eq "uploaded")) {
     if ( defined($ENV{'form.grade_target'}  )       if ( defined($ENV{'form.grade_target'}  ) 
  && ($ENV{'form.grade_target'} eq 'tex')) {   && ($ENV{'form.grade_target'} eq 'tex')) {
       return ($ENV{'form.grade_target'});        return ($ENV{'form.grade_target'});
Line 214  sub check_access { Line 215  sub check_access {
     if ( $tries eq '' ) { $tries = '0'; }      if ( $tries eq '' ) { $tries = '0'; }
     if ( $maxtries eq '' ) { $maxtries = '2'; }       if ( $maxtries eq '' ) { $maxtries = '2'; } 
     if ($tries >= $maxtries) { $status = 'CANNOT_ANSWER'; }       if ($tries >= $maxtries) { $status = 'CANNOT_ANSWER'; } 
     if($Apache::lonhomework::history{"resource.$id.solved"}=~/^correct/) {      if($Apache::lonhomework::history{"resource.$id.solved"}=~/^correct/
         && lc($Apache::lonhomework::problemstatus) ne 'no') {
  $status = 'CANNOT_ANSWER';   $status = 'CANNOT_ANSWER';
     }      }
   }    }
Line 284  sub showhashsubset { Line 286  sub showhashsubset {
   
 sub setuppermissions {  sub setuppermissions {
   $Apache::lonhomework::browse= &Apache::lonnet::allowed('bre',$ENV{'request.filename'});    $Apache::lonhomework::browse= &Apache::lonnet::allowed('bre',$ENV{'request.filename'});
   $Apache::lonhomework::viewgrades=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'});    my $viewgrades = &Apache::lonnet::allowed('vgr',$ENV{'request.course.id'});
     if (! $viewgrades && 
         exists($ENV{'request.course.sec'}) && 
         $ENV{'request.course.sec'} !~ /^\s*$/) {
         $viewgrades = &Apache::lonnet::allowed('vgr',$ENV{'request.course.id'}.
                                                  '/'.$ENV{'request.course.sec'});
     }
     $Apache::lonhomework::viewgrades = $viewgrades;
   return ''    return ''
 }  }
   
Removed from v.1.121  
changed lines
  Added in v.1.127

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