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+$/); |
} |
} |
} |
} |
|
|