loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.137, 2002/11/13 23:37:56	version 1.138, 2002/11/22 19:46:36
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();
sub get_resource_name {	sub get_resource_name {
my ($parstack,$safeeval)=@_;	my ($parstack,$safeeval)=@_;
my $name=&Apache::lonxml::get_param('name',$parstack,$safeeval);	my $name=&Apache::lonnet::gettitle();
if ($name eq '') {	&Apache::lonnet::logthis("Got $name");
	if ($name eq '') {
$name=&Apache::lonnet::EXT('resource.title');	$name=&Apache::lonnet::EXT('resource.title');
if ($name eq 'con_lost') { $name = ''; }	if ($name eq 'con_lost') { $name = ''; }
}	}