version 1.48, 2003/12/29 21:17:00
|
version 1.49, 2003/12/30 14:57:49
|
Line 37 use Apache::lonmsg;
|
Line 37 use Apache::lonmsg;
|
use Apache::lonpublisher; |
use Apache::lonpublisher; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonmysql; |
use Apache::lonmysql; |
|
use Apache::lonmsg; |
|
|
# MySQL table columns |
# MySQL table columns |
|
|
Line 529 ENDHEAD
|
Line 530 ENDHEAD
|
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').' ('.&mt('visible to author and co-authors only').')</h4>'. |
'<h4>'.&mt('Evaluation Comments').' ('. |
|
&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>'. |
my %errormsgs=&Apache::lonnet::dump('nohist_res_msgs',$1,$2); |
&Apache::lonmsg::retrieve_author_res_msg($2,$1,$disuri)); |
foreach (keys %errormsgs) { |
|
if ($_=~/^\Q$disuri\E\_\d+$/) { |
|
my %content=&Apache::lonmsg::unpackagemsg($errormsgs{$_}); |
|
$r->print('<b>'.$content{'time'}.'</b>: '.$content{'message'}. |
|
'<br />'); |
|
} |
|
} |
|
} |
} |
# ------------------------------------------------------------- All other stuff |
# ------------------------------------------------------------- All other stuff |
$r->print( |
$r->print( |