[LON-CAPA-cvs] cvs: loncom /publisher lonpubdir.pm

[raeburn]

raeburn		Mon Jun 23 03:22:40 2014 EDT

  Modified files:              
    /loncom/publisher	lonpubdir.pm 
  Log:
  - Don't display dot underscore files created when copying a file in     
    Mac OS X to a mounted webDAV volume.
  
  
Index: loncom/publisher/lonpubdir.pm
diff -u loncom/publisher/lonpubdir.pm:1.155 loncom/publisher/lonpubdir.pm:1.156
--- loncom/publisher/lonpubdir.pm:1.155	Fri Jun 20 18:00:51 2014
+++ loncom/publisher/lonpubdir.pm	Mon Jun 23 03:22:39 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Authoring Space Directory Lister
 #
-# $Id: lonpubdir.pm,v 1.155 2014/06/20 18:00:51 raeburn Exp $
+# $Id: lonpubdir.pm,v 1.156 2014/06/23 03:22:39 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -152,8 +152,9 @@
     foreach my $filename (@files) {
         # Skip .DS_Store and hidden files
         my ($extension) = ($filename=~/\.(\w+)$/);
-        next if (($filename eq '.DS_Store') 
-                || &Apache::loncommon::fileembstyle($extension) eq 'hdn');
+        next if (($filename eq '.DS_Store')
+                || (&Apache::loncommon::fileembstyle($extension) eq 'hdn')
+                || ($filename =~ /^\._/));
 
         my ($cmode,$csize,$cmtime)=(stat($fn.'/'.$filename))[2,7,9];
         my $linkfilename = &HTML::Entities::encode('/priv'.$thisdisfn.'/'.$filename,'<>&"');