loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.155, 2014/06/20 18:00:51	version 1.156, 2014/06/23 03:22:39
Line 152 sub handler {	Line 152 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,'<>&"');