--- loncom/interface/lonparmset.pm 2004/07/15 18:50:37 1.167 +++ loncom/interface/lonparmset.pm 2004/08/27 21:43:09 1.168.2.2 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.167 2004/07/15 18:50:37 albertel Exp $ +# $Id: lonparmset.pm,v 1.168.2.2 2004/08/27 21:43:09 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -585,8 +585,8 @@ sub extractResourceInformation { my $resid=$2; my $id=$mapid.'.'.$resid; my $srcf=$$bighash{$_}; -# if ($srcf=~/\.(problem|exam|quiz|assess|survey|form)$/) { if (1) { + $srcf=~/\.(\w+)$/; $$ids[$#$ids+1]=$id; $$typep{$id}=$1; $$keyp{$id}=''; @@ -595,6 +595,10 @@ sub extractResourceInformation { my $key=$_; my $allkey=$1; $allkey=~s/\_/\./g; + if (&Apache::lonnet::metadata($srcf,$key.'.hidden') eq + 'parm') { + next; #hide hidden things + } my $display= &Apache::lonnet::metadata($srcf,$key.'.display'); my $name=&Apache::lonnet::metadata($srcf,$key.'.name'); my $part= &Apache::lonnet::metadata($srcf,$key.'.part'); @@ -1335,6 +1339,7 @@ ENDMAPONE $r->print('