|
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; |
| } |
} |
| } |
} |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to searchcat.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / metadata_database