--- loncom/homework/structuretags.pm 2009/11/18 20:47:52 1.460 +++ loncom/homework/structuretags.pm 2009/12/06 21:18:24 1.461 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.460 2009/11/18 20:47:52 droeschl Exp $ +# $Id: structuretags.pm,v 1.461 2009/12/06 21:18:24 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -254,15 +254,18 @@ sub page_start { my $page_start = &Apache::loncommon::start_page($name,$extra_head, \%body_args); $page_start .= $pageheader; - if (!defined($found{'body'}) - && $env{'request.state'} ne 'construct' - && ($target eq 'web' || $target eq 'webgrade')) { - - my ($symb,undef,undef,undef,$publicuser)= &Apache::lonnet::whichuser(); - if ($symb eq '' && !$publicuser) { - $page_start .= '

' - .&mt('Browsing resource, all submissions are temporary.') - .'

'; + + unless ($env{'request.gcicontext'} eq 'buildtest') { + if (!defined($found{'body'}) + && $env{'request.state'} ne 'construct' + && ($target eq 'web' || $target eq 'webgrade')) { + + my ($symb,undef,undef,undef,$publicuser)= &Apache::lonnet::whichuser(); + if ($symb eq '' && !$publicuser) { + $page_start .= '

' + .&mt('Browsing resource, all submissions are temporary.') + .'

'; + } } } @@ -914,28 +917,34 @@ sub start_problem { if ($env{'request.state'} ne "construct" && ($symb eq '' || $Apache::lonhomework::type eq 'practice')) { $form_tag_start.=''. - ''; + $rndseed.'" />'; + unless ($env{'request.gcicontext'} eq 'buildtest') { + $form_tag_start .= ''; + } if (exists($env{'form.username'})) { $form_tag_start.= ''; } - if ($env{'request.role.adv'}) { - $form_tag_start.= '