loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.369, 2006/11/20 11:52:10	version 1.370, 2006/11/21 10:01:31
Line 1490 sub end_preduedate {	Line 1490 sub end_preduedate {
# tags if the conditions are not right to display it.	# tags if the conditions are not right to display it.
sub start_postanswerdate {	sub start_postanswerdate {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
	my $pav = &Apache::lonnet::allowed('pav', $env{'request.course.id'}) \|\|
	&Apache::lonnet::allowed('pav',
	$env{'request.course.id'}.'/'.$env{'request.course.sec'});
if ($target eq 'web' \|\| $target eq 'grade' \|\| $target eq 'webgrade' \|\|	if ($target eq 'web' \|\| $target eq 'grade' \|\| $target eq 'webgrade' \|\|
$target eq 'tex') {	$target eq 'tex' ) {
if ($Apache::lonhomework::scantronmode \|\|	if ($Apache::lonhomework::scantronmode \|\|
$Apache::inputtags::status['-1'] ne 'SHOW_ANSWER') {	$Apache::inputtags::status['-1'] ne 'SHOW_ANSWER' \|\|
	(($target eq 'tex') && !$pav)) {
&Apache::lonxml::get_all_text("/postanswerdate",$parser,$style);	&Apache::lonxml::get_all_text("/postanswerdate",$parser,$style);
}	}
}	}