--- loncom/homework/structuretags.pm 2002/11/11 22:37:23 1.135 +++ loncom/homework/structuretags.pm 2002/12/02 17:15:07 1.140 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.135 2002/11/11 22:37:23 www Exp $ +# $Id: structuretags.pm,v 1.140 2002/12/02 17:15:07 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -118,10 +118,12 @@ sub page_start { return ($result,$head_tag_start,$body_tag_start,$form_tag_start); } +use Time::HiRes(); sub get_resource_name { my ($parstack,$safeeval)=@_; - my $name=&Apache::lonxml::get_param('name',$parstack,$safeeval); - if ($name eq '') { + my $name=&Apache::lonnet::gettitle(); + &Apache::lonnet::logthis("Got $name"); + if ($name eq '') { $name=&Apache::lonnet::EXT('resource.title'); if ($name eq 'con_lost') { $name = ''; } } @@ -138,6 +140,7 @@ sub setup_rndseed { $rndseed=time; $ENV{'form.rndseed'}=$rndseed; } + &Apache::lonxml::debug("Setting rndseed to $rndseed"); &Apache::run::run('$external::randomseed='.$rndseed.';',$safeeval); } return $rndseed; @@ -174,10 +177,9 @@ sub problem_web_to_edit_header {