version 1.3, 2000/11/27 20:44:53
|
version 1.10, 2001/12/24 17:13:11
|
Line 1
|
Line 1
|
# The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
# |
|
# Metadata display handler |
# Metadata display handler |
# |
# |
|
# $Id$ |
|
# |
|
# Copyright Michigan State University Board of Trustees |
|
# |
|
# This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
|
# |
|
# LON-CAPA is free software; you can redistribute it and/or modify |
|
# it under the terms of the GNU General Public License as published by |
|
# the Free Software Foundation; either version 2 of the License, or |
|
# (at your option) any later version. |
|
# |
|
# LON-CAPA is distributed in the hope that it will be useful, |
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
# GNU General Public License for more details. |
|
# |
|
# You should have received a copy of the GNU General Public License |
|
# along with LON-CAPA; if not, write to the Free Software |
|
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
|
# |
|
# /home/httpd/html/adm/gpl.txt |
|
# |
|
# http://www.lon-capa.org/ |
|
# |
# (TeX Content Handler |
# (TeX Content Handler |
# |
# |
# 05/29/00,05/30,10/11 Gerd Kortemeyer) |
# 05/29/00,05/30,10/11 Gerd Kortemeyer) |
# |
# |
# 10/19,10/21,10/23,11/27 Gerd Kortemeyer |
# 10/19,10/21,10/23,11/27,08/09/01,12/22,12/24 Gerd Kortemeyer |
|
|
package Apache::lonmeta; |
package Apache::lonmeta; |
|
|
use strict; |
use strict; |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::lonnet(); |
use Apache::lonnet(); |
|
use Apache::loncommon(); |
|
|
|
# ----------------------------------------- Fetch and evaluate dynamic metadata |
|
|
|
sub dynamicmeta { |
|
my $url=&Apache::lonnet::declutter(shift); |
|
$url=~s/\.meta$//; |
|
my ($adomain,$aauthor)=($url=~/^(\w+)\/(\w+)\//); |
|
my $regexp=&Apache::lonnet::escape($url); |
|
$regexp=~s/(\W)/\\$1/g; |
|
$regexp='___'.$regexp.'___'; |
|
my %evaldata=&Apache::lonnet::dump |
|
('resevaldata',$adomain,$aauthor,$regexp); |
|
my %sum; |
|
my %cnt; |
|
my %listitems=('count' => 'add', |
|
'course' => 'add', |
|
'avetries' => 'avg', |
|
'stdno' => 'add', |
|
'difficulty' => 'avg', |
|
'clear' => 'avg', |
|
'technical' => 'avg', |
|
'helpful' => 'avg', |
|
'correct' => 'avg', |
|
'depth' => 'avg', |
|
'comments' => 'app', |
|
'usage' => 'cnt' |
|
); |
|
foreach (keys %evaldata) { |
|
$_=~/___(\w+)$/; |
|
if (defined($cnt{$1})) { $cnt{$1}++; } else { $cnt{$1}=1; } |
|
unless ($listitems{$1} eq 'app') { |
|
if (defined($sum{$1})) { |
|
$sum{$1}+=$evaldata{$_}; |
|
} else { |
|
$sum{$1}=$evaldata{$_}; |
|
} |
|
} else { |
|
if (defined($sum{$1})) { |
|
if ($evaldata{$_}) { |
|
$sum{$1}.='<hr>'.$evaldata{$_}; |
|
} |
|
} else { |
|
$sum{$1}=''.$evaldata{$_}; |
|
} |
|
} |
|
} |
|
my %returnhash=(); |
|
foreach (keys %cnt) { |
|
|
|
} |
|
return %returnhash; |
|
} |
|
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |
|
|
Line 35 sub handler {
|
Line 110 sub handler {
|
$content{$_}=&Apache::lonnet::metadata($uri,$_); |
$content{$_}=&Apache::lonnet::metadata($uri,$_); |
} split(/\,/,&Apache::lonnet::metadata($uri,'keys')); |
} split(/\,/,&Apache::lonnet::metadata($uri,'keys')); |
|
|
|
# ------------------------------------------------------------------ Hide stuff |
|
|
|
unless ($ENV{'user.adv'}) { |
|
map { |
|
$content{$_}='<i>- not displayed -</i>'; |
|
} ('keywords','notes','abstract','subject'); |
|
} |
|
|
# --------------------------------------------------------------- Render Output |
# --------------------------------------------------------------- Render Output |
|
|
my $creationdate=localtime($content{'creationdate'}); |
my $creationdate=localtime($content{'creationdate'}); |
my $lastrevisiondate=localtime($content{'lastrevisiondate'}); |
my $lastrevisiondate=localtime($content{'lastrevisiondate'}); |
|
my $language=&Apache::loncommon::languagedescription($content{'language'}); |
|
my $mime=&Apache::loncommon::filedescription($content{'mime'}); |
$r->print(<<ENDHEAD); |
$r->print(<<ENDHEAD); |
<html><head><title>Catalog Information</title></head> |
<html><head><title>Catalog Information</title></head> |
<body bgcolor="#FFFFFF"> |
<body bgcolor="#FFFFFF"> |
Line 52 my $lastrevisiondate=localtime($content{
|
Line 136 my $lastrevisiondate=localtime($content{
|
<b>Abstract:</b> |
<b>Abstract:</b> |
<blockquote>$content{'abstract'}</blockquote> |
<blockquote>$content{'abstract'}</blockquote> |
<hr> |
<hr> |
<b>MIME Type:</b> $content{'mime'}<br> |
<b>MIME Type:</b> $mime ($content{'mime'})<br> |
<b>Language:</b> $content{'language'}<br> |
<b>Language:</b> $language<br> |
<b>Creation Date:</b> $creationdate<br> |
<b>Creation Date:</b> $creationdate<br> |
<b>Last Revision Date:</b> $lastrevisiondate<br> |
<b>Last Revision Date:</b> $lastrevisiondate<br> |
<b>Publisher/Owner:</b> $content{'owner'}<br> |
<b>Publisher/Owner:</b> $content{'owner'}<br> |
Line 72 ENDHEAD
|
Line 156 ENDHEAD
|
delete($content{'lastrevisiondate'}); |
delete($content{'lastrevisiondate'}); |
delete($content{'owner'}); |
delete($content{'owner'}); |
delete($content{'copyright'}); |
delete($content{'copyright'}); |
map { |
if ($ENV{'user.adv'}) { |
|
$r->print('<h3>Dynamic Metadata (updated periodically)</h3>'); |
|
my %items=( |
|
'count' => 'Network-wide number of accesses (hits)', |
|
'course' => 'Network-wide number of courses using resource', |
|
'usage' => 'Number of resources using or importing resource', |
|
'clear' => 'Evaluation: presented in clear way', |
|
'depth' => 'Evaluation: material covered with sufficient depth', |
|
'helpful' => 'Evaluation: material is helpful', |
|
'correct' => 'Evaluation: material appears to be correct', |
|
'technical' => 'Evaluation: material 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'); |
|
my %dynmeta=&dynamicmeta($uri); |
|
$r->print('<h4>Access and Usage Statistics</h4>'); |
|
foreach ('count','usage','course') { |
|
$r->print('<b>'.$items{$_}.':</b>'."<br>\n"); |
|
} |
|
if ($uri=~/\.(problem|exam|quiz|assess|survey|form)\.meta$/) { |
|
$r->print('<h4>Assessment Statistical Data</h4>'); |
|
foreach ('stdno','avetries','difficulty') { |
|
$r->print('<b>'.$items{$_}.':</b>'."<br>\n"); |
|
} |
|
} |
|
$r->print('<h4>Evaluation Data</h4>'); |
|
foreach ('clear','depth','helpful','correct','technical') { |
|
$r->print('<b>'.$items{$_}.':</b>'."<br>\n"); |
|
} |
|
&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//; |
|
if ((($ENV{'user.domain'} eq $1) && ($ENV{'user.name'} eq $2)) |
|
|| ($ENV{'user.role.ca./'.$1.'/'.$2})) { |
|
$r->print( |
|
'<h4>Evaluation Comments (visible to author and co-authors only)</h4>'. |
|
$dynmeta{'comments'}); |
|
} |
|
$r->print( |
|
'<h3>Additional Metadata (non-standard, parameters, exports)</h3>'); |
|
foreach (sort keys %content) { |
my $name=$_; |
my $name=$_; |
my $display=&Apache::lonnet::metadata($uri,$name.'.display'); |
my $display=&Apache::lonnet::metadata($uri,$name.'.display'); |
if ($display) { $name=$display; }; |
unless ($display) { $display=$name; }; |
$r->print('<b>'.$name.':</b> '.$content{$name}.'<br>'); |
my $otherinfo=''; |
} sort keys %content; |
map { |
|
if (defined(&Apache::lonnet::metadata($uri,$name.'.'.$_))) { |
|
$otherinfo.=' '.$_.'='. |
|
&Apache::lonnet::metadata($uri,$name.'.'.$_).'; '; |
|
} |
|
} ('name','part','type','default'); |
|
$r->print('<b>'.$display.':</b> '.$content{$name}); |
|
if ($otherinfo) { |
|
$r->print(' ('.$otherinfo.')'); |
|
} |
|
$r->print("<br>\n"); |
|
} |
|
} |
$r->print('</body></html>'); |
$r->print('</body></html>'); |
return OK; |
return OK; |
} |
} |