![]() ![]() | ![]() |
version 1.140, 2002/12/02 17:15:07 | version 1.141, 2002/12/05 14:37:17 |
---|---|
Line 118 sub page_start { | Line 118 sub page_start { |
return ($result,$head_tag_start,$body_tag_start,$form_tag_start); | return ($result,$head_tag_start,$body_tag_start,$form_tag_start); |
} | } |
use Time::HiRes(); | #use Time::HiRes(); |
sub get_resource_name { | sub get_resource_name { |
my ($parstack,$safeeval)=@_; | my ($parstack,$safeeval)=@_; |
my $name=&Apache::lonnet::gettitle(); | my $name=&Apache::lonnet::gettitle(); |