--- loncom/interface/lonmeta.pm 2004/01/01 20:13:17 1.54
+++ 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.54 2004/01/01 20:13:17 www Exp $
+# $Id: lonmeta.pm,v 1.58 2004/01/15 15:12:31 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -212,6 +212,8 @@ sub fieldnames {
return &Apache::lonlocal::texthash(
'title' => 'Title',
'author' =>'Author(s)',
+ 'authorspace' => 'Author Space',
+ 'modifyinguser' => 'Last Modifying User',
'subject' => 'Subject',
'keywords' => 'Keyword(s)',
'notes' => 'Notes',
@@ -260,8 +262,9 @@ sub prettyprint {
# Dates
if (($type eq 'creationdate') ||
($type eq 'lastrevisiondate')) {
- return &Apache::lonlocal::locallocaltime(
- &Apache::lonmysql::unsqltime($value));
+ return ($value?&Apache::lonlocal::locallocaltime(
+ &Apache::lonmysql::unsqltime($value)):
+ &mt('not available'));
}
# Language
if ($type eq 'language') {
@@ -607,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
@@ -653,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';
}