![[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.140, 2001/08/07 09:47:53 | version 1.141, 2001/08/07 14:33:53 |
|---|---|
| Line 1879 sub metadata { | Line 1879 sub metadata { |
| } | } |
| my $unikey='parameter'.$keyroot.'_'.$name; | my $unikey='parameter'.$keyroot.'_'.$name; |
| $metathesekeys{$unikey}=1; | $metathesekeys{$unikey}=1; |
| $metacache{$uri.':'.$unikey.'.'.$subp}=$value; | unless |
| (defined($metacache{$uri.':'.$unikey.'.'.$subp})) { | |
| $metacache{$uri.':'.$unikey.'.'.$subp}=$value; | |
| } | |
| } | } |
| } keys %packagetab; | } keys %packagetab; |
| } else { | } else { |