--- loncom/homework/structuretags.pm 2003/04/03 21:58:09 1.164 +++ loncom/homework/structuretags.pm 2003/04/21 20:59:02 1.166 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.164 2003/04/03 21:58:09 albertel Exp $ +# $Id: structuretags.pm,v 1.166 2003/04/21 20:59:02 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -104,8 +104,9 @@ sub page_start { } $body_tag_start.='>'.&Apache::lonmenu::menubuttons(undef,$target,1); if ($target eq 'web' && $ENV{'request.state'} ne 'construct') { - my ($symb)=&Apache::lonxml::whichuser(); - if ($symb eq '') { + my ($symb,undef,undef,undef,$publicuser)= + &Apache::lonxml::whichuser(); + if ($symb eq '' && !$publicuser) { my $help = &Apache::loncommon::help_open_topic("Ambiguous_Reference"); $help="Browsing resource, all submissions are temporary.
"; $body_tag_start.=$help; @@ -270,6 +271,11 @@ sub start_problem { @Apache::structuretags::whileconds=(); @Apache::structuretags::whilebody=(); @Apache::structuretags::whileline=(); + $Apache::lonhomework::scantronmode=0; + + if (defined($ENV{'scantron.maxquest'})) { + $Apache::lonhomework::scantronmode=1; + } if ($target ne 'analyze') { &initialize_storage();