--- loncom/homework/structuretags.pm 2003/09/19 21:38:15 1.211 +++ loncom/homework/structuretags.pm 2003/10/30 20:52:54 1.219 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.211 2003/09/19 21:38:15 albertel Exp $ +# $Id: structuretags.pm,v 1.219 2003/10/30 20:52:54 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -355,7 +355,7 @@ sub start_problem { } #added vars to the scripting enviroment - my $expression='$external::part='.$Apache::inputtags::part.';'; + my $expression='$external::part=\''.$Apache::inputtags::part.'\';'; &Apache::run::run($expression,$safeeval); my $status; my $accessmsg; @@ -400,7 +400,8 @@ sub start_problem { if (( $status eq 'CLOSED' ) || ( $status eq 'UNCHECKEDOUT') || ( $status eq 'BANNED') || - ( $status eq 'UNAVAILABLE')) { + ( $status eq 'UNAVAILABLE') || + ( $status eq 'INVALID_ACCESS')) { my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser); if ( $target eq "web" ) { $result.= $head_tag_start.''; @@ -410,7 +411,7 @@ sub start_problem { } else { $result.='