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

banghart lon-capa-cvs@mail.lon-capa.org
Fri, 04 Nov 2005 20:08:10 -0000


banghart		Fri Nov  4 15:08:10 2005 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  	Look for the metadata using the actual env keys. `
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.262 loncom/interface/lonparmset.pm:1.263
--- loncom/interface/lonparmset.pm:1.262	Wed Oct 26 17:42:10 2005
+++ loncom/interface/lonparmset.pm	Fri Nov  4 15:08:09 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.262 2005/10/26 21:42:10 banghart Exp $
+# $Id: lonparmset.pm,v 1.263 2005/11/04 20:08:09 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2753,8 +2753,8 @@
 sub output_row {
     my ($r, $field_name, $field_text) = @_;
     my $output;
-    my $options=$env{'course.'.$env{'request.course.id'}.'.'.$field_name.'.options'};
-    my $values=$env{'course.'.$env{'request.course.id'}.'.'.$field_name.'.values'};
+    my $options=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.options'};
+    my $values=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.values'};
     my $checked;
     unless (defined($options)) {
         $options = 'active,stuadd';