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

Diff for /loncom/publisher/lonpubdir.pm between versions 1.153 and 1.154

version 1.153, 2014/05/20 19:53:59 version 1.154, 2014/05/31 13:55:17
Line 40  use Apache::lonlocal; Line 40  use Apache::lonlocal;
 use Apache::lonmsg;  use Apache::lonmsg;
 use Apache::lonmenu;  use Apache::lonmenu;
 use Apache::lonnet;  use Apache::lonnet;
 use LONCAPA;  use LONCAPA qw(:DEFAULT :match);
   
 sub handler {  sub handler {
   
Line 87  sub handler { Line 87  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})) {
           $r->print('<p class="LC_info">'.&mt('This Authoring Space is currently empty.').'</p>');
           $r->print(&Apache::loncommon::end_page());
           return OK;
       }
   
     # Start off the directory table.      # Start off the directory table.
     $r->print(&Apache::loncommon::start_data_table()      $r->print(&Apache::loncommon::start_data_table()
         .&Apache::loncommon::start_data_table_header_row()          .&Apache::loncommon::start_data_table_header_row()
Line 119  sub handler { Line 129  sub handler {
     );      );
   
     my $dirptr=16384; # Mask indicating a directory in stat.cmode.      my $dirptr=16384; # Mask indicating a directory in stat.cmode.
   
     opendir(DIR,$fn);  
     my $filehash = {};      my $filehash = {};
     my @files= readdir(DIR);  
     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+)$/);
Line 221  sub handler { Line 228  sub handler {
         }          }
     }      }
   
     closedir(DIR);  
   
     $r->print( &Apache::loncommon::end_data_table()      $r->print( &Apache::loncommon::end_data_table()
         .&Apache::loncommon::end_page() );          .&Apache::loncommon::end_page() );
   
     return OK;        return OK;
 }  }
   
   
Line 627  sub putdirectory { Line 632  sub putdirectory {
           '<td></td>'.            '<td></td>'.
   "</tr>\n");    "</tr>\n");
     }      }
     return OK;      return;
 }  }
   
 sub getTitle {  sub getTitle {
Line 776  sub putresource { Line 781  sub putresource {
       '<td>'.sprintf("%.1f",$size).'</td>'.        '<td>'.sprintf("%.1f",$size).'</td>'.
       &Apache::loncommon::end_data_table_row()        &Apache::loncommon::end_data_table_row()
     );      );
     return OK;      return;
 }  }
   
 sub create_pubselect {  sub create_pubselect {
Line 829  sub check_for_versions { Line 834  sub check_for_versions {
             $versions ++;                      $versions ++;        
         }          }
     }      }
       closedir(DIR);
     return $versions;      return $versions;
 }  }
   
Removed from v.1.153  
changed lines
  Added in v.1.154

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