version 1.10, 2001/12/24 17:13:11
|
version 1.11, 2001/12/24 21:09:08
|
Line 85 sub dynamicmeta {
|
Line 85 sub dynamicmeta {
|
} |
} |
my %returnhash=(); |
my %returnhash=(); |
foreach (keys %cnt) { |
foreach (keys %cnt) { |
|
if ($listitems{$_} eq 'avg') { |
|
$returnhash{$_}=int(($sum{$_}/$cnt{$_})*100.0+0.5)/100.0; |
|
} elsif ($listitems{$_} eq 'cnt') { |
|
$returnhash{$_}=$cnt{$_}; |
|
} else { |
|
$returnhash{$_}=$sum{$_}; |
|
} |
} |
} |
return %returnhash; |
return %returnhash; |
} |
} |
Line 124 my $creationdate=localtime($content{'cre
|
Line 130 my $creationdate=localtime($content{'cre
|
my $lastrevisiondate=localtime($content{'lastrevisiondate'}); |
my $lastrevisiondate=localtime($content{'lastrevisiondate'}); |
my $language=&Apache::loncommon::languagedescription($content{'language'}); |
my $language=&Apache::loncommon::languagedescription($content{'language'}); |
my $mime=&Apache::loncommon::filedescription($content{'mime'}); |
my $mime=&Apache::loncommon::filedescription($content{'mime'}); |
|
my $disuri=&Apache::lonnet::declutter($uri); |
|
$disuri=~s/\.meta$//; |
$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"> |
<h1>Catalog Information</h1> |
<h1>Catalog Information</h1> |
<h2>$content{'title'}</h2> |
<h2>$content{'title'}</h2> |
<h3>Author(s): $content{'author'}</h3> |
<h3><tt>$disuri</tt></h3> |
<b>Subject:</b> $content{'subject'}<br> |
<table cellspacing=2 border=0> |
<b>Keyword(s):</b> $content{'keywords'}<br> |
<tr><td bgcolor='#AAAAAA'>Author(s)</td> |
<b>Notes:</b> $content{'notes'}<br> |
<td bgcolor="#CCCCCC">$content{'author'} </td></tr> |
<b>Abstract:</b> |
<tr><td bgcolor='#AAAAAA'>Subject</td> |
<blockquote>$content{'abstract'}</blockquote> |
<td bgcolor="#CCCCCC">$content{'subject'} </td></tr> |
<hr> |
<tr><td bgcolor='#AAAAAA'>Keyword(s)</td> |
<b>MIME Type:</b> $mime ($content{'mime'})<br> |
<td bgcolor="#CCCCCC">$content{'keywords'} </td></tr> |
<b>Language:</b> $language<br> |
<tr><td bgcolor='#AAAAAA'>Notes</td> |
<b>Creation Date:</b> $creationdate<br> |
<td bgcolor="#CCCCCC">$content{'notes'} </td></tr> |
<b>Last Revision Date:</b> $lastrevisiondate<br> |
<tr><td bgcolor='#AAAAAA'>Abstract</td> |
<b>Publisher/Owner:</b> $content{'owner'}<br> |
<td bgcolor="#CCCCCC">$content{'abstract'} </td></tr> |
<b>Copyright/Distribution:</b> $content{'copyright'} |
<tr><td bgcolor='#AAAAAA'>MIME Type</td> |
<hr> |
<td bgcolor="#CCCCCC">$mime ($content{'mime'}) </td></tr> |
|
<tr><td bgcolor='#AAAAAA'>Language</td> |
|
<td bgcolor="#CCCCCC">$language </td></tr> |
|
<tr><td bgcolor='#AAAAAA'>Creation Date</td> |
|
<td bgcolor="#CCCCCC">$creationdate </td></tr> |
|
<tr><td bgcolor='#AAAAAA'> |
|
Last Revision Date</td><td bgcolor="#CCCCCC">$lastrevisiondate </td></tr> |
|
<tr><td bgcolor='#AAAAAA'>Publisher/Owner</td> |
|
<td bgcolor="#CCCCCC">$content{'owner'} </td></tr> |
|
<tr><td bgcolor='#AAAAAA'>Copyright/Distribution</td> |
|
<td bgcolor="#CCCCCC">$content{'copyright'} |
|
</table> |
ENDHEAD |
ENDHEAD |
delete($content{'title'}); |
delete($content{'title'}); |
delete($content{'author'}); |
delete($content{'author'}); |
Line 157 ENDHEAD
|
Line 176 ENDHEAD
|
delete($content{'owner'}); |
delete($content{'owner'}); |
delete($content{'copyright'}); |
delete($content{'copyright'}); |
if ($ENV{'user.adv'}) { |
if ($ENV{'user.adv'}) { |
|
# ------------------------------------------------------------ Dynamic Metadata |
$r->print('<h3>Dynamic Metadata (updated periodically)</h3>'); |
$r->print('<h3>Dynamic Metadata (updated periodically)</h3>'); |
my %items=( |
my %items=( |
'count' => 'Network-wide number of accesses (hits)', |
'count' => 'Network-wide number of accesses (hits)', |
'course' => 'Network-wide number of courses using resource', |
'course' => 'Network-wide number of courses using resource', |
'usage' => 'Number of resources using or importing resource', |
'usage' => 'Number of resources using or importing resource', |
'clear' => 'Evaluation: presented in clear way', |
'clear' => 'Material presented in clear way', |
'depth' => 'Evaluation: material covered with sufficient depth', |
'depth' => 'Material covered with sufficient depth', |
'helpful' => 'Evaluation: material is helpful', |
'helpful' => 'Material is helpful', |
'correct' => 'Evaluation: material appears to be correct', |
'correct' => 'Material appears to be correct', |
'technical' => 'Evaluation: material is technically correct', |
'technical' => 'Resource is technically correct', |
'avetries' => 'Average number of tries till solved', |
'avetries' => 'Average number of tries till solved', |
'stdno' => 'Total number of students who have worked on this problem', |
'stdno' => 'Total number of students who have worked on this problem', |
'difficulty' => 'Degree of difficulty'); |
'difficulty' => 'Degree of difficulty'); |
my %dynmeta=&dynamicmeta($uri); |
my %dynmeta=&dynamicmeta($uri); |
$r->print('<h4>Access and Usage Statistics</h4>'); |
$r->print( |
|
'</table><h4>Access and Usage Statistics</h4><table cellspacing=2 border=0>'); |
foreach ('count','usage','course') { |
foreach ('count','usage','course') { |
$r->print('<b>'.$items{$_}.':</b>'."<br>\n"); |
$r->print( |
} |
'<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'. |
|
$dynmeta{$_}." </td></tr>\n"); |
|
} |
|
$r->print('</table>'); |
if ($uri=~/\.(problem|exam|quiz|assess|survey|form)\.meta$/) { |
if ($uri=~/\.(problem|exam|quiz|assess|survey|form)\.meta$/) { |
$r->print('<h4>Assessment Statistical Data</h4>'); |
$r->print( |
|
'<h4>Assessment Statistical Data</h4><table cellspacing=2 border=0>'); |
foreach ('stdno','avetries','difficulty') { |
foreach ('stdno','avetries','difficulty') { |
$r->print('<b>'.$items{$_}.':</b>'."<br>\n"); |
$r->print( |
} |
'<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'. |
|
$dynmeta{$_}." </td></tr>\n"); |
|
} |
|
$r->print('</table>'); |
} |
} |
$r->print('<h4>Evaluation Data</h4>'); |
$r->print('<h4>Evaluation Data</h4><table cellspacing=2 border=0>'); |
foreach ('clear','depth','helpful','correct','technical') { |
foreach ('clear','depth','helpful','correct','technical') { |
$r->print('<b>'.$items{$_}.':</b>'."<br>\n"); |
$r->print( |
|
'<tr><td bgcolor="#AAAAAA">'.$items{$_}.'</td><td bgcolor="#CCCCCC">'. |
|
$dynmeta{$_}." </td></tr>\n"); |
} |
} |
&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//; |
$r->print('</table>'); |
|
$disuri=~/^(\w+)\/(\w+)\//; |
if ((($ENV{'user.domain'} eq $1) && ($ENV{'user.name'} eq $2)) |
if ((($ENV{'user.domain'} eq $1) && ($ENV{'user.name'} eq $2)) |
|| ($ENV{'user.role.ca./'.$1.'/'.$2})) { |
|| ($ENV{'user.role.ca./'.$1.'/'.$2})) { |
$r->print( |
$r->print( |
'<h4>Evaluation Comments (visible to author and co-authors only)</h4>'. |
'<h4>Evaluation Comments (visible to author and co-authors only)</h4>'. |
$dynmeta{'comments'}); |
'<blockquote>'.$dynmeta{'comments'}.'</blockquote>'); |
} |
} |
|
# ------------------------------------------------------------- All other stuff |
$r->print( |
$r->print( |
'<h3>Additional Metadata (non-standard, parameters, exports)</h3>'); |
'<h3>Additional Metadata (non-standard, parameters, exports)</h3>'); |
foreach (sort keys %content) { |
foreach (sort keys %content) { |