--- loncom/interface/londocs.pm 2006/06/30 20:33:49 1.237 +++ loncom/interface/londocs.pm 2006/07/20 18:37:14 1.241 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.237 2006/06/30 20:33:49 albertel Exp $ +# $Id: londocs.pm,v 1.241 2006/07/20 18:37:14 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1163,6 +1163,11 @@ sub editor { $Apache::lonratedt::order[$idx]]= $comment.':'.join(':',@rrest); } +# Devalidate title cache + my $renamed_url=$rrest[0]; +# Has the :-escaping + $renamed_url=~s/\&colon\;/\:/g; + &Apache::lonnet::devalidate_title_cache($renamed_url); } # Store the changed version ($errtext,$fatal)=&storemap($coursenum,$coursedom, @@ -1586,7 +1591,11 @@ END } elsif ($url=~m|^/ext/|) { $url='/adm/wrapper'.$url; } - $url.=(($url=~/\?/)?'&':'?').'symb='.&escape($symb); + if (&Apache::lonnet::symbverify($symb,$url)) { + $url.=(($url=~/\?/)?'&':'?').'symb='.&escape($symb); + } else { + $url=''; + } if ($container eq 'page') { my $symb=$env{'form.pagesymb'}; @@ -1629,7 +1638,8 @@ END } $line.=''. - "$title"; + "".($url?"":'').$title. + ($url?'':' '.&mt('(re-initialize course to access)').'').""; if (($allowed) && ($folder!~/^supplemental/)) { my %lt=&Apache::lonlocal::texthash( 'hd' => 'Hidden',