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 { |