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

Diff for /loncom/publisher/lonpubdir.pm between versions 1.62 and 1.63

version 1.62, 2004/07/02 09:41:07 version 1.63, 2004/08/20 16:29:15
Line 318  sub putresource { Line 318  sub putresource {
     my $bgcolor='#FFAA99';      my $bgcolor='#FFAA99';
     my $title=' ';      my $title=' ';
     my $publish_button=&mt('Publish');      my $publish_button=&mt('Publish');
       my $action_buttons=
           '<br /><a target="_top" href="/adm/cfile?action=delete&filename=/~'.
    $uname.'/'.$thisdisfn.'/'.$filename.'">'.
    &mt('Delete').'</a>';
     if (-e $resdir.'/'.$filename) {      if (-e $resdir.'/'.$filename) {
  my ($rdev,$rino,$rmode,$rnlink,   my ($rdev,$rino,$rmode,$rnlink,
     $ruid,$rgid,$rrdev,$rsize,      $ruid,$rgid,$rrdev,$rsize,
Line 332  sub putresource { Line 336  sub putresource {
     if (&Apache::lonnet::metadata($targetdir.'/'.$filename,'obsolete')) {      if (&Apache::lonnet::metadata($targetdir.'/'.$filename,'obsolete')) {
  $status=&mt('Obsolete');   $status=&mt('Obsolete');
                 $bgcolor='#AAAAAA';                  $bgcolor='#AAAAAA';
       } else {
    $action_buttons='';
     }      }
     $title='<a href="/res/'.$targetdir.'/'.$filename.      $title='<a href="/res/'.$targetdir.'/'.$filename.
  '.meta" target=cat>'.   '.meta" target=cat>'.
Line 341  sub putresource { Line 347  sub putresource {
  &mt(&getCopyRightString($targetdir.'/'.$filename)).' '.   &mt(&getCopyRightString($targetdir.'/'.$filename)).' '.
  &mt(&getSourceRightString($targetdir.'/'.$filename));   &mt(&getSourceRightString($targetdir.'/'.$filename));
             $bgcolor='#FFFF77';              $bgcolor='#FFFF77';
       $action_buttons='';
     $title='<a href="/res/'.$targetdir.'/'.$filename.'.meta" target=cat>'.      $title='<a href="/res/'.$targetdir.'/'.$filename.'.meta" target=cat>'.
  &getTitleString($targetdir.'/'.$filename).'</a>';   &getTitleString($targetdir.'/'.$filename).'</a>';
     if (&Apache::loncommon::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') {      if (&Apache::loncommon::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') {
Line 372  sub putresource { Line 379  sub putresource {
       '<img src="'.&Apache::loncommon::icon($filename).'" /></td>').        '<img src="'.&Apache::loncommon::icon($filename).'" /></td>').
       '<td><a target="_parent" href="/adm/publish?filename=/~'.        '<td><a target="_parent" href="/adm/publish?filename=/~'.
       $uname.$thisdisfn.'/'.$filename.'">'.$publish_button.'</a>'.        $uname.$thisdisfn.'/'.$filename.'">'.$publish_button.'</a>'.
         $action_buttons.
       '</td>'.        '</td>'.
       '<td><font face="arial">'.        '<td><font face="arial">'.
       '<a href="'.$linkdir.'/'.$filename.'" target="_top">'.        '<a href="'.$linkdir.'/'.$filename.'" target="_top">'.
Removed from v.1.62  
changed lines
  Added in v.1.63

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