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,'<>&"'); |