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

albertel lon-capa-cvs-allow@mail.lon-capa.org
Sat, 01 Dec 2007 03:45:19 -0000


albertel		Fri Nov 30 22:45:19 2007 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  - elminate double declaration
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.387 loncom/interface/lonparmset.pm:1.388
--- loncom/interface/lonparmset.pm:1.387	Fri Nov 16 21:50:49 2007
+++ loncom/interface/lonparmset.pm	Fri Nov 30 22:45:17 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.387 2007/11/17 02:50:49 albertel Exp $
+# $Id: lonparmset.pm,v 1.388 2007/12/01 03:45:17 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2599,8 +2599,8 @@
 	$realm=~s/\.type//;
     }
     # split into resource+part and parameter name
-    my ($res, $parm) = ($realm=~/^(.*)\.(.*)$/);
-    my ($res, $part) = ($res  =~/^(.*)\.(.*)$/);
+    my ($res,    $parm) = ($realm=~/^(.*)\.(.*)$/);
+       ($res, my $part) = ($res  =~/^(.*)\.(.*)$/);
     return ($student,$res,$part,$parm);
 }