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