loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

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 '';
}	}