version 1.20, 2000/12/05 22:07:26
|
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 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 ''; |
} |
} |