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