--- loncom/interface/lonparmset.pm	2014/02/26 03:34:01	1.522.2.13
+++ loncom/interface/lonparmset.pm	2014/06/09 20:56:37	1.522.2.14
@@ -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 @@ sub assessparms {
                 $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 @@ sub assessparms {
                     }
                     $needsnewer = &parameter_releasecheck($name,$val,
                                                           $needsrelease,
-                                                          $chostname,
                                                           $cmajor,$cminor);
                 }
             }
@@ -2852,8 +2851,7 @@ sub storedata {
                     }
                     $needsnewer = &parameter_releasecheck($name,$data,
                                                           $needsrelease,
-                                                          $chostname,$cmajor,
-                                                          $cminor);
+                                                          $cmajor,$cminor);
                 }
                 if ($needsnewer) {
                     $r->print('<br />'.&oldversion_warning($name,$data,
@@ -3207,8 +3205,7 @@ sub string_selector {
                     $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_release_vars {
 }
 
 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) ||