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

Diff for /loncom/publisher/lonpubdir.pm between versions 1.2 and 1.3

version 1.2, 2001/04/03 10:48:08 version 1.3, 2001/04/03 14:52:23
Line 34  sub handler { Line 34  sub handler {
       $fn=$r->filename();        $fn=$r->filename();
   }    }
             
     $fn=~s/\/$//;
   
   unless ($fn) {     unless ($fn) { 
      $r->log_reason($ENV{'user.name'}.' at '.$ENV{'user.domain'}.       $r->log_reason($ENV{'user.name'}.' at '.$ENV{'user.domain'}.
Line 57  sub handler { Line 58  sub handler {
   my $thisdisfn=$fn;    my $thisdisfn=$fn;
   $thisdisfn=~s/^\/home\/$uname\/public_html//;    $thisdisfn=~s/^\/home\/$uname\/public_html//;
       
   $r->print('<h1>Construction Space Directory <tt>'.$thisdisfn.'</tt></h1>');    $r->print('<h1>Construction Space Directory <tt>'.$thisdisfn.'/</tt></h1>');
   
   my $docroot=$r->dir_config('lonDocRoot');    my $docroot=$r->dir_config('lonDocRoot');
   
Line 97  sub handler { Line 98  sub handler {
          '><td><a href="'.$linkdir.'/'.$filename.'">'.$filename.           '><td><a href="'.$linkdir.'/'.$filename.'">'.$filename.
          '</a></td><td>'.localtime($cmtime).'</td><td>'.$status.'</td></tr>');           '</a></td><td>'.localtime($cmtime).'</td><td>'.$status.'</td></tr>');
      } elsif ($cmode&$dirptr) {       } elsif ($cmode&$dirptr) {
          $r->print('<tr bgcolor=#BBBBFF'.           my $disfilename=$filename;
          '><td><a href="'.$linkdir.'/'.$filename.'">'.$filename.           if ($filename eq '..') {
          '</a></td><td>'.localtime($cmtime).'</td><td>&nbsp;</td></tr>');       $disfilename='<i>Parent Directory</i>';
            }
            unless ((($filename eq '..') && ($thisdisfn eq '')) ||
                    ($filename eq '.')) {
              $r->print('<tr bgcolor=#BBBBFF'.
              '><td><a href="'.$linkdir.'/'.$filename.'">'.$disfilename.
              '</a></td><td>'.localtime($cmtime).'</td><td>&nbsp;</td></tr>');
            }
      }       }
   }    }
   closedir(DIR);    closedir(DIR);
Removed from v.1.2  
changed lines
  Added in v.1.3

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