--- loncom/interface/lonindexer.pm 2004/03/26 19:35:59 1.94
+++ loncom/interface/lonindexer.pm 2004/03/29 21:18:00 1.96
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Directory Indexer
#
-# $Id: lonindexer.pm,v 1.94 2004/03/26 19:35:59 www Exp $
+# $Id: lonindexer.pm,v 1.96 2004/03/29 21:18:00 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -573,6 +573,7 @@ sub scanDir {
next if($strip =~ /.*\.meta$/ | $obs eq '1');
my (@fileparts) = split(/\./,$strip);
if ($hash{'display_attrs_9'} != 1) {
+# if not all versions to be shown
if (scalar(@fileparts) >= 3) {
my $fext = pop @fileparts;
my $ov = pop @fileparts;
@@ -591,7 +592,7 @@ sub scanDir {
$curdir = $startdir;
}
my $diropen = 'closed';
- if (($dirptr&$testdir) or ($dom =~ /^(domain|user)$/)) {
+ if (($dirptr&$testdir) or ($dom =~ /^(domain|user)$/) or ($compuri=~/\.(sequence|page)\/$/)) {
while (my ($key,$val)= each %dupdirs) {
if ($key eq $compuri and $val eq "open") {
$diropen = "opened";
@@ -670,7 +671,7 @@ sub match_ext {
next if ($unpackline[0] eq '..');
my @filecom = split (/\./,$unpackline[0]);
my $fext = pop(@filecom);
- my $fnptr = $unpackline[3]&$dirptr;
+ my $fnptr = ($unpackline[3]&$dirptr) || ($fext=~/\.(page|sequence)$/);
if ($fnptr == 0 and $unpackline[3] ne "") {
my $embstyle = &Apache::loncommon::fileembstyle($fext);
push @trimlist,$line if (defined($embstyle) &&
@@ -813,8 +814,7 @@ sub display_line {
$r->print("".
"\n");
$r->print("