![]() ![]() | ![]() |
version 1.224, 2016/06/18 16:15:38 | version 1.225, 2016/06/19 04:27:50 |
---|---|
Line 710 sub scanDir { | Line 710 sub scanDir { |
#This is a kludge, sorry aboot this | #This is a kludge, sorry aboot this |
my ($strip,$dom,undef,$testdir,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); | my ($strip,$dom,undef,$testdir,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); |
next if (($strip =~ /\.meta$/) || ($obs)); | next if (($strip =~ /\.meta$/) || ($obs)); |
if ($dom ne 'domain') { | |
my ($udom,$uname); | |
if ($dom eq 'user') { | |
($udom) = ($startdir =~ m{^/res/($match_domain)}); | |
$uname = $strip; | |
} else { | |
($udom,$uname) = ($startdir =~ m{^/res/($match_domain)/($match_courseid)}); | |
} | |
if ($udom ne '' && $uname ne '') { | |
# Don't display "course author" directory. | |
next if (&Apache::lonnet::is_course($udom,$uname)); | |
} | |
} | |
my (@fileparts) = split(/\./,$strip); | my (@fileparts) = split(/\./,$strip); |
if ($hash{'display_attrs_9'} != 1) { | if ($hash{'display_attrs_9'} != 1) { |
# if not all versions to be shown | # if not all versions to be shown |