loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.381, 2003/06/18 19:10:23	version 1.382, 2003/06/19 19:37:45
Line 3652 sub gettitle {	Line 3652 sub gettitle {
unless ($urlsymb) { $urlsymb=$ENV{'request.filename'}; }	unless ($urlsymb) { $urlsymb=$ENV{'request.filename'}; }
return &metadata($urlsymb,'title');	return &metadata($urlsymb,'title');
}	}
if ($titlecache{$symb}) { return $titlecache{$symb}; }	if ($titlecache{$symb}) {
	if (time < ($titlecache{$symb}[1] + 600)) {
	return $titlecache{$symb}[0];
	} else {
	delete($titlecache{$symb});
	}
	}
my ($map,$resid,$url)=split(/\_\_\_/,$symb);	my ($map,$resid,$url)=split(/\_\_\_/,$symb);
my $title='';	my $title='';
my %bighash;	my %bighash;
Line 3664 sub gettitle {	Line 3670 sub gettitle {
}	}
$title=~s/\&colon\;/\:/gs;	$title=~s/\&colon\;/\:/gs;
if ($title) {	if ($title) {
$titlecache{$symb}=$title;	$titlecache{$symb}=[$title,time];
return $title;	return $title;
} else {	} else {
return &metadata($urlsymb,'title');	return &metadata($urlsymb,'title');