--- loncom/interface/lonmeta.pm 2004/01/04 00:28:22 1.57 +++ loncom/interface/lonmeta.pm 2004/01/15 15:12:31 1.58 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Metadata display handler # -# $Id: lonmeta.pm,v 1.57 2004/01/04 00:28:22 www Exp $ +# $Id: lonmeta.pm,v 1.58 2004/01/15 15:12:31 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -610,21 +610,27 @@ ENDHEAD $target=~s/\.meta$//; my $bombs=&Apache::lonmsg::retrieve_author_res_msg($target); if ($bombs) { - if ($ENV{'form.delmsg'}) { - if (&Apache::lonmsg::del_url_author_res_msg($target) eq 'ok') { - $bombs=&mt('Messages deleted.'); - } else { - $bombs=&mt('Error deleting messages'); + my $del=''; + if ($target=~/allbombs$/) { + $disuri='All Error Messages'; + } else { + if ($ENV{'form.delmsg'}) { + if (&Apache::lonmsg::del_url_author_res_msg($target) eq 'ok') { + $bombs=&mt('Messages deleted.'); + } else { + $bombs=&mt('Error deleting messages'); + } } + $del=''; } my $bodytag=&Apache::loncommon::bodytag('Error Messages'); - my $del=&mt('Delete Messages'); $r->print(<Edit Catalog Information $bodytag

$disuri

- +$del
$bombs