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

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

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

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