--- loncom/homework/structuretags.pm 2003/10/15 22:24:06 1.200.2.4 +++ loncom/homework/structuretags.pm 2003/08/11 20:05:53 1.201 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.200.2.4 2003/10/15 22:24:06 albertel Exp $ +# $Id: structuretags.pm,v 1.201 2003/08/11 20:05:53 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -72,7 +72,7 @@ sub end_tex { sub page_start { my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; my %found; - foreach my $taginside (@$tagstack) { + foreach my $taginside ($tagstack) { foreach my $taglookedfor ('html','body','form') { if ($taginside =~ /^$taglookedfor$/i) {$found{$taglookedfor} = 1;} } @@ -363,8 +363,7 @@ sub start_problem { if (( $status eq 'CLOSED' ) || ( $status eq 'UNCHECKEDOUT') || ( $status eq 'BANNED') || - ( $status eq 'UNAVAILABLE') || - ( $status eq 'INVALID_ACCESS')) { + ( $status eq 'UNAVAILABLE')) { my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser); if ( $target eq "web" ) { $result.= $head_tag_start.''; @@ -374,7 +373,7 @@ sub start_problem { } else { $result.='