version 1.19, 2000/12/04 21:51:30
|
version 1.21, 2000/12/12 22:35:52
|
Line 43 sub start_problem {
|
Line 43 sub start_problem {
|
#adeed vars to the scripting enviroment |
#adeed vars to the scripting enviroment |
my $expression='$external::part='.$Apache::inputtags::part.';'; |
my $expression='$external::part='.$Apache::inputtags::part.';'; |
&Apache::run::run($expression,$safeeval); |
&Apache::run::run($expression,$safeeval); |
|
if ($target ne 'meta') { |
|
my ($date,$passed) = &Apache::lonhomework::check_date("OPEN_DATE",'0'); |
|
if ( !$passed ) { |
|
my $bodytext=&Apache::lonxml::get_all_text("/problem",$$parser[$#$parser]); |
|
if ( $target eq "web" ) { |
|
return "Problem is not open to be viewed. It opens on $date"; |
|
} |
|
} |
|
} |
if ($target eq 'web') { |
if ($target eq 'web') { |
# create a page header and exit |
# create a page header and exit |
my $args =''; |
my $args =''; |
Line 64 sub end_problem {
|
Line 72 sub end_problem {
|
} elsif ($Apache::inputtags::part eq '0') { |
} elsif ($Apache::inputtags::part eq '0') { |
# if part is zero, no <part>s existed, so we need show the current |
# if part is zero, no <part>s existed, so we need show the current |
# grading status |
# grading status |
$result.= &Apache::inputtags::gradestatus; |
$result.= &Apache::inputtags::gradestatus($Apache::inputtags::part); |
} |
} |
if ($target eq 'web') { $result.="</form></body>\n"; } |
if ($target eq 'web') { $result.="</form></body>\n"; } |
} else { |
} else { |
Line 187 sub start_part {
|
Line 195 sub start_part {
|
@Apache::inputtags::responselist = (); |
@Apache::inputtags::responselist = (); |
if ($target eq 'meta') { |
if ($target eq 'meta') { |
return &Apache::response::mandatory_part_meta; |
return &Apache::response::mandatory_part_meta; |
|
} else { |
|
my ($date,$passed) = &Apache::lonhomework::check_date("OPEN_DATE",$id); |
|
if ( !$passed ) { |
|
my $bodytext=&Apache::lonxml::get_all_text("/part",$$parser[$#$parser]); |
|
if ( $target eq "web" ) { |
|
return "Part is not open to be viewed. It opens on $date"; |
|
} |
|
} |
} |
} |
return ''; |
return ''; |
} |
} |
Line 196 sub end_part {
|
Line 212 sub end_part {
|
&Apache::lonxml::debug("in end_part $target "); |
&Apache::lonxml::debug("in end_part $target "); |
if ( $target eq 'meta' ) { return ''; } |
if ( $target eq 'meta' ) { return ''; } |
if ( $target eq 'grade' ) { return &Apaceh::inputtags::grade; } |
if ( $target eq 'grade' ) { return &Apaceh::inputtags::grade; } |
return &Apache::inputtags::gradestatus; |
return &Apache::inputtags::gradestatus($Apache::inputtags::part); |
} |
} |
|
|
1; |
1; |