version 1.69, 2004/04/14 18:56:36
|
version 1.70, 2004/04/14 20:45:14
|
Line 252 sub prettyprint {
|
Line 252 sub prettyprint {
|
($type eq 'comefrom_list') || |
($type eq 'comefrom_list') || |
($type eq 'sequsage_list')) { |
($type eq 'sequsage_list')) { |
return join('<br />',map { |
return join('<br />',map { |
my $url=&Apache::lonnet::clutter($_); |
my $url = &Apache::lonnet::clutter($_); |
'<b>'.&Apache::lonnet::gettitle($url).'</b>'. |
$_ = '<b>'.&Apache::lonnet::gettitle($url).'</b> '. |
&Apache::lonhtmlcommon::crumbs($url,'preview','',undef,'+0'); |
'<a href="'.$url.'" target="preview">'. |
|
'<font size="-1">'.$url.'</font>'. |
|
'</a>' |
} split(/\s*\,\s*/,$value)); |
} split(/\s*\,\s*/,$value)); |
} |
} |
# Evaluations |
# Evaluations |
Line 450 sub report_bombs {
|
Line 452 sub report_bombs {
|
&Apache::lonmsg::all_url_author_res_msg($author,$domain); |
&Apache::lonmsg::all_url_author_res_msg($author,$domain); |
foreach (sort(keys(%brokenurls))) { |
foreach (sort(keys(%brokenurls))) { |
if ($_=~/^\Q$uri\E/) { |
if ($_=~/^\Q$uri\E/) { |
$r->print(&Apache::lonhtmlcommon::crumbs |
$r->print |
(&Apache::lonnet::clutter($_)). |
('<a href="'.&Apache::lonnet::clutter($_).'">'.$_.'</a>'. |
&Apache::lonmsg::retrieve_author_res_msg($_). |
&Apache::lonmsg::retrieve_author_res_msg($_). |
'<hr />'); |
'<hr />'); |
} |
} |
} |
} |
} else { |
} else { |
Line 554 sub print_dynamic_metadata {
|
Line 556 sub print_dynamic_metadata {
|
# |
# |
my $description = 'Dynamic Metadata (updated periodically)'; |
my $description = 'Dynamic Metadata (updated periodically)'; |
$r->print('<h3>'.&mt($description).'</h3>'. |
$r->print('<h3>'.&mt($description).'</h3>'. |
&mt('Processing').' ...<br />'); |
&mt('Processing')); |
$r->rflush(); |
$r->rflush(); |
my %items=&fieldnames(); |
my %items=&fieldnames(); |
my %dynmeta=&dynamicmeta($uri); |
my %dynmeta=&dynamicmeta($uri); |
# |
# |
# General Access and Usage Statistics |
# General Access and Usage Statistics |
$r->print('<h4>'.&mt('Access and Usage Statistics').'</h4>'. |
if (exists($dynmeta{'count'}) || |
'<table cellspacing=2 border=0>'); |
exists($dynmeta{'sequsage'}) || |
foreach ('count', |
exists($dynmeta{'comefrom'}) || |
'sequsage','sequsage_list', |
exists($dynmeta{'goto'}) || |
'comefrom','comefrom_list', |
exists($dynmeta{'course'})) { |
'goto','goto_list', |
$r->print('<h4>'.&mt('Access and Usage Statistics').'</h4>'. |
'course','course_list') { |
'<table cellspacing=2 border=0>'); |
$r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td>'. |
foreach ('count', |
'<td bgcolor="#CCCCCC">'. |
'sequsage','sequsage_list', |
&prettyprint($_,$dynmeta{$_})."</td></tr>\n"); |
'comefrom','comefrom_list', |
|
'goto','goto_list', |
|
'course','course_list') { |
|
$r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td>'. |
|
'<td bgcolor="#CCCCCC">'. |
|
&prettyprint($_,$dynmeta{$_})."</td></tr>\n"); |
|
} |
|
$r->print('</table>'); |
|
} else { |
|
$r->print('<h4>'.&mt('No Access or Usages Statistics are available for this resource.').'</h4>'); |
} |
} |
$r->print('</table>'); |
|
# |
# |
# Assessment statistics |
# Assessment statistics |
if ($uri=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
if ($uri=~/\.(problem|exam|quiz|assess|survey|form)$/ && |
|
(exists($dynmeta{'stdno'}) || |
|
exists($dynmeta{'avetries'}) || |
|
exists($dynmeta{'difficulty'}))) { |
# This is an assessment, print assessment data |
# This is an assessment, print assessment data |
$r->print( |
$r->print( |
'<h4>'.&mt('Assessment Statistical Data').'</h4>'. |
'<h4>'.&mt('Assessment Statistical Data').'</h4>'. |
Line 585 sub print_dynamic_metadata {
|
Line 598 sub print_dynamic_metadata {
|
&prettyprint($_,$dynmeta{$_})."</td></tr>\n"); |
&prettyprint($_,$dynmeta{$_})."</td></tr>\n"); |
} |
} |
$r->print('</table>'); |
$r->print('</table>'); |
|
} else { |
|
$r->print('<h4>'.&mt('No Assessment Statistical Data is available for this resource').'</h4>'); |
} |
} |
|
if (exists($dynmeta{'clear'}) || |
$r->print('<h4>'.&mt('Evaluation Data').'</h4>'. |
exists($dynmeta{'depth'}) || |
'<table cellspacing=2 border=0>'); |
exists($dynmeta{'helpful'}) || |
foreach ('clear','depth','helpful','correct','technical') { |
exists($dynmeta{'correct'}) || |
$r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td>'. |
exists($dynmeta{'technical'})){ |
'<td bgcolor="#CCCCCC">'. |
$r->print('<h4>'.&mt('Evaluation Data').'</h4>'. |
&prettyprint($_,$dynmeta{$_})."</td></tr>\n"); |
'<table cellspacing=2 border=0>'); |
|
foreach ('clear','depth','helpful','correct','technical') { |
|
$r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td>'. |
|
'<td bgcolor="#CCCCCC">'. |
|
&prettyprint($_,$dynmeta{$_})."</td></tr>\n"); |
|
} |
|
$r->print('</table>'); |
|
} else { |
|
$r->print('<h4>'.&mt('No Evaluation Data is available for this resource.').'</h4>'); |
} |
} |
$r->print('</table>'); |
|
$uri=~/^\/res\/(\w+)\/(\w+)\//; |
$uri=~/^\/res\/(\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('<h4>'.&mt('Evaluation Comments').' ('. |
if (exists($dynmeta{'comments'})) { |
&mt('visible to author and co-authors only'). |
$r->print('<h4>'.&mt('Evaluation Comments').' ('. |
')</h4>'. |
&mt('visible to author and co-authors only'). |
'<blockquote>'.$dynmeta{'comments'}.'</blockquote>'); |
')</h4>'. |
$r->print('<a name="bombs" /><h4>'.&mt('Error Messages').' ('. |
'<blockquote>'.$dynmeta{'comments'}.'</blockquote>'); |
&mt('visible to author and co-authors only').')'. |
} else { |
'</h4>'. |
$r->print('<h4>'.&mt('There are no Evaluation Comments on this resource.').'</h4>'); |
&Apache::lonmsg::retrieve_author_res_msg($uri)); |
} |
|
my $bombs = &Apache::lonmsg::retrieve_author_res_msg($uri); |
|
if (defined($bombs) && $bombs ne '') { |
|
$r->print('<a name="bombs" /><h4>'.&mt('Error Messages').' ('. |
|
&mt('visible to author and co-authors only').')'. |
|
'</h4>'.$bombs); |
|
} else { |
|
$r->print('<h4>'.&mt('There are currently no Error Messages for this resource.').'</h4>'); |
|
} |
} |
} |
# |
# |
# All other stuff |
# All other stuff |