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

raeburn lon-capa-cvs-allow@mail.lon-capa.org
Fri, 18 Jan 2008 17:51:22 -0000


raeburn		Fri Jan 18 12:51:22 2008 EDT

  Modified files:              
    /loncom/interface	lonclonecourse.pm 
  Log:
  Bug 5586
  Need to replace old course domain/number with new in URLs in .sequence files which point to group home pages and group aboutme pages (give a listing of viewable group files).
  
  
Index: loncom/interface/lonclonecourse.pm
diff -u loncom/interface/lonclonecourse.pm:1.3 loncom/interface/lonclonecourse.pm:1.4
--- loncom/interface/lonclonecourse.pm:1.3	Wed Aug  1 21:34:07 2007
+++ loncom/interface/lonclonecourse.pm	Fri Jan 18 12:51:18 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # routines for clone a course
 #
-# $Id: lonclonecourse.pm,v 1.3 2007/08/02 01:34:07 albertel Exp $
+# $Id: lonclonecourse.pm,v 1.4 2008/01/18 17:51:18 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -115,7 +115,9 @@
        '/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'
     => '/uploaded/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/',
        '/public/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'
-    => '/public/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/'
+    => '/public/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/',
+       '/adm/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'
+    => '/adm/'.$newcrsdata{'domain'}.'/'.$newcrsdata{'num'}.'/',
             )));
     }
 }