--- loncom/homework/structuretags.pm 2006/04/20 02:05:30 1.349 +++ loncom/homework/structuretags.pm 2006/04/20 03:28:52 1.350 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.349 2006/04/20 02:05:30 albertel Exp $ +# $Id: structuretags.pm,v 1.350 2006/04/20 03:28:52 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -79,7 +79,6 @@ sub page_start { } } - if ($target eq 'tex') { return &Apache::londefdef::start_html($target,$token,$tagstack, @@ -162,7 +161,7 @@ sub page_start { } $form_tag_start.='>'; } - + &Apache::lonnet::logthis("page_start -- ".length($page_start)); return ($page_start,$form_tag_start); } @@ -597,9 +596,13 @@ sub start_problem { my $accessmsg; my $name= &get_resource_name($parstack,$safeeval); - my ($result,$form_tag_start)= - &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval, - $name); + my ($result,$form_tag_start); + if ($target eq 'web' || $target eq 'webgrade' || $target eq 'tex') { + ($result,$form_tag_start) = + &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval, + $name); + } + if ($target eq 'tex' and $env{'request.symb'} =~ m/\.page_/) {$result='';} if ($target eq 'analyze') { my $rndseed=&setup_rndseed($safeeval); }