--- loncom/homework/structuretags.pm 2003/04/03 20:05:21 1.162 +++ loncom/homework/structuretags.pm 2003/04/03 21:58:09 1.164 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.162 2003/04/03 20:05:21 albertel Exp $ +# $Id: structuretags.pm,v 1.164 2003/04/03 21:58:09 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -279,7 +279,7 @@ sub start_problem { $Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type'); &Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::type:"); } - if ($Apache::lonhomework::type eq '') { + if ($Apache::lonhomework::type eq '' ) { my $uri=$ENV{'request.uri'}; if ($uri=~/\.(\w+)$/) { $Apache::lonhomework::type=$1; @@ -319,11 +319,13 @@ sub start_problem { #handle rand seed in construction space my $rndseed=&setup_rndseed($safeeval); my ($symb)=&Apache::lonxml::whichuser(); - if ($ENV{'request.state'} ne "construct" || $symb eq '') { + if ($ENV{'request.state'} ne "construct" && $symb eq '') { $form_tag_start.=''. ''; + value="New Problem Variation" />'. + ''; } ($status,$accessmsg) = &Apache::lonhomework::check_access('0'); push (@Apache::inputtags::status,$status);