![[BACK]](/icons/back.gif){kind=icon}
Return to lonindexer.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
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 |