version 1.61, 2003/02/20 19:41:26
|
version 1.62, 2003/03/14 16:12:14
|
Line 519 sub scanDir {
|
Line 519 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 /$fname/,@list and $ov =~ /\d+/); |
next if (grep /\Q$fname\E/,@list and $ov =~ /\d+/); |
} |
} |
} |
} |
|
|
Line 739 sub display_line {
|
Line 739 sub display_line {
|
(!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn'); |
(!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn'); |
# |
# |
$r->print("<tr bgcolor=$fileclr><td nowrap valign='bottom'>"); |
$r->print("<tr bgcolor=$fileclr><td nowrap valign='bottom'>"); |
my $metafile = grep /^$filecom[0]\.meta\&/, @list; |
my $metafile = grep /^\Q$filecom[0]\E\.meta\&/, @list; |
my $title; |
my $title; |
if ($ENV{'form.catalogmode'} eq 'interactive') { |
if ($ENV{'form.catalogmode'} eq 'interactive') { |
$title=$listname; |
$title=$listname; |