version 1.33, 2003/07/15 19:04:31
|
version 1.34, 2003/09/09 18:46:28
|
Line 70 sub dynamicmeta {
|
Line 70 sub dynamicmeta {
|
'usage' => 'cnt' |
'usage' => 'cnt' |
); |
); |
foreach (keys %evaldata) { |
foreach (keys %evaldata) { |
my ($item,$purl,$cat)=split(/\_\_\_/,$_); |
my ($item,$purl,$cat)=&Apache::lonnet::decode_symb($_); |
### print "\n".$_.' - '.$item.'<br />'; |
### print "\n".$_.' - '.$item.'<br />'; |
if (defined($cnt{$cat})) { $cnt{$cat}++; } else { $cnt{$cat}=1; } |
if (defined($cnt{$cat})) { $cnt{$cat}++; } else { $cnt{$cat}=1; } |
unless ($listitems{$cat} eq 'app') { |
unless ($listitems{$cat} eq 'app') { |