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

Diff for /loncom/publisher/lonpubdir.pm between versions 1.155 and 1.158

version 1.155, 2014/06/20 18:00:51 version 1.158, 2014/06/29 03:33:23
Line 88  sub handler { Line 88  sub handler {
     my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom);      my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom);
   
     &startpage($r, $uname, $udom, $thisdisfn);  # Put out the start of page.      &startpage($r, $uname, $udom, $thisdisfn);  # Put out the start of page.
   
       if (!-d $fn) {
           if (-e $fn) {
               $r->print('<p class="LC_info">'.&mt('Requested item is a file not a directory.').'</p>');
           } else {
               $r->print('<p class="LC_info">'.&mt('The requested subdirectory does not exist.').'</p>');
           }
           $r->print(&Apache::loncommon::end_page());
           return OK;
       }
       my @files;
       if (opendir(DIR,$fn)) {
           @files = grep(!/^\.+$/,readdir(DIR));
           closedir(DIR);
       } else {
           $r->print('<p class="LC_error">'.&mt('Could not open directory.').'</p>');
           $r->print(&Apache::loncommon::end_page());
           return OK;
       }
   
     &dircontrols($r,$uname,$udom,$thisdisfn);   # Put out actions for directory,       &dircontrols($r,$uname,$udom,$thisdisfn);   # Put out actions for directory, 
                                                 # browse/upload + new file page.                                                  # browse/upload + new file page.
     &resourceactions($r,$uname,$udom,$thisdisfn); # Put out form used for printing/deletion etc.      &resourceactions($r,$uname,$udom,$thisdisfn); # Put out form used for printing/deletion etc.
Line 106  sub handler { Line 126  sub handler {
     my $sortby = $env{'form.sortby'};      my $sortby = $env{'form.sortby'};
     my $sortorder = $env{'form.sortorder'};      my $sortorder = $env{'form.sortorder'};
   
     opendir(DIR,$fn);  
     my @files = readdir(DIR);  
     closedir(DIR);  
   
     if ((@files == 0) && ($thisdisfn =~ m{^/$match_domain/$match_username})) {      if ((@files == 0) && ($thisdisfn =~ m{^/$match_domain/$match_username})) {
         $r->print('<p class="LC_info">'.&mt('This Authoring Space is currently empty.').'</p>');          if ($thisdisfn =~ m{^/$match_domain/$match_username$}) {
               $r->print('<p class="LC_info">'.&mt('This Authoring Space is currently empty.').'</p>');
           } else {
               $r->print('<p class="LC_info">'.&mt('This subdirectory is currently empty.').'</p>');
           }
         $r->print(&Apache::loncommon::end_page());          $r->print(&Apache::loncommon::end_page());
         return OK;          return OK;
     }      }
Line 152  sub handler { Line 172  sub handler {
     foreach my $filename (@files) {      foreach my $filename (@files) {
         # Skip .DS_Store and hidden files          # Skip .DS_Store and hidden files
         my ($extension) = ($filename=~/\.(\w+)$/);          my ($extension) = ($filename=~/\.(\w+)$/);
         next if (($filename eq '.DS_Store')           next if (($filename eq '.DS_Store')
                 || &Apache::loncommon::fileembstyle($extension) eq 'hdn');                  || (&Apache::loncommon::fileembstyle($extension) eq 'hdn')
                   || ($filename =~ /^\._/));
   
         my ($cmode,$csize,$cmtime)=(stat($fn.'/'.$filename))[2,7,9];          my ($cmode,$csize,$cmtime)=(stat($fn.'/'.$filename))[2,7,9];
         my $linkfilename = &HTML::Entities::encode('/priv'.$thisdisfn.'/'.$filename,'<>&"');          my $linkfilename = &HTML::Entities::encode('/priv'.$thisdisfn.'/'.$filename,'<>&"');
Removed from v.1.155  
changed lines
  Added in v.1.158

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