loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1158, 2012/03/14 20:53:50	version 1.1159, 2012/03/15 18:15:55
Line 3269 sub flushcourselogs {	Line 3269 sub flushcourselogs {
}	}
} else {	} else {
my ($dom,$name) = ($entry=~m{___($match_domain)/($match_name)/(.*)___(\w+)$});	my ($dom,$name) = ($entry=~m{___($match_domain)/($match_name)/(.*)___(\w+)$});
	if (($dom eq 'uploaded') \|\| ($dom eq 'adm')) { next; }
my %temphash=($entry => $accesshash{$entry});	my %temphash=($entry => $accesshash{$entry});
if (&put('nohist_resevaldata',\%temphash,$dom,$name) eq 'ok') {	if (&put('nohist_resevaldata',\%temphash,$dom,$name) eq 'ok') {
delete $accesshash{$entry};	delete $accesshash{$entry};
Line 9404 sub gettitle {	Line 9405 sub gettitle {
}	}
$title=~s/\&colon\;/\:/gs;	$title=~s/\&colon\;/\:/gs;
if ($title) {	if ($title) {
	# Remember both $symb and $title for dynamic metadata
	$accesshash{$symb.'___crstitle'}=$title;
	# Cache this title and then return it
return &do_cache_new('title',$key,$title,600);	return &do_cache_new('title',$key,$title,600);
}	}
$urlsymb=$url;	$urlsymb=$url;