![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl|
Return to lonnet.pm CVS log | Up to [LON-CAPA] / loncom / lonnet / perl |
| version 1.395, 2003/07/29 05:22:56 | version 1.396, 2003/07/29 05:29:21 |
|---|---|
| Line 3454 sub EXT { | Line 3454 sub EXT { |
| sub packages_tab_default { | sub packages_tab_default { |
| my ($uri,$varname)=@_; | my ($uri,$varname)=@_; |
| &logthis(" $varname"); | |
| my (undef,$part,$name)=split(/\./,$varname); | my (undef,$part,$name)=split(/\./,$varname); |
| my $packages=&metadata($uri,'packages'); | my $packages=&metadata($uri,'packages'); |
| foreach my $package (split(/,/,$packages)) { | foreach my $package (split(/,/,$packages)) { |