--- loncom/interface/lonmeta.pm 2004/01/02 19:23:47 1.56
+++ 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.56 2004/01/02 19:23:47 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
@@ -656,7 +662,9 @@ ENDEDIT
'copyright','customdistributionfile','language','standards',
'lowestgradelevel','highestgradelevel',
'obsolete','obsoletereplacement') {
- $Apache::lonpublisher::metadatafields{$_}=$ENV{'form.new_'.$_};
+ if (defined($ENV{'form.new_'.$_})) {
+ $Apache::lonpublisher::metadatafields{$_}=$ENV{'form.new_'.$_};
+ }
unless ($Apache::lonpublisher::metadatafields{'copyright'}) {
$Apache::lonpublisher::metadatafields{'copyright'}='default';
}