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

albertel lon-capa-cvs-allow@mail.lon-capa.org
Tue, 07 Aug 2007 02:02:04 -0000


albertel		Mon Aug  6 22:02:04 2007 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  - BUG#5345 -> when selecting all parts need to convert the string all in the list of all parts
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.373 loncom/interface/lonparmset.pm:1.374
--- loncom/interface/lonparmset.pm:1.373	Wed Aug  1 20:42:43 2007
+++ loncom/interface/lonparmset.pm	Mon Aug  6 22:02:01 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.373 2007/08/02 00:42:43 albertel Exp $
+# $Id: lonparmset.pm,v 1.374 2007/08/07 02:02:01 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2727,8 +2727,8 @@
     my @selected_sections = 
 	&Apache::loncommon::get_env_multiple('form.Section');
     @selected_sections = ('all') if (! @selected_sections);
-    foreach (@selected_sections) {
-        if ($_ eq 'all') {
+    foreach my $sec (@selected_sections) {
+        if ($sec eq 'all') {
             @selected_sections = ('all');
         }
     }
@@ -2748,6 +2748,9 @@
 				\%mapp, \%symbp,\%maptitles,\%uris,
 				\%keyorder,\%defkeytype);
 
+    if (grep {$_ eq 'all'} (@psprt)) {
+	@psprt = keys(%allparts);
+    }
 # Menu to select levels, etc
 
     $r->print('<table id="LC_parm_overview_scope">