--- loncom/interface/lonparmset.pm	2014/02/26 03:34:01	1.522.2.13
+++ loncom/interface/lonparmset.pm	2014/06/12 22:35:13	1.522.2.15
@@ -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.15 2014/06/12 22:35:13 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1382,8 +1382,8 @@ sub lookUpTableParameter {
         'contentopen' => 'time_settings',
         'contentclose' => 'time_settings',
         'discussend' => 'time_settings',
-	'printopendate' => 'time_settings',
-	'printclosedate' => 'time_settings',
+	'printstartdate' => 'time_settings',
+	'printenddate' => 'time_settings',
         'weight' => 'grading',
         'handgrade' => 'grading',
         'maxtries' => 'tries',
@@ -1970,8 +1970,8 @@ sub standardkeyorder {
         'parameter_0_discussend' => 19,
         'parameter_0_discusshide' => 20,
         'parameter_0_discussvote' => 21,
-	'parameter_0_printopendate'  =>  22,
-	'parameter_0_printclosedate' =>  23);
+	'parameter_0_printstartdate'  =>  22,
+	'parameter_0_printenddate' =>  23);
 }
 
 
@@ -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) ||