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

Diff for /loncom/publisher/lonpubdir.pm between versions 1.45 and 1.47

version 1.45, 2003/11/18 04:08:15 version 1.47, 2003/12/05 14:26:25
Line 277  sub putdirectory { Line 277  sub putdirectory {
     unless (( ($dirname eq '..') && ($reqfile eq '')) ||      unless (( ($dirname eq '..') && ($reqfile eq '')) ||
     ($dirname eq '.')) {      ($dirname eq '.')) {
  $r->print('<tr bgcolor="#CCCCFF">'.   $r->print('<tr bgcolor="#CCCCFF">'.
   '<td>Go to ...</td>'.    '<td>'.&mt('Go to ...').'</td>'.
   '<td><a href="'.$here.'/'.$dirname.'/" target="_top">'.    '<td><a href="'.$here.'/'.$dirname.'/" target="_top">'.
   $disfilename.'</a></td>'.    $disfilename.'</a></td>'.
         '<td>&nbsp;</td>'.          '<td>&nbsp;</td>'.
Line 295  sub putresource { Line 295  sub putresource {
  $resdir, $targetdir, $linkdir,   $resdir, $targetdir, $linkdir,
  $cmtime) = @_;   $cmtime) = @_;
   
     my $status='Unpublished';      my $status=&mt('Unpublished');
     my $bgcolor='#FFCCCC';      my $bgcolor='#FFCCCC';
     my $title='&nbsp;';      my $title='&nbsp;';
     if (-e $resdir.'/'.$filename) {      if (-e $resdir.'/'.$filename) {
Line 337  sub putresource { Line 337  sub putresource {
  $editlink2=' (<a href="'.$linkdir.'/'.$filename.'?forceColoredit=1" target="_top">'.&mt('Edit').'</a>)';   $editlink2=' (<a href="'.$linkdir.'/'.$filename.'?forceColoredit=1" target="_top">'.&mt('Edit').'</a>)';
     }      }
     if ($filename=~/\.(zip|tar|bz2|gz|tar.gz|tar.bz2|tgz)$/) {      if ($filename=~/\.(zip|tar|bz2|gz|tar.gz|tar.bz2|tgz)$/) {
  &Apache::lonnet::appenv('cgi.file' => $filename);   $editlink=' (<a target="_parent" href="/adm/cfile?decompress=/~'.
  $editlink=' (<a href="'.$linkdir.'/'.$filename.'?decompress=1" target="_top">'.&mt('Decompress').'</a>)';        $uname.$thisdisfn.'/'.$filename.'">'.&mt('Decompress').'</a>)';
     }      }
     $r->print('<tr bgcolor="'.$bgcolor.'">'.      $r->print('<tr bgcolor="'.$bgcolor.'">'.
       '<td><a target="_parent" href="/adm/publish?filename=/~'.        '<td><a target="_parent" href="/adm/publish?filename=/~'.
Removed from v.1.45  
changed lines
  Added in v.1.47

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