[BACK]Return to lonmeta.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmeta.pm between versions 1.48 and 1.49

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(
Removed from v.1.48  
changed lines
  Added in v.1.49

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>