Index: openacs-4/packages/lorsm/tcl/lorsm-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/tcl/lorsm-install-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/lorsm/tcl/lorsm-install-procs.tcl	9 Dec 2006 01:34:47 -0000	1.9
+++ openacs-4/packages/lorsm/tcl/lorsm-install-procs.tcl	7 Oct 2007 22:45:53 -0000	1.10
@@ -32,26 +32,9 @@
     Install the lorsm-templates
     
 } {
-    # location where the templates file are
-    set temp_location "[acs_root_dir]/packages/lorsm/templates"
+    
+    lorsm::install::templates
 
-    # location where we are going to copy the files to 
-    set temp_dir "[acs_root_dir]/templates"
-
-    # check if the template directory exists
-    # Otherwise create it. 
-    if {![file exists $temp_dir]} {
-
-	file mkdir $temp_dir
-
-    }
-
-    foreach file [glob -nocomplain [file join $temp_location lorsm-*]] {
-
-	file copy -force $file $temp_dir
-
-    }
-
     # by the moment we only have tree format presentations and there is no
     # way (by the moment) to add more dinamically, so we create them with an non dynamic id
 
@@ -93,10 +76,32 @@
 	-to_version_name $to_version_name \
 	-spec {
 	    0.7d 0.8d {
-		set pretty_name "[_ lorsm.lt_With_Progress_Bar]"
-		db_dml create_no_index_format {
-		    insert into lorsm_course_presentation_formats values (-4,:pretty_name,'progress-bar','delivery-progress-bar')
-		}
+            set pretty_name "[_ lorsm.lt_With_Progress_Bar]"
+            db_dml create_no_index_format {
+		    inse    rt into lorsm_course_presentation_formats values (-4,:pretty_name,'progress-bar','delivery-progress-bar')
+            }
 	    }
+        0.8d1 0.8d2 {
+            lorsm::install::templates
+        }
 	}
 }
+
+ad_proc -private lorsm::install::templates {
+} {
+    # location where the templates file are
+    set temp_location "[acs_root_dir]/packages/lorsm/templates"
+
+    # location where we are going to copy the files to 
+    set temp_dir "[acs_root_dir]/templates"
+
+    # check if the template directory exists
+    # Otherwise create it. 
+    if {![file exists $temp_dir]} {
+        file mkdir $temp_dir
+    }
+
+    foreach file [glob -nocomplain [file join $temp_location lorsm-*]] {
+        file copy -force $file $temp_dir
+    }
+}