--- loncom/homework/structuretags.pm 2003/10/03 15:27:56 1.200.2.2 +++ loncom/homework/structuretags.pm 2003/09/10 21:18:07 1.209 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.200.2.2 2003/10/03 15:27:56 albertel Exp $ +# $Id: structuretags.pm,v 1.209 2003/09/10 21:18:07 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -130,11 +130,18 @@ sub page_start { #use Time::HiRes(); sub get_resource_name { my ($parstack,$safeeval)=@_; + if (defined($Apache::lonhomework::name)) { + return $Apache::lonhomework::name; + } my $name=&Apache::lonnet::gettitle(); if ($name eq '') { $name=&Apache::lonnet::EXT('resource.title'); if ($name eq 'con_lost') { $name = ''; } } + if ($name!~/\S+/) { + $name=$ENV{'request.uri'}; + $name=~s-.*/([^/]+)$-$1-; + } $Apache::lonhomework::name=$name; return $name; } @@ -268,6 +275,43 @@ credit even if done erroneously.
ENDCHECKOUT } +sub init_problem_globals { + my ($type)=@_; + #initialize globals + if ($type eq 'problem') { + $Apache::inputtags::part='0'; + @Apache::inputtags::partlist=('0'); + $Apache::lonhomework::problemstatus= + &Apache::lonnet::EXT('resource.0.problemstatus'); + } else { + $Apache::inputtags::part=''; + @Apache::inputtags::partlist=(); + $Apache::lonhomework::problemstatus=''; + } + @Apache::inputtags::responselist = (); + @Apache::inputtags::importlist = (); + @Apache::inputtags::previous=(); + @Apache::inputtags::previous_version=(); + $Apache::structuretags::printanswer='No'; + @Apache::structuretags::whileconds=(); + @Apache::structuretags::whilebody=(); + @Apache::structuretags::whileline=(); + $Apache::lonhomework::scantronmode=0; + undef($Apache::lonhomework::name); + +} + +sub reset_problem_globals { + my ($type)=@_; + undef(%Apache::lonhomework::history); + undef(%Apache::lonhomework::results); + undef($Apache::inputtags::part); +#don't undef this, lonhomework.pm takes care of this, we use this to +#detect if we try to do 2 problems in one file +# undef($Apache::lonhomework::parsing_a_problem); + undef($Apache::lonhomework::name); +} + sub start_problem { my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; @@ -279,20 +323,7 @@ sub start_problem { } $Apache::lonhomework::parsing_a_problem=1; -#initialize globals - $Apache::inputtags::part='0'; - @Apache::inputtags::partlist=('0'); - @Apache::inputtags::responselist = (); - @Apache::inputtags::importlist = (); - @Apache::inputtags::previous=(); - @Apache::inputtags::previous_version=(); - $Apache::structuretags::printanswer='No'; - @Apache::structuretags::whileconds=(); - @Apache::structuretags::whilebody=(); - @Apache::structuretags::whileline=(); - $Apache::lonhomework::scantronmode=0; - $Apache::lonhomework::problemstatus= - &Apache::lonnet::EXT('resource.0.problemstatus'); + &init_problem_globals('problem'); if (defined($ENV{'scantron.maxquest'})) { $Apache::lonhomework::scantronmode=1; @@ -414,12 +445,6 @@ sub start_problem { if (not $ENV{'form.problem_split'}=~/yes/) { $startminipage = '\begin{minipage}{\textwidth}'; } - my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval); - if ($name eq '') { - $name=&Apache::lonnet::EXT('resource.title'); - if ($name eq 'con_lost') { $name = ''; } - } - $Apache::lonhomework::name=$name; my $id = $Apache::inputtags::part; my $weight = &Apache::lonnet::EXT("resource.$id.weight"); my $allkeys=&Apache::lonnet::metadata($ENV{'request.uri'},'keys'); @@ -448,9 +473,9 @@ sub start_problem { print $temp_file "$duedate\n"; if (not $ENV{'request.symb'} =~ m/\.page_/) { if(not $duedate=~m/1969/ and $Apache::lonhomework::type ne 'exam') { - $result .= '\begin{document} \typeout{STAMPOFPASSEDRESOURCESTART Resource