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.7 -r1.8
--- openacs-4/packages/lorsm/tcl/lorsm-install-procs.tcl	30 May 2006 16:32:52 -0000	1.7
+++ openacs-4/packages/lorsm/tcl/lorsm-install-procs.tcl	11 Jul 2006 02:22:17 -0000	1.8
@@ -71,6 +71,32 @@
 	insert into lorsm_course_presentation_formats values (-3,:pretty_name,'bottom_navigation_bar','delivery-bottom-bar')
     }
 
+    set pretty_name "[_ lorsm.lt_With_Progress_Bar]"
+    db_dml create_no_index_format {
+	insert into lorsm_course_presentation_formats values (-3,:pretty_name,'progress-bar','delivery-progress-bar')
+    }
+
     # Service contract implementations - fts 	 
     lorsm::sc::register_implementations
 }
+
+ad_proc -private lorsm::install::after_upgrade {
+    {-from_version_name:required}
+    {-to_version_name:required}
+} {
+
+    Upgrade logic
+    
+} {
+    apm_upgrade_logic \
+	-from_version_name $from_version_name \
+	-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')
+		}
+	    }
+	}
+}
\ No newline at end of file