--- loncom/interface/lonmeta.pm 2003/12/29 17:11:53 1.46
+++ loncom/interface/lonmeta.pm 2004/03/31 05:24:00 1.61
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Metadata display handler
#
-# $Id: lonmeta.pm,v 1.46 2003/12/29 17:11:53 www Exp $
+# $Id: lonmeta.pm,v 1.61 2004/03/31 05:24:00 albertel 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
@@ -108,6 +109,9 @@ sub dynamicmeta {
#
# Deal with 'count' separately
$returnhash{'count'} = &access_count($url,$aauthor,$adomain);
+ # since "usage" is reserved word in MySQL ...
+ $returnhash{'sequsage'}=$returnhash{'usage'};
+ $returnhash{'sequsage_list'}=$returnhash{'usage_list'};
return %returnhash;
}
@@ -117,7 +121,7 @@ sub access_count {
my %countdata=&Apache::lonnet::dump('nohist_accesscount',$adomain,
$author,$src);
if (! exists($countdata{$src})) {
- return 'Not Available';
+ return &mt('Not Available');
} else {
return $countdata{$src};
}
@@ -137,7 +141,7 @@ sub alttag {
$alttag=~s/\s+$//gs;
$alttag=~s/^\s+//gs;
if ($alttag) { return $alttag; } else
- { return 'No information available'; }
+ { return &mt('No information available'); }
}
# -------------------------------------------------------------- Author display
@@ -208,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',
@@ -226,9 +232,13 @@ sub fieldnames {
'obsoletereplacement' => 'Suggested Replacement for Obsolete File',
'count' => 'Network-wide number of accesses (hits)',
'course' => 'Network-wide number of courses using resource',
- 'usage' => 'Number of resources using or importing resource',
+ 'course_list' => 'Network-wide courses using resource',
+ 'sequsage' => 'Number of resources using or importing resource',
+ 'sequsage_list' => 'Resources using or importing resource',
'goto' => 'Number of resources that follow this resource in maps',
+ 'goto_list' => 'Resources that follow this resource in maps',
'comefrom' => 'Number of resources that lead up to this resource in maps',
+ 'comefrom_list' => 'Resources that lead up to this resource in maps',
'clear' => 'Material presented in clear way',
'depth' => 'Material covered with sufficient depth',
'helpful' => 'Material is helpful',
@@ -252,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') {
@@ -276,6 +287,13 @@ 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
if (($type eq 'customdistributionfile') ||
($type eq 'obsoletereplacement') ||
@@ -283,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
@@ -313,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
@@ -328,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('