loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.95, 2004/03/28 21:01:06	version 1.96, 2004/03/29 21:18:00
Line 592 sub scanDir {	Line 592 sub scanDir {
$curdir = $startdir;	$curdir = $startdir;
}	}
my $diropen = 'closed';	my $diropen = 'closed';
if (($dirptr&$testdir) or ($dom =~ /^(domain\|user)$/) \|\| ($compuri=~/\.(sequence\|page)$/)) {	if (($dirptr&$testdir) or ($dom =~ /^(domain\|user)$/) or ($compuri=~/\.(sequence\|page)\/$/)) {
while (my ($key,$val)= each %dupdirs) {	while (my ($key,$val)= each %dupdirs) {
if ($key eq $compuri and $val eq "open") {	if ($key eq $compuri and $val eq "open") {
$diropen = "opened";	$diropen = "opened";
Line 671 sub match_ext {	Line 671 sub match_ext {
next if ($unpackline[0] eq '..');	next if ($unpackline[0] eq '..');
my @filecom = split (/\./,$unpackline[0]);	my @filecom = split (/\./,$unpackline[0]);
my $fext = pop(@filecom);	my $fext = pop(@filecom);
my $fnptr = $unpackline[3]&$dirptr;	my $fnptr = ($unpackline[3]&$dirptr) \|\| ($fext=~/\.(page\|sequence)$/);
if ($fnptr == 0 and $unpackline[3] ne "") {	if ($fnptr == 0 and $unpackline[3] ne "") {
my $embstyle = &Apache::loncommon::fileembstyle($fext);	my $embstyle = &Apache::loncommon::fileembstyle($fext);
push @trimlist,$line if (defined($embstyle) &&	push @trimlist,$line if (defined($embstyle) &&