version 1.42, 2003/10/08 14:15:03
|
version 1.43, 2003/10/08 19:38:41
|
Line 154 sub dynamicmeta {
|
Line 154 sub dynamicmeta {
|
my $regexp=$url; |
my $regexp=$url; |
$regexp=~s/(\W)/\\$1/g; |
$regexp=~s/(\W)/\\$1/g; |
$regexp='___'.$regexp.'___([a-z]+)$'; |
$regexp='___'.$regexp.'___([a-z]+)$'; |
while (my ($key,$value)=each %evaldata) { |
while (my ($esckey,$value)=each %evaldata) { |
$key=&unescape($key); |
$key=&unescape($esckey); |
if ($key=~/$regexp/) { |
if ($key=~/$regexp/) { |
my $ctype=$1; |
my $ctype=$1; |
if (defined($cnt{$ctype})) { |
if (defined($cnt{$ctype})) { |
Line 179 sub dynamicmeta {
|
Line 179 sub dynamicmeta {
|
} |
} |
} |
} |
if ($ctype ne 'count') { |
if ($ctype ne 'count') { |
$newevaldata{$_}=$value; |
$newevaldata{$esckey}=$value; |
} |
} |
} |
} |
} |
} |