--- loncom/interface/lonmeta.pm 2003/12/29 19:01:27 1.47
+++ loncom/interface/lonmeta.pm 2004/02/09 20:22:18 1.60
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Metadata display handler
#
-# $Id: lonmeta.pm,v 1.47 2003/12/29 19:01:27 www Exp $
+# $Id: lonmeta.pm,v 1.60 2004/02/09 20:22:18 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -37,6 +37,7 @@ use Apache::lonmsg;
use Apache::lonpublisher;
use Apache::lonlocal;
use Apache::lonmysql;
+use Apache::lonmsg;
# MySQL table columns
@@ -211,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',
@@ -259,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') {
@@ -283,6 +287,11 @@ sub prettyprint {
$value=~s/(\w+)(\:|\@)(\w+)/&authordisplay($1,$3)/gse;
return $value;
}
+# Gradelevel
+ if (($type eq 'lowestgradelevel') ||
+ ($type eq 'highestgradelevel')) {
+ return &Apache::loncommon::gradeleveldescription($value);
+ }
# Only for advance users below
unless ($ENV{'user.adv'}) { return '- '.&mt('not displayed').' -' };
# File
@@ -292,8 +301,9 @@ sub prettyprint {
($type eq 'comefrom_list') ||
($type eq 'sequsage_list')) {
return join('
',map {
- &Apache::lonnet::gettitle($_).' ['.
- &Apache::lonhtmlcommon::crumbs(&Apache::lonnet::clutter($_),'preview').']';
+ my $url=&Apache::lonnet::clutter($_);
+ '
'.&Apache::lonnet::gettitle($url).''.
+ &Apache::lonhtmlcommon::crumbs($url,'preview','');
} split(/\s*\,\s*/,$value));
}
# Evaluations
@@ -322,8 +332,95 @@ sub prettyprint {
}
# ============================================== Pretty input of metadata field
+sub direct {
+ return shift;
+}
+
+sub selectbox {
+ my ($name,$value,$functionref,@idlist)=@_;
+ unless (defined($functionref)) { $functionref=\&direct; }
+ my $selout='';
+}
+
+sub relatedfield {
+ my ($show,$relatedsearchflag,$relatedsep,$fieldname,$relatedvalue)=@_;
+ unless ($relatedsearchflag) { return ''; }
+ unless (defined($relatedsep)) { $relatedsep=' '; }
+ unless ($show) { return $relatedsep.' '; }
+ return $relatedsep.'';
+}
+
sub prettyinput {
- my ($type,$value,$fieldname)=@_;
+ my ($type,$value,$fieldname,$formname,
+ $relatedsearchflag,$relatedsep,$relatedvalue)=@_;
+# Language
+ if ($type eq 'language') {
+ return &selectbox($fieldname,
+ $value,
+ \&Apache::loncommon::languagedescription,
+ (&Apache::loncommon::languageids)).
+ &relatedfield(0,$relatedsearchflag,$relatedsep);
+ }
+# Copyright
+ if ($type eq 'copyright') {
+ return &selectbox($fieldname,
+ $value,
+ \&Apache::loncommon::copyrightdescription,
+ (&Apache::loncommon::copyrightids)).
+ &relatedfield(0,$relatedsearchflag,$relatedsep);
+ }
+# Gradelevels
+ if (($type eq 'lowestgradelevel') ||
+ ($type eq 'highestgradelevel')) {
+ return &Apache::loncommon::select_level_form($value,$fieldname).
+ &relatedfield(0,$relatedsearchflag,$relatedsep);
+ }
+# Obsolete
+ if ($type eq 'obsolete') {
+ return ''.
+ &relatedfield(0,$relatedsearchflag,$relatedsep);
+ }
+# Obsolete replacement file
+ if ($type eq 'obsoletereplacement') {
+ return '".&mt('Select').''.
+ &relatedfield(0,$relatedsearchflag,$relatedsep);
+ }
+# Customdistribution file
+ if ($type eq 'customdistributionfile') {
+ return '".&mt('Select').''.
+ &relatedfield(0,$relatedsearchflag,$relatedsep);
+ }
+# Dates
+ if (($type eq 'creationdate') ||
+ ($type eq 'lastrevisiondate')) {
+ return &Apache::lonhtmlcommon::date_setter($formname,
+ $fieldname,$value).
+ &relatedfield(0,$relatedsearchflag,$relatedsep);
+ }
+# No pretty input found
+ $value=~s/^\s+//gs;
+ $value=~s/\s+$//gs;
+ $value=~s/\s+/ /gs;
+ $value=~s/\"/\&quod\;/gs;
+ return
+ ''.
+ &relatedfield(1,$relatedsearchflag,$relatedsep,$fieldname,$relatedvalue);
}
# ================================================================ Main Handler
@@ -337,7 +434,30 @@ sub handler {
my $uri=$r->uri;
- unless ($uri=~/^\/\~/) {
+# ====================================================== Looking for all bombs?
+ if ($uri=~/\/adm\/bombs\/(.*)$/) {
+# ----------------------------------------------------------- Set document type
+ $uri=&Apache::lonnet::declutter($1);
+ &Apache::loncommon::content_type($r,'text/html');
+ $r->send_http_header;
+
+ return OK if $r->header_only;
+ $r->print(&Apache::loncommon::bodytag('Error Messages'));
+ $r->print(''.&Apache::lonnet::clutter($uri).'
');
+ my ($domain,$author)=($uri=~/^(\w+)\/(\w+)\//);
+ if (&Apache::loncacc::constructaccess('/~'.$author.'/',$domain)) {
+ my %brokenurls=&Apache::lonmsg::all_url_author_res_msg($author,$domain);
+ foreach (sort keys %brokenurls) {
+ if ($_=~/^\Q$uri\E/) {
+ $r->print(&Apache::lonhtmlcommon::crumbs(&Apache::lonnet::clutter($_)).
+ &Apache::lonmsg::retrieve_author_res_msg($_).'
');
+ }
+ }
+ } else {
+ $r->print(&mt('Not authorized'));
+ }
+ $r->print('