--- loncom/interface/lonparmset.pm	2013/12/13 23:39:51	1.522.2.11
+++ 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.11 2013/12/13 23:39:51 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
 #
@@ -145,7 +145,7 @@ Input: See list below
 
 =item * B<env{'user.domain'}> : Domain of current user.
 
-=item * B<env{"request.course.fn"} : Course
+=item * B<env{"request.course.fn"}> : Course
 
 =back
 
@@ -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;
                 }
@@ -3644,11 +3641,17 @@ sub date_shift_two {
     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Shift');
     $r->print($start_page.$breadcrumbs);
     my $timeshifted=&Apache::lonhtmlcommon::get_date_from_form('timeshifted');
-    $r->print(&mt('Shifting all dates such that [_1] becomes [_2]',
+    $r->print('<h2>'.&mt('Shift Dates').'</h2>'.
+              '<p>'.&mt('Shifting all dates such that [_1] becomes [_2]',
               &Apache::lonlocal::locallocaltime($env{'form.timebase'}),
-              &Apache::lonlocal::locallocaltime($timeshifted)));
+              &Apache::lonlocal::locallocaltime($timeshifted)).'</p>');
     my $delta=$timeshifted-$env{'form.timebase'};
     &dateshift($delta);
+    $r->print(
+        &Apache::lonhtmlcommon::confirm_success(&mt('Done')).
+        '<br /><br />'.
+        &Apache::lonhtmlcommon::actionbox(
+            ['<a href="/adm/parmset">'.&mt('Content and Problem Settings').'</a>']));
     $r->print(&Apache::loncommon::end_page());
 }
 
@@ -4641,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) ||