Index: openacs-4/packages/lorsm/lorsm.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/lorsm.info,v
diff -u -r1.5.2.3 -r1.5.2.4
--- openacs-4/packages/lorsm/lorsm.info	27 May 2005 15:16:22 -0000	1.5.2.3
+++ openacs-4/packages/lorsm/lorsm.info	29 May 2005 16:03:08 -0000	1.5.2.4
@@ -8,18 +8,19 @@
     <singleton-p>f</singleton-p>
     <auto-mount>lorsm</auto-mount>
 
-    <version name="0.6d3" url="http://openacs.org/repository/download/apm/lorsm-0.6d3.apm">
+    <version name="0.6d4" url="http://openacs.org/repository/download/apm/lorsm-0.6d4.apm">
         <owner url="mailto:ernieg@mm.st">Ernie Ghiglione</owner>
         <summary>Application to manage the services from the Learning Object Repository. </summary>
         <release-date>2005-05-27</release-date>
         <description format="text/html">This application manages the services from the Learning Object Repository: upload courses, manage and create metadata, delete resources and courses. </description>
 
-        <provides url="lorsm" version="0.6d3"/>
+        <provides url="lorsm" version="0.6d4"/>
         <requires url="lors" version="0.4d"/>
         <requires url="views" version="0.1d"/>
 
         <callbacks>
             <callback type="after-install"  proc="lorsm::install::package_install"/>
+            <callback type="after-upgrade"  proc="lorsm::install::after_upgrade"/>
         </callbacks>
         <parameters>
         <!-- No version parameters -->
Index: openacs-4/packages/lorsm/catalog/lorsm.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/catalog/lorsm.en_US.ISO-8859-1.xml,v
diff -u -r1.1.2.5 -r1.1.2.6
--- openacs-4/packages/lorsm/catalog/lorsm.en_US.ISO-8859-1.xml	2 Feb 2005 16:13:27 -0000	1.1.2.5
+++ openacs-4/packages/lorsm/catalog/lorsm.en_US.ISO-8859-1.xml	29 May 2005 16:03:08 -0000	1.1.2.6
@@ -97,6 +97,7 @@
   <msg key="Catalog-Entries">Catalog-Entries:</msg>
   <msg key="Catalog_1">Catalog</msg>
   <msg key="Change">Change</msg>
+  <msg key="Classic_Style">Classic Style</msg>
   <msg key="Classification_Entry">Classification Entry</msg>
   <msg key="Classification_MD">Classification MD</msg>
   <msg key="Classifications">Classifications:</msg>
@@ -675,6 +676,8 @@
   <msg key="lt_Were_sorry_but_it_app">We're sorry, but it appears that you do not have the permission to perform this operation.</msg>
   <msg key="lt_Whether_copyright_or_">Whether copyright or other restrictions apply</msg>
   <msg key="lt_Whether_use_of_the_re">Whether use of the resource requires payment</msg>
+  <msg key="lt_With_Bottom_Navigatio">With Bottom Navigation Bar</msg>
+  <msg key="lt_Without_LORSM_Index_S">Without LORSM Index</msg>
   <msg key="lt_You_are_about_to_add_">You are about to add %course_name% to your class.</msg>
   <msg key="lt_You_can_add_courses_a">You can add courses already existing in the repository</msg>
   <msg key="lt_You_have_seen_this_co">You have seen this course</msg>
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.2.2.3 -r1.2.2.4
--- openacs-4/packages/lorsm/tcl/lorsm-install-procs.tcl	27 May 2005 15:16:23 -0000	1.2.2.3
+++ openacs-4/packages/lorsm/tcl/lorsm-install-procs.tcl	29 May 2005 16:03:08 -0000	1.2.2.4
@@ -64,8 +64,43 @@
     }
     
     set pretty_name "[_ lorsm.lt_With_Bottom_Navigatio]"
-    db_dml create_no_index_format {
+    db_dml create_bottom_bar {
 	insert into lorsm_course_presentation_formats values (-3,:pretty_name,'bottom_navigation_bar','delivery-bottom-bar')
     }
 
 }
+
+ad_proc -public lorsm::install::after_upgrade {
+    {-from_version_name:required}
+    {-to_version_name:required}
+} {
+    apm_upgrade_logic \
+        -from_version_name $from_version_name \
+        -to_version_name $to_version_name \
+        -spec {
+            0.6d3 0.6d4 {
+                db_transaction {
+		    set pretty_name "[_ lorsm.Classic_Style]"
+		    db_dml create_default_format {
+			insert into lorsm_course_presentation_formats values (-1,:pretty_name,'default','delivery')
+		    }
+
+		    set pretty_name "[_ lorsm.lt_Without_LORSM_Index_S]"
+		    db_dml create_no_index_format {
+			insert into lorsm_course_presentation_formats values (-2,:pretty_name,'without_index','delivery-no-index')
+		    }
+
+		    set pretty_name "[_ lorsm.lt_With_Bottom_Navigatio]"
+		    db_dml create_bottom_bar {
+			insert into lorsm_course_presentation_formats values (-3,:pretty_name,'bottom_navigation_bar','delivery-bottom-bar')
+		    }
+
+		    # set default for existing courses
+		    db_dml set_default {
+			update ims_cp_manifests
+			set course_presentation_format = -1
+		    }
+		}
+	    }
+	}
+}