--- loncom/interface/lonparmset.pm 2007/01/04 19:34:13 1.356
+++ loncom/interface/lonparmset.pm 2007/01/15 22:53:00 1.358
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.356 2007/01/04 19:34:13 albertel Exp $
+# $Id: lonparmset.pm,v 1.358 2007/01/15 22:53:00 banghart Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3288,7 +3288,7 @@ sub order_meta_fields {
{'metadata.addedorder'=>$ordered_fields},$dom,$crs);
&Apache::lonnet::appenv('course.'.$env{'request.course.id'}.'.metadata.addedorder' => $ordered_fields);
}
- my $fields = &get_added_meta_fieldnames();
+ my $fields = &get_added_meta_fieldnames($env{'request.course.id'});
my $ordered_fields;
my @fields_in_order = split /,/,$env{'course.'.$env{'request.course.id'}.'.metadata.addedorder'};
if (!@fields_in_order) {
@@ -3330,7 +3330,7 @@ sub addmetafield {
my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
if (exists($env{'form.undelete'})) {
- my @meta_fields = &Apache::loncommon::get_env_multiple('form.undelete');
+ my @meta_fields = &Apache::loncommon::get_env_multiple('form.undeletefield');
foreach my $meta_field(@meta_fields) {
my $options = $env{'course.'.$env{'request.course.id'}.'.metadata.'.$meta_field.'.options'};
$options =~ s/deleted//;
@@ -3354,12 +3354,12 @@ sub addmetafield {
'metadata.'.$meta_field.'.options'=>""},$dom,$crs);
$r->print('Added new Metadata Field '.$env{'form.fieldname'}." with result ".$put_result);
} else {
- my $fields = &get_deleted_meta_fieldnames();
+ my $fields = &get_deleted_meta_fieldnames($env{'request.course.id'});
if ($fields) {
$r->print('You may undelete previously deleted fields.
Check those you wish to undelete and click Undelete.
');
$r->print('