--- loncom/interface/lonmeta.pm 2008/01/23 17:23:16 1.210 +++ loncom/interface/lonmeta.pm 2008/03/06 20:20:18 1.212 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Metadata display handler # -# $Id: lonmeta.pm,v 1.210 2008/01/23 17:23:16 bisitz Exp $ +# $Id: lonmeta.pm,v 1.212 2008/03/06 20:20:18 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -839,10 +839,14 @@ sub report_bombs { &Apache::lonmsg::clear_author_res_msg($uri); } my $clear=&mt('Clear all Messages in Subdirectory'); - $r->print(<<ENDCLEAR); + my $cancel=&mt('Back to Directory'); + my $cancelurl=$uri; + $cancelurl=~s/^\Q$domain\E/\/priv/; + $r->print(<<ENDCLEAR); <form method="post"> <input type="submit" name="clearbombs" value="$clear" /> -</form> +<a href="$cancelurl">$cancel</a> +</form><hr /> ENDCLEAR my %brokenurls = &Apache::lonmsg::all_url_author_res_msg($author,$domain); @@ -1221,13 +1225,11 @@ ENDDEL } $r->print('<br />'.$bombs); } else { - my $displayfile=&mt('Catalog Information for').' '.$disuri; + my $displayfile=&mt('Catalog Information for [_1]',$disuri); if ($disuri=~/\/default$/) { my $dir=$disuri; $dir=~s/default$//; - $displayfile= - &mt('Default Cataloging Information for Directory').' '. - $dir; + $displayfile=&mt('Default Cataloging Information for Directory [_1]',$dir); } %Apache::lonpublisher::metadatafields=(); %Apache::lonpublisher::metadatakeys=();