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

[raeburn]

raeburn		Mon Jun  9 20:56:38 2014 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/interface	lonparmset.pm 
  Log:
  - For 2.11
    - Backport 1.544.
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.522.2.13 loncom/interface/lonparmset.pm:1.522.2.14
--- loncom/interface/lonparmset.pm:1.522.2.13	Wed Feb 26 03:34:01 2014
+++ loncom/interface/lonparmset.pm	Mon Jun  9 20:56:37 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.522.2.13 2014/02/26 03:34:01 raeburn Exp $
+# $Id: lonparmset.pm,v 1.522.2.14 2014/06/09 20:56:37 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2176,9 +2176,9 @@
                 $name = $1;
                 my $val = $values[$i];
                 if ($name eq 'examcode') {
-                   if (&Apache::lonnet::validCODE($values[$i])) {
-                       $val = 'valid';
-                   }
+                    if (&Apache::lonnet::validCODE($values[$i])) {
+                        $val = 'valid';
+                    }
                 }
                 $needsrelease =
                     $Apache::lonnet::needsrelease{"parameter:$name:$val"};
@@ -2189,7 +2189,6 @@
                     }
                     $needsnewer = &parameter_releasecheck($name,$val,
                                                           $needsrelease,
-                                                          $chostname,
                                                           $cmajor,$cminor);
                 }
             }
@@ -2852,8 +2851,7 @@
                     }
                     $needsnewer = &parameter_releasecheck($name,$data,
                                                           $needsrelease,
-                                                          $chostname,$cmajor,
-                                                          $cminor);
+                                                          $cmajor,$cminor);
                 }
                 if ($needsnewer) {
                     $r->print('<br />'.&oldversion_warning($name,$data,
@@ -3207,8 +3205,7 @@
                     $got_chostname = 1;
                 }
                 my $needsnewer=&parameter_releasecheck($name,$parmval,$needsrelease,
-                                                       $chostname,$cmajor,
-                                                       $cminor);
+                                                       $cmajor,$cminor);
                 if ($needsnewer) {
                     $skiptype{$parmval} = 1;
                 }
@@ -4647,7 +4644,7 @@
 }
 
 sub parameter_releasecheck {
-    my ($name,$value,$needsrelease,$chostname,$cmajor,$cminor) = @_;
+    my ($name,$value,$needsrelease,$cmajor,$cminor) = @_;
     my $needsnewer;
     my ($needsmajor,$needsminor) = split(/\./,$needsrelease);
     if (($cmajor < $needsmajor) ||