loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.30, 2001/12/13 13:59:22	version 1.32, 2002/01/17 13:53:45
Line 41	Line 41
# 8/28,10/15,11/28,11/29 Scott Harrison	# 8/28,10/15,11/28,11/29 Scott Harrison
# 11/30 Matthew Hall	# 11/30 Matthew Hall
# 12/11,12/13 Scott Harrison	# 12/11,12/13 Scott Harrison
	# YEAR=2002
	# 1/17 Scott Harrison
#	#
###	###

Line 78 my $extrafield; # default extra table ce	Line 80 my $extrafield; # default extra table ce
my $fnum; # file counter	my $fnum; # file counter
my $dnum; # directory counter	my $dnum; # directory counter

# ---------------------------------------------------------------------- BEGIN
sub BEGIN {
}

# ----------------------------- Handling routine called via Apache and mod_perl	# ----------------------------- Handling routine called via Apache and mod_perl
sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 487 sub match_ext {	Line 485 sub match_ext {
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) &&
$embstyle ne 'hdn' );	($embstyle ne 'hdn' or $fext eq 'meta'));
} else {	} else {
push @trimlist,$line;	push @trimlist,$line;
}	}