--- loncom/lonnet/perl/lonnet.pm 2012/03/14 20:53:50 1.1158 +++ loncom/lonnet/perl/lonnet.pm 2012/03/15 18:15:55 1.1159 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1158 2012/03/14 20:53:50 www Exp $ +# $Id: lonnet.pm,v 1.1159 2012/03/15 18:15:55 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3269,6 +3269,7 @@ sub flushcourselogs { } } else { my ($dom,$name) = ($entry=~m{___($match_domain)/($match_name)/(.*)___(\w+)$}); + if (($dom eq 'uploaded') || ($dom eq 'adm')) { next; } my %temphash=($entry => $accesshash{$entry}); if (&put('nohist_resevaldata',\%temphash,$dom,$name) eq 'ok') { delete $accesshash{$entry}; @@ -9404,6 +9405,9 @@ sub gettitle { } $title=~s/\&colon\;/\:/gs; 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); } $urlsymb=$url;