[LON-CAPA-cvs] cvs: loncom(version_1_2_X) /interface lonparmset.pm

albertel lon-capa-cvs@mail.lon-capa.org
Tue, 17 Aug 2004 20:32:50 -0000


albertel		Tue Aug 17 16:32:50 2004 EDT

  Modified files:              (Branch: version_1_2_X)
    /loncom/interface	lonparmset.pm 
  Log:
  - backport 1.173
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.168 loncom/interface/lonparmset.pm:1.168.2.1
--- loncom/interface/lonparmset.pm:1.168	Thu Jul 15 15:42:24 2004
+++ loncom/interface/lonparmset.pm	Tue Aug 17 16:32:50 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.168 2004/07/15 19:42:24 matthew Exp $
+# $Id: lonparmset.pm,v 1.168.2.1 2004/08/17 20:32:50 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -585,8 +585,8 @@
 	    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 @@
                     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');