--- loncom/interface/loncommon.pm	2008/03/18 23:00:51	1.636.2.3
+++ loncom/interface/loncommon.pm	2008/01/22 22:37:18	1.637
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.636.2.3 2008/03/18 23:00:51 raeburn Exp $
+# $Id: loncommon.pm,v 1.637 2008/01/22 22:37:18 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4004,10 +4004,10 @@ ENDROLE
 		$lastitem = $thisdisfn;
 	    }
 	    $titleinfo = 
-		&Apache::loncommon::help_open_menu('','',3,'Authoring')
-		.'<b>'.&mt('Construction Space').'</b>:&nbsp;'
-		.'<form name="dirs" method="post" action="'.$formaction.'"'
-		.' target="_top"><tt><b>'
+		&Apache::loncommon::help_open_menu('','',3,'Authoring').
+		'<b>Construction Space</b>:&nbsp;'. 
+		'<form name="dirs" method="post" action="'.$formaction
+		.'" target="_top"><tt><b>'
 		.&Apache::lonhtmlcommon::crumbs($uname.'/'.$parentpath,'_top','/priv','','+1',1)."<font size=\"+1\">$lastitem</font></b></tt><br />"
 		.&Apache::lonhtmlcommon::select_recent('construct','recent','this.form.action=this.form.recent.value;this.form.submit()')
 		.'</form>'
@@ -4498,10 +4498,6 @@ table.LC_aboutme_port tr.LC_even_row td
 table.LC_data_table tr.LC_data_table_highlight td {
   background-color: $data_table_darker;
 }
-table.LC_data_table tr td.LC_leftcol_header {
-  background-color: $data_table_head;
-  font-weight: bold;
-}
 table.LC_data_table tr.LC_empty_row td,
 table.LC_nested tr.LC_empty_row td {
   background-color: #FFFFFF;
@@ -8087,26 +8083,19 @@ sub construct_course {
 	$outcome .= $clonemsg.$linefeed;
 	my %oldcenv=&Apache::lonnet::dump('environment',$$crsudom,$$crsunum);
 # Copy all files
-	&Apache::lonclonecourse::copycoursefiles($cloneid,$$courseid);
+	&Apache::lonclonecourse::copycoursefiles($cloneid,$$courseid,$args->{'datemode'},$args->{'dateshift'});
 # Restore URL
 	$cenv{'url'}=$oldcenv{'url'};
 # Restore title
 	$cenv{'description'}=$oldcenv{'description'};
+# restore grading mode
+	if (defined($oldcenv{'grading'})) {
+	    $cenv{'grading'}=$oldcenv{'grading'};
+	}
 # Mark as cloned
 	$cenv{'clonedfrom'}=$cloneid;
-# Need to clone grading mode
-        my %newenv=&Apache::lonnet::get('environment',['grading'],$$crsudom,$$crsunum);
-        $cenv{'grading'}=$newenv{'grading'};
-# Do not clone these environment entries
-        &Apache::lonnet::del('environment',
-                  ['default_enrollment_start_date',
-                   'default_enrollment_end_date',
-                   'question.email',
-                   'policy.email',
-                   'comment.email',
-                   'pch.users.denied',
-                   'plc.users.denied'],
-                   $$crsudom,$$crsunum);
+	delete($cenv{'default_enrollment_start_date'});
+	delete($cenv{'default_enrollment_end_date'});
     }
 
 #