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

Diff for /loncom/publisher/lonpubdir.pm between versions 1.21 and 1.22

version 1.21, 2002/02/05 12:54:46 version 1.22, 2002/02/05 22:25:00
Line 134  sub handler { Line 134  sub handler {
      if ($cmode&$dirptr) {       if ($cmode&$dirptr) {
  putdirectory($r, $thisdisfn, $linkdir, $filename, $cmtime);   putdirectory($r, $thisdisfn, $linkdir, $filename, $cmtime);
      } elsif (&Apache::loncommon::fileembstyle($extension) ne 'hdn') {       } elsif (&Apache::loncommon::fileembstyle($extension) ne 'hdn') {
          my $status='Unpublished';   putresource($r, $uname, $filename, $thisdisfn, $resdir, 
          my $title=' ';       $targetdir, $linkdir, $cmtime);
          if (-e $resdir.'/'.$filename) {  
             my ($rdev,$rino,$rmode,$rnlink,  
                 $ruid,$rgid,$rrdev,$rsize,  
                 $ratime,$rmtime,$rctime,  
                 $rblksize,$rblocks)=stat($resdir.'/'.$filename);  
             if ($rmtime>=$cmtime) {  
  $status='Published';  
                 $title=  
  '<a href="/res/'.$targetdir.'/'.$filename.'.meta" target=cat>'.  
  &Apache::lonnet::metadata($targetdir.'/'.$filename,'title').'</a>';  
             } else {  
                 $status='Modified';  
                 $title=  
  '<a href="/res/'.$targetdir.'/'.$filename.'.meta" target=cat>'.  
  &Apache::lonnet::metadata($targetdir.'/'.$filename,'title').'</a>';  
                 if   
          (&Apache::loncommon::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') {  
                    $status.='<br><a href="/adm/diff?filename=/~'.$uname.  
                                          $thisdisfn.'/'.$filename.  
        '&versionone=priv" target=cat>Diffs</a>';  
         }  
             }     
             $status.='<br><a href="/adm/retrieve?filename=/~'.$uname.  
               $thisdisfn.'/'.$filename.'" target=cat>Retrieve</a>';  
  }  
  $r->print('<tr>'.  
    '<td><a target="_parent" href="/adm/publish?filename=/~'.  
         $uname.$thisdisfn.'/'.$filename.'">'.'Publish</a>'.  
    '</td>'.  
    '<td>'.  
       '<a href="'.$linkdir.'/'.$filename.'">'.$filename.'</a>'.  
    '</td>'.  
    '<td>'.$title.'</td>'.  
    '<td>'.$status.'</td>'.  
    '<td>'.localtime($cmtime).'</td>'.  
    '</tr>');  
      } else {       } else {
  # "hidden" extension and not a directory, so hide it away.   # "hidden" extension and not a directory, so hide it away.
      }       }
Line 212  sub putdirectory { Line 176  sub putdirectory {
     }      }
     return OK;      return OK;
 }  }
   #
   #   Put a table row for a file resource.
   #
   sub putresource {
       my ($r, $uname, $filename, $thisdisfn, 
    $resdir, $targetdir, $linkdir,
    $cmtime) = @_;
   
       my $status='Unpublished';
       my $title='&nbsp;';
       if (-e $resdir.'/'.$filename) {
    my ($rdev,$rino,$rmode,$rnlink,
       $ruid,$rgid,$rrdev,$rsize,
       $ratime,$rmtime,$rctime,
       $rblksize,$rblocks)=stat($resdir.'/'.$filename);
    if ($rmtime>=$cmtime) {
       $status='Published';
       $title='<a href="/res/'.$targetdir.'/'.$filename.'.meta" target=cat>'.
    &Apache::lonnet::metadata($targetdir.'/'.$filename,'title').'</a>';
    } else {
       $status='Modified';
       $title='<a href="/res/'.$targetdir.'/'.$filename.'.meta" target=cat>'.
    &Apache::lonnet::metadata($targetdir.'/'.$filename,'title').'</a>';
       if (&Apache::loncommon::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') {
    $status.='<br><a href="/adm/diff?filename=/~'.$uname.
       $thisdisfn.'/'.$filename.
       '&versionone=priv" target=cat>Diffs</a>';
       }
    }   
    $status.='<br><a href="/adm/retrieve?filename=/~'.$uname.
       $thisdisfn.'/'.$filename.'" target=cat>Retrieve</a>';
       }
       $r->print('<tr>'.
         '<td><a target="_parent" href="/adm/publish?filename=/~'.
         $uname.$thisdisfn.'/'.$filename.'">'.'Publish</a>'.
         '</td>'.
         '<td>'.
         '<a href="'.$linkdir.'/'.$filename.'">'.$filename.'</a>'.
         '</td>'.
         '<td>'.$title.'</td>'.
         '<td>'.$status.'</td>'.
         '<td>'.localtime($cmtime).'</td>'.
         '</tr>');
       return OK;
   }
   
 1;  1;
 __END__  __END__
   
Removed from v.1.21  
changed lines
  Added in v.1.22

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