loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.74, 2003/08/16 18:48:24	version 1.76, 2003/09/23 00:26:10
Line 86 my @Omit = ();	Line 86 my @Omit = ();
sub handler {	sub handler {
my $r = shift;	my $r = shift;
my $c = $r->connection();	my $c = $r->connection();
$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
&Apache::loncommon::no_cache($r);	&Apache::loncommon::no_cache($r);
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;
Line 551 sub scanDir {	Line 551 sub scanDir {
my $fext = pop @fileparts;	my $fext = pop @fileparts;
my $ov = pop @fileparts;	my $ov = pop @fileparts;
my $fname = join ('.',@fileparts,$fext);	my $fname = join ('.',@fileparts,$fext);
next if (grep /\Q$fname\E/,@list and $ov =~ /\d+/);	next if (grep /\Q$fname\E/,@list and $ov =~ /^\d+$/);
}	}
}	}