--- loncom/interface/lonindexer.pm 2003/08/16 18:48:24 1.74 +++ loncom/interface/lonindexer.pm 2003/09/23 00:26:10 1.76 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Directory Indexer # -# $Id: lonindexer.pm,v 1.74 2003/08/16 18:48:24 www Exp $ +# $Id: lonindexer.pm,v 1.76 2003/09/23 00:26:10 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -86,7 +86,7 @@ my @Omit = (); sub handler { my $r = shift; my $c = $r->connection(); - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); &Apache::loncommon::no_cache($r); $r->send_http_header; return OK if $r->header_only; @@ -551,7 +551,7 @@ sub scanDir { my $fext = pop @fileparts; my $ov = pop @fileparts; 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+$/); } }