--- loncom/interface/lonmeta.pm 2003/12/28 20:12:59 1.44
+++ loncom/interface/lonmeta.pm 2004/06/16 14:30:15 1.79
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Metadata display handler
#
-# $Id: lonmeta.pm,v 1.44 2003/12/28 20:12:59 www Exp $
+# $Id: lonmeta.pm,v 1.79 2004/06/16 14:30:15 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -29,20 +29,19 @@
package Apache::lonmeta;
use strict;
+use LONCAPA::lonmetadata();
use Apache::Constants qw(:common);
use Apache::lonnet();
use Apache::loncommon();
+use Apache::lonhtmlcommon();
use Apache::lonmsg;
use Apache::lonpublisher;
use Apache::lonlocal;
use Apache::lonmysql;
+use Apache::lonmsg;
-# MySQL table columns
-
-my @columns;
-
-# ----------------------------------------- Fetch and evaluate dynamic metadata
+# Fetch and evaluate dynamic metadata
sub dynamicmeta {
my $url=&Apache::lonnet::declutter(shift);
$url=~s/\.meta$//;
@@ -52,63 +51,22 @@ sub dynamicmeta {
$regexp='___'.$regexp.'___';
my %evaldata=&Apache::lonnet::dump('nohist_resevaldata',$adomain,
$aauthor,$regexp);
- my %sum=();
- my %cnt=();
- my %concat=();
- my %listitems=(
- 'course' => 'add',
- 'goto' => 'add',
- 'comefrom' => 'add',
- 'avetries' => 'avg',
- 'stdno' => 'add',
- 'difficulty' => 'avg',
- 'clear' => 'avg',
- 'technical' => 'avg',
- 'helpful' => 'avg',
- 'correct' => 'avg',
- 'depth' => 'avg',
- 'comments' => 'app',
- 'usage' => 'cnt'
- );
- while ($_=each(%evaldata)) {
- my ($item,$purl,$cat)=split(/___/,$_);
- ### Apache->request->print("\n".$_.' - '.$item.'
');
- if (defined($cnt{$cat})) { $cnt{$cat}++; } else { $cnt{$cat}=1; }
- unless ($listitems{$cat} eq 'app') {
- if (defined($sum{$cat})) {
- $sum{$cat}+=$evaldata{$_};
- $concat{$cat}.=','.$item;
- } else {
- $sum{$cat}=$evaldata{$_};
- $concat{$cat}=$item;
- }
- } else {
- if (defined($sum{$cat})) {
- if ($evaldata{$_}) {
- $sum{$cat}.='
'.$evaldata{$_};
- }
- } else {
- $sum{$cat}=''.$evaldata{$_};
- }
- }
- }
- my %returnhash=();
- while ($_=each(%cnt)) {
- if ($listitems{$_} eq 'avg') {
- $returnhash{$_}=int(($sum{$_}/$cnt{$_})*100.0+0.5)/100.0;
- } elsif ($listitems{$_} eq 'cnt') {
- $returnhash{$_}=$cnt{$_};
- } else {
- $returnhash{$_}=$sum{$_};
- }
- $returnhash{$_.'_list'}=$concat{$_};
- ### Apache->request->print("\n
".$_.': '.$returnhash{$_}.'
'.$returnhash{$_.'_list'});
- }
+ my %DynamicData = &LONCAPA::lonmetadata::process_reseval_data(\%evaldata);
+ my %Data = &LONCAPA::lonmetadata::process_dynamic_metadata($url,
+ \%DynamicData);
#
- # Deal with 'count' seperately
- $returnhash{'count'} = &access_count($url,$aauthor,$adomain);
-
- return %returnhash;
+ # Deal with 'count' separately
+ $Data{'count'} = &access_count($url,$aauthor,$adomain);
+ #
+ # Debugging code I will probably need later
+ if (0) {
+ &Apache::lonnet::logthis('Dynamic Metadata');
+ while(my($k,$v)=each(%Data)){
+ &Apache::lonnet::logthis(' "'.$k.'"=>"'.$v.'"');
+ }
+ &Apache::lonnet::logthis('-------------------');
+ }
+ return %Data;
}
sub access_count {
@@ -116,461 +74,823 @@ 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};
}
}
-# ------------------------------------- Try to make an alt tag if there is none
-
+# Try to make an alt tag if there is none
sub alttag {
my ($base,$src)=@_;
my $fullpath=&Apache::lonnet::hreflocation($base,$src);
my $alttag=&Apache::lonnet::metadata($fullpath,'title').' '.
- &Apache::lonnet::metadata($fullpath,'subject').' '.
- &Apache::lonnet::metadata($fullpath,'abstract');
+ &Apache::lonnet::metadata($fullpath,'subject').' '.
+ &Apache::lonnet::metadata($fullpath,'abstract');
$alttag=~s/\s+/ /gs;
$alttag=~s/\"//gs;
$alttag=~s/\'//gs;
$alttag=~s/\s+$//gs;
$alttag=~s/^\s+//gs;
- if ($alttag) { return $alttag; } else
- { return 'No information available'; }
+ if ($alttag) {
+ return $alttag;
+ } else {
+ return &mt('No information available');
+ }
}
-# -------------------------------------------------------------- Author display
-
+# Author display
sub authordisplay {
my ($aname,$adom)=@_;
- return &Apache::loncommon::aboutmewrapper(
- &Apache::loncommon::plainname($aname,$adom),
- $aname,$adom).' ['.$aname.'@'.$adom.']';
+ return &Apache::loncommon::aboutmewrapper
+ (&Apache::loncommon::plainname($aname,$adom),
+ $aname,$adom,'preview').' ['.$aname.'@'.$adom.']';
}
-# -------------------------------------------------------------- Pretty display
-
+# Pretty display
sub evalgraph {
my $value=shift;
- unless ($value) { return ''; }
+ if (! $value) {
+ return '';
+ }
my $val=int($value*10.+0.5)-10;
- my $output='';
+ my $output='';
if ($val>=20) {
- $output.='  | ';
+ $output.='  | ';
} else {
- $output.=' | '.
- ' | ';
+ $output.=' | '.
+ ' | ';
}
$output.=' | ';
if ($val>20) {
- $output.=' | '.
- ' | ';
+ $output.=' | '.
+ ' | ';
} else {
- $output.='  | ';
+ $output.='  | ';
}
- $output.=' ('.$value.') |
';
+ $output.=' ('.sprintf("%5.2f",$value).') |
';
return $output;
}
sub diffgraph {
my $value=shift;
- unless ($value) { return ''; }
+ if (! $value) {
+ return '';
+ }
my $val=int(40.0*$value+0.5);
my @colors=('#FF9933','#EEAA33','#DDBB33','#CCCC33',
'#BBDD33','#CCCC33','#DDBB33','#EEAA33');
- my $output='';
+ my $output='';
for (my $i=0;$i<8;$i++) {
if ($val>$i*5) {
- $output.=' | ';
+ $output.=' | ';
} else {
- $output.=' | ';
+ $output.=' | ';
}
}
- $output.=' ('.$value.') |
';
+ $output.=' ('.sprintf("%3.2f",$value).') |
';
return $output;
}
-# ==================================================== Turn MySQL row into hash
-sub metadata_col_to_hash {
- my @cols=@_;
- my %hash=();
- for (my $i=0; $i<=$#columns; $i++) {
- $hash{$columns[$i]}=$cols[$i];
+# The field names
+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',
+ 'abstract' => 'Abstract',
+ 'lowestgradelevel' => 'Lowest Grade Level',
+ 'highestgradelevel' => 'Highest Grade Level',
+ 'standards' => 'Standards',
+ 'mime' => 'MIME Type',
+ 'language' => 'Language',
+ 'creationdate' => 'Creation Date',
+ 'lastrevisiondate' => 'Last Revision Date',
+ 'owner' => 'Publisher/Owner',
+ 'copyright' => 'Copyright/Distribution',
+ 'customdistributionfile' => 'Custom Distribution File',
+ 'sourceavail' => 'Source Availible',
+ 'sourcerights' => 'Source Custom Distribution File',
+ 'obsolete' => 'Obsolete',
+ 'obsoletereplacement' => 'Suggested Replacement for Obsolete File',
+ 'count' => 'Network-wide number of accesses (hits)',
+ 'course' => 'Network-wide number of courses using 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',
+ 'correct' => 'Material appears to be correct',
+ 'technical' => 'Resource is technically correct',
+ 'avetries' => 'Average number of tries till solved',
+ 'stdno' => 'Total number of students who have worked on this problem',
+ 'difficulty' => 'Degree of difficulty',
+ 'disc' => 'Degree of discrimination',
+ );
+}
+
+# Pretty printing of metadata field
+
+sub prettyprint {
+ my ($type,$value)=@_;
+ if (! defined($value)) {
+ return ' ';
}
- return %hash;
+ # Title
+ if ($type eq 'title') {
+ return ''.$value.'';
+ }
+ # Dates
+ if (($type eq 'creationdate') ||
+ ($type eq 'lastrevisiondate')) {
+ return ($value?&Apache::lonlocal::locallocaltime(
+ &Apache::lonmysql::unsqltime($value)):
+ &mt('not available'));
+ }
+ # Language
+ if ($type eq 'language') {
+ return &Apache::loncommon::languagedescription($value);
+ }
+ # Copyright
+ if ($type eq 'copyright') {
+ return &Apache::loncommon::copyrightdescription($value);
+ }
+ # Copyright
+ if ($type eq 'sourceavail') {
+ return &Apache::loncommon::source_copyrightdescription($value);
+ }
+ # MIME
+ if ($type eq 'mime') {
+ return '
'.
+ &Apache::loncommon::filedescription($value);
+ }
+ # Person
+ if (($type eq 'author') ||
+ ($type eq 'owner') ||
+ ($type eq 'modifyinguser') ||
+ ($type eq 'authorspace')) {
+ $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
+ if (! $ENV{'user.adv'}) {
+ return '- '.&mt('not displayed').' -';
+ }
+ # File
+ if (($type eq 'customdistributionfile') ||
+ ($type eq 'obsoletereplacement') ||
+ ($type eq 'goto_list') ||
+ ($type eq 'comefrom_list') ||
+ ($type eq 'sequsage_list')) {
+ return join('
',map {
+ my $url = &Apache::lonnet::clutter($_);
+ my $title = &Apache::lonnet::gettitle($url);
+ if ($title eq '') {
+ $title = 'Untitled';
+ if ($url =~ /\.sequence$/) {
+ $title .= ' Sequence';
+ } elsif ($url =~ /\.page$/) {
+ $title .= ' Page';
+ } elsif ($url =~ /\.problem$/) {
+ $title .= ' Problem';
+ } elsif ($url =~ /\.html$/) {
+ $title .= ' HTML document';
+ } elsif ($url =~ m:/syllabus$:) {
+ $title .= ' Syllabus';
+ }
+ }
+ $_ = ''.$title.' '.
+ ''.
+ ''.$url.''.
+ ''
+ } split(/\s*\,\s*/,$value));
+ }
+ # Evaluations
+ if (($type eq 'clear') ||
+ ($type eq 'depth') ||
+ ($type eq 'helpful') ||
+ ($type eq 'correct') ||
+ ($type eq 'technical')) {
+ return &evalgraph($value);
+ }
+ # Difficulty
+ if ($type eq 'difficulty' || $type eq 'disc') {
+ return &diffgraph($value);
+ }
+ # List of courses
+ if ($type=~/\_list/) {
+ my @Courses = split(/\s*\,\s*/,$value);
+ my $Str;
+ foreach my $course (@Courses) {
+ my %courseinfo = &Apache::lonnet::coursedescription($course);
+ if (! exists($courseinfo{'num'}) || $courseinfo{'num'} eq '') {
+ next;
+ }
+ if ($Str ne '') { $Str .= '
'; }
+ $Str .= ''.
+ $courseinfo{'description'}.'';
+ }
+ return $Str;
+ }
+ # No pretty print found
+ return $value;
}
-# ================================================================ Main Handler
+# Pretty input of metadata field
+sub direct {
+ return shift;
+}
-sub handler {
- my $r=shift;
+sub selectbox {
+ my ($name,$value,$functionref,@idlist)=@_;
+ if (! defined($functionref)) {
+ $functionref=\&direct;
+ }
+ my $selout='';
+}
- my $loaderror=&Apache::lonnet::overloaderror($r);
- if ($loaderror) { return $loaderror; }
+sub relatedfield {
+ my ($show,$relatedsearchflag,$relatedsep,$fieldname,$relatedvalue)=@_;
+ if (! $relatedsearchflag) {
+ return '';
+ }
+ if (! defined($relatedsep)) {
+ $relatedsep=' ';
+ }
+ if (! $show) {
+ return $relatedsep.' ';
+ }
+ return $relatedsep.'';
+}
+sub prettyinput {
+ my ($type,$value,$fieldname,$formname,
+ $relatedsearchflag,$relatedsep,$relatedvalue,$size)=@_;
+ if (! defined($size)) {
+ $size = 80;
+ }
+ # 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);
+ }
+ # Source Copyright
+ if ($type eq 'sourceavail') {
+ return &selectbox($fieldname,
+ $value,
+ \&Apache::loncommon::source_copyrightdescription,
+ (&Apache::loncommon::source_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);
+ }
+ # Source Customdistribution file
+ if ($type eq 'sourcerights') {
+ 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/\"/\"\;/gs;
+ return
+ ''.
+ &relatedfield(1,$relatedsearchflag,$relatedsep,$fieldname,
+ $relatedvalue);
+}
+# Main Handler
+sub handler {
+ my $r=shift;
+ #
my $uri=$r->uri;
-
- unless ($uri=~/^\/\~/) {
-# =========================================== This is not in construction space
+ #
+ # Set document type
+ &Apache::loncommon::content_type($r,'text/html');
+ $r->send_http_header;
+ return OK if $r->header_only;
+ #
my ($resdomain,$resuser)=
- (&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//);
+ (&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//);
+ $r->print(''.
+ 'Catalog Information'.
+ '');
+ if ($uri=~m:/adm/bombs/(.*)$:) {
+ $r->print(&Apache::loncommon::bodytag('Error Messages'));
+ # Looking for all bombs?
+ &report_bombs($r,$uri);
+ } elsif ($uri=~/^\/\~/) {
+ # Construction space
+ $r->print(&Apache::loncommon::bodytag
+ ('Edit Catalog Information','','','',$resdomain));
+ &present_editable_metadata($r,$uri);
+ } else {
+ $r->print(&Apache::loncommon::bodytag
+ ('Catalog Information','','','',$resdomain));
+ &present_uneditable_metadata($r,$uri);
+ }
+ $r->print('