loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.158, 2014/06/29 03:33:23	version 1.159, 2014/07/31 19:25:39
Line 170 sub handler {	Line 170 sub handler {
my $dirptr=16384; # Mask indicating a directory in stat.cmode.	my $dirptr=16384; # Mask indicating a directory in stat.cmode.
my $filehash = {};	my $filehash = {};
foreach my $filename (@files) {	foreach my $filename (@files) {
# Skip .DS_Store and hidden files	# Skip .DS_Store, .DAV and hidden files
my ($extension) = ($filename=~/\.(\w+)$/);	my ($extension) = ($filename=~/\.(\w+)$/);
next if (($filename eq '.DS_Store')	next if (($filename eq '.DS_Store')
	\|\| ($filename eq '.DAV')
\|\| (&Apache::loncommon::fileembstyle($extension) eq 'hdn')	\|\| (&Apache::loncommon::fileembstyle($extension) eq 'hdn')
\|\| ($filename =~ /^\._/));	\|\| ($filename =~ /^\._/));