version 1.9, 2001/12/22 21:59:07
|
version 1.10, 2001/12/24 17:13:11
|
Line 29
|
Line 29
|
# |
# |
# 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,08/09/01,12/22 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 |
# ----------------------------------------- Fetch and evaluate dynamic metadata |
|
|
Line 45 sub dynamicmeta {
|
Line 46 sub dynamicmeta {
|
my ($adomain,$aauthor)=($url=~/^(\w+)\/(\w+)\//); |
my ($adomain,$aauthor)=($url=~/^(\w+)\/(\w+)\//); |
my $regexp=&Apache::lonnet::escape($url); |
my $regexp=&Apache::lonnet::escape($url); |
$regexp=~s/(\W)/\\$1/g; |
$regexp=~s/(\W)/\\$1/g; |
|
$regexp='___'.$regexp.'___'; |
my %evaldata=&Apache::lonnet::dump |
my %evaldata=&Apache::lonnet::dump |
('resevaldata',$adomain,$aauthor,$regexp); |
('resevaldata',$adomain,$aauthor,$regexp); |
my %returnhash=(); |
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) { |
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; |
return %returnhash; |
} |
} |
Line 85 sub handler {
|
Line 122 sub handler {
|
|
|
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 98 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 119 ENDHEAD
|
Line 157 ENDHEAD
|
delete($content{'owner'}); |
delete($content{'owner'}); |
delete($content{'copyright'}); |
delete($content{'copyright'}); |
if ($ENV{'user.adv'}) { |
if ($ENV{'user.adv'}) { |
map { |
$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'); |
unless ($display) { $display=$name; }; |
unless ($display) { $display=$name; }; |
Line 135 ENDHEAD
|
Line 210 ENDHEAD
|
$r->print(' ('.$otherinfo.')'); |
$r->print(' ('.$otherinfo.')'); |
} |
} |
$r->print("<br>\n"); |
$r->print("<br>\n"); |
} sort keys %content; |
} |
} |
} |
&dynamicmeta($uri); |
|
$r->print('</body></html>'); |
$r->print('</body></html>'); |
return OK; |
return OK; |
} |
} |