version 1.49, 2003/12/30 14:57:49
|
version 1.50, 2003/12/30 20:39:30
|
Line 433 sub handler {
|
Line 433 sub handler {
|
# --------------------------------------------------------------- Render Output |
# --------------------------------------------------------------- Render Output |
# displayed url |
# displayed url |
my ($thisversion)=($uri=~/\.(\d+)\.(\w+)\.meta$/); |
my ($thisversion)=($uri=~/\.(\d+)\.(\w+)\.meta$/); |
|
$uri=~s/\.meta$//; |
my $disuri=&Apache::lonnet::clutter($uri); |
my $disuri=&Apache::lonnet::clutter($uri); |
$disuri=~s/\.meta$//; |
|
$disuri=&Apache::lonhtmlcommon::crumbs($disuri); |
$disuri=&Apache::lonhtmlcommon::crumbs($disuri); |
# version |
# version |
my $currentversion=&Apache::lonnet::getversion($disuri); |
my $currentversion=&Apache::lonnet::getversion($disuri); |
Line 526 ENDHEAD
|
Line 526 ENDHEAD
|
&prettyprint($dynmeta{$_})."</td></tr>\n"); |
&prettyprint($dynmeta{$_})."</td></tr>\n"); |
} |
} |
$r->print('</table>'); |
$r->print('</table>'); |
$disuri=~/^(\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( |
$r->print('<h4>'.&mt('Evaluation Comments').' ('. |
'<h4>'.&mt('Evaluation Comments').' ('. |
|
&mt('visible to author and co-authors only').')</h4>'. |
&mt('visible to author and co-authors only').')</h4>'. |
'<blockquote>'.$dynmeta{'comments'}.'</blockquote>'); |
'<blockquote>'.$dynmeta{'comments'}.'</blockquote>'); |
$r->print('<h4>'.&mt('Error Messages').' ('. |
$r->print('<h4>'.&mt('Error Messages').' ('. |
&mt('visible to author and co-authors only').')</h4>'. |
&mt('visible to author and co-authors only').')</h4>'. |
&Apache::lonmsg::retrieve_author_res_msg($2,$1,$disuri)); |
&Apache::lonmsg::retrieve_author_res_msg($2,$1,$uri)); |
} |
} |
# ------------------------------------------------------------- All other stuff |
# ------------------------------------------------------------- All other stuff |
$r->print( |
$r->print( |