![[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.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 |