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

[banghart]

banghart		Mon Jan 15 17:53:00 2007 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  	Bug 5139. Don't repeat undelete confirmation.
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.357 loncom/interface/lonparmset.pm:1.358
--- loncom/interface/lonparmset.pm:1.357	Fri Jan 12 15:04:16 2007
+++ loncom/interface/lonparmset.pm	Mon Jan 15 17:53:00 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.357 2007/01/12 20:04:16 raeburn Exp $
+# $Id: lonparmset.pm,v 1.358 2007/01/15 22:53:00 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3330,7 +3330,7 @@
     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//;
@@ -3359,7 +3359,7 @@
             $r->print('You may undelete previously deleted fields.<br />Check those you wish to undelete and click Undelete.<br />');
             $r->print('<form method="post" action="">');
             foreach my $key(keys(%$fields)) {
-                $r->print('<input type="checkbox" name="undelete" value="'.$key.'" />'.$$fields{$key}.'<br /');
+                $r->print('<input type="checkbox" name="undeletefield" value="'.$key.'" />'.$$fields{$key}.'<br /');
             }
             $r->print('<input type="submit" name="undelete" value="Undelete" />');
             $r->print('</form>');