[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: loncom(version_0_5_1) /interface lonparmset.pm
From:       albertel <lon-capa-cvs () mail ! lon-capa ! org>
Date:       2002-08-29 3:57:45
Message-ID: cvsalbertel1030593465 () cvsserver
[Download RAW message or body]

albertel		Wed Aug 28 23:57:45 2002 EDT

  Modified files:              (Branch: version_0_5_1)
    /loncom/interface	lonparmset.pm 
  Log:
  - backport of 1.65 changes
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.61 loncom/interface/lonparmset.pm:1.61.2.1
--- loncom/interface/lonparmset.pm:1.61	Fri Aug 16 16:47:26 2002
+++ loncom/interface/lonparmset.pm	Wed Aug 28 23:57:45 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.61 2002/08/16 20:47:26 albertel Exp $
+# $Id: lonparmset.pm,v 1.61.2.1 2002/08/29 03:57:45 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -591,7 +591,7 @@
 		$ids[$#ids+1]=$id;
 		$typep{$id}=$1;
 		$keyp{$id}='';
-		foreach (split(/\,/,&Apache::lonnet::metadata($srcf,'keys'))) {
+		foreach (split(/\,/,&Apache::lonnet::metadata($srcf,'allpossiblekeys'))) {
 		  if ($_=~/^parameter\_(.*)/) {
                     my $key=$_;
                     my $allkey=$1;



[prev in list] [next in list] [prev in thread] [next in thread]