Return to lonindexer.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.223, 2014/12/20 15:35:40 | version 1.224, 2016/06/18 16:15:38 |
---|---|
Line 709 sub scanDir { | Line 709 sub scanDir { |
return if ($c->aborted()); | return if ($c->aborted()); |
#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 eq '1'); | next if (($strip =~ /\.meta$/) || ($obs)); |
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 |