--- loncom/homework/structuretags.pm 2002/11/10 15:39:37 1.134 +++ 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.134 2002/11/10 15:39:37 albertel 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; @@ -149,13 +152,13 @@ sub problem_edit_header {
+ +
';
}
sub problem_edit_footer {
- return ' + return ' |