version 1.41, 2003/10/07 17:51:38
|
version 1.42, 2003/10/08 14:15:03
|
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]+)$'; |
foreach (keys %evaldata) { |
while (my ($key,$value)=each %evaldata) { |
my $key=&unescape($_); |
$key=&unescape($key); |
if ($key=~/$regexp/) { |
if ($key=~/$regexp/) { |
my $ctype=$1; |
my $ctype=$1; |
if (defined($cnt{$ctype})) { |
if (defined($cnt{$ctype})) { |
Line 165 sub dynamicmeta {
|
Line 165 sub dynamicmeta {
|
} |
} |
unless ($listitems{$ctype} eq 'app') { |
unless ($listitems{$ctype} eq 'app') { |
if (defined($sum{$ctype})) { |
if (defined($sum{$ctype})) { |
$sum{$ctype}+=$evaldata{$_}; |
$sum{$ctype}+=$value; |
} else { |
} else { |
$sum{$ctype}=$evaldata{$_}; |
$sum{$ctype}=$value; |
} |
} |
} else { |
} else { |
if (defined($sum{$ctype})) { |
if (defined($sum{$ctype})) { |
if ($evaldata{$_}) { |
if ($value) { |
$sum{$ctype}.='<hr>'.$evaldata{$_}; |
$sum{$ctype}.='<hr>'.$value; |
} |
} |
} else { |
} else { |
$sum{$ctype}=''.$evaldata{$_}; |
$sum{$ctype}=''.$value; |
} |
} |
} |
} |
if ($ctype ne 'count') { |
if ($ctype ne 'count') { |
$newevaldata{$_}=$evaldata{$_}; |
$newevaldata{$_}=$value; |
} |
} |
} |
} |
} |
} |