![[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.317.2.1, 2003/02/01 19:47:37 | version 1.317.2.2, 2003/03/14 21:45:20 |
|---|---|
| Line 3032 sub metadata { | Line 3032 sub metadata { |
| $value.=' [Part: '.$part.']'; | $value.=' [Part: '.$part.']'; |
| } | } |
| my $unikey='parameter'.$keyroot.'_'.$name; | my $unikey='parameter'.$keyroot.'_'.$name; |
| if ($subp eq 'default') { $unikey='parameter_0_'.$name; } | |
| $metathesekeys{$unikey}=1; | $metathesekeys{$unikey}=1; |
| $metacache{$uri.':'.$unikey.'.part'}=$part; | $metacache{$uri.':'.$unikey.'.part'}=$part; |
| unless | unless |