![[BACK]](/icons/back.gif){kind=icon}
Return to lonparmset.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to lonparmset.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.64, 2002/08/21 17:18:08 | version 1.65, 2002/08/28 19:48:57 |
|---|---|
| Line 496 sub extractResourceInformation { | Line 496 sub extractResourceInformation { |
| $$ids[$#$ids+1]=$id; | $$ids[$#$ids+1]=$id; |
| $$typep{$id}=$1; | $$typep{$id}=$1; |
| $$keyp{$id}=''; | $$keyp{$id}=''; |
| foreach (split(/\,/,&Apache::lonnet::metadata($srcf,'keys'))) { | foreach (split(/\,/,&Apache::lonnet::metadata($srcf,'allpossiblekeys'))) { |
| if ($_=~/^parameter\_(.*)/) { | if ($_=~/^parameter\_(.*)/) { |
| my $key=$_; | my $key=$_; |
| my $allkey=$1; | my $allkey=$1; |