Diff for /loncom/homework/structuretags.pm between versions 1.138 and 1.139

version 1.138, 2002/11/22 19:46:36 version 1.139, 2002/11/25 21:19:45
Line 695  sub end_part { Line 695  sub end_part {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;    my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
   &Apache::lonxml::debug("in end_part $target ");    &Apache::lonxml::debug("in end_part $target ");
   my $status=$Apache::inputtags::status['-1'];    my $status=$Apache::inputtags::status['-1'];
   pop @Apache::inputtags::status;    my $result='';
   if ( $target eq 'meta' ) { return ''; }    if ( $target eq 'meta' ) {
   if ( $target eq 'grade' && $status eq 'CAN_ANSWER') {        $result='';
     return &Apache::inputtags::grade;    } elsif ( $target eq 'grade' && $status eq 'CAN_ANSWER') {
   }      $result=&Apache::inputtags::grade;
   if ($target eq 'web' || $target eq 'tex' ) {    } elsif ($target eq 'web' || $target eq 'tex' ) {
     my $gradestatus=&Apache::inputtags::gradestatus($Apache::inputtags::part,$target);      my $gradestatus=&Apache::inputtags::gradestatus($Apache::inputtags::part,
       $target);
     if ($Apache::lonhomework::type eq 'exam') {$gradestatus='';}      if ($Apache::lonhomework::type eq 'exam') {$gradestatus='';}
     return $gradestatus;      $result=$gradestatus;
   }    }
   return '';    pop @Apache::inputtags::status;
     return $result;
 }  }
   
 sub start_preduedate {  sub start_preduedate {

Removed from v.1.138  
changed lines
  Added in v.1.139


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