loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1160, 2012/03/16 21:16:46	version 1.1161, 2012/03/20 13:36:22
Line 9424 sub gettitle {	Line 9424 sub gettitle {
if ($title) {	if ($title) {
# Remember both $symb and $title for dynamic metadata	# Remember both $symb and $title for dynamic metadata
$accesshash{$symb.'___crstitle'}=$title;	$accesshash{$symb.'___crstitle'}=$title;
	$accesshash{&declutter($map).'___'.&declutter($url).'___usage'}=time;
# Cache this title and then return it	# Cache this title and then return it
return &do_cache_new('title',$key,$title,600);	return &do_cache_new('title',$key,$title,600);
}	}