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; |