[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.51

version 1.48, 2003/12/29 21:17:00 version 1.51, 2003/12/30 22:19:18
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 432  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 525  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('<a name="bombs" /><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($uri));
   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.51

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