--- loncom/interface/lonparmset.pm 2006/09/27 23:30:12 1.337
+++ loncom/interface/lonparmset.pm 2006/10/07 20:02:16 1.339
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.337 2006/09/27 23:30:12 banghart Exp $
+# $Id: lonparmset.pm,v 1.339 2006/10/07 20:02:16 banghart Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3221,17 +3221,42 @@ sub addmetafield {
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Add Metadata Field'));
my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
- if (exists($env{'form.fieldname'})) {
+ if (exists($env{'form.undelete'})) {
+ my @meta_fields = &Apache::loncommon::get_env_multiple('form.undelete');
+ foreach my $meta_field(@meta_fields) {
+ my $options = $env{'course.'.$env{'request.course.id'}.'.metadata.'.$meta_field.'.options'};
+ $options =~ s/deleted//;
+ $options =~ s/,,/,/;
+ my $put_result = &Apache::lonnet::put('environment',
+ {'metadata.'.$meta_field.'.options'=>$options},$dom,$crs);
+
+ $r->print('Undeleted Metadata Field '.$env{'course.'.$env{'request.course.id'}.'.metadata.'.$meta_field.'.added'}." with result ".$put_result.'
');
+ }
+ $r->print('