[LON-CAPA-cvs] cvs: loncom /interface loncreatecourse.pm

[albertel]

albertel		Thu Jan 20 11:30:53 2005 EDT

  Modified files:              
    /loncom/interface	loncreatecourse.pm 
  Log:
  - only modify start and end dates
  
  
Index: loncom/interface/loncreatecourse.pm
diff -u loncom/interface/loncreatecourse.pm:1.74 loncom/interface/loncreatecourse.pm:1.75
--- loncom/interface/loncreatecourse.pm:1.74	Wed Dec  8 18:27:29 2004
+++ loncom/interface/loncreatecourse.pm	Thu Jan 20 11:30:52 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Create a course
 #
-# $Id: loncreatecourse.pm,v 1.74 2004/12/08 23:27:29 raeburn Exp $
+# $Id: loncreatecourse.pm,v 1.75 2005/01/20 16:30:52 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -193,7 +193,7 @@
 	my $thiskey=$_;
 	$thiskey=~s/^$origcrsid/$newcrsid/;
 	$newdata{$thiskey}=$data{$_};
-	if ($data{$_.'.type'}=~/^date/) {
+	if ($data{$_.'.type'}=~/^date_(start|end)$/) {
 	    $newdata{$thiskey}=$newdata{$thiskey}+$delta;
 	}
     }