Index: openacs-4/packages/glossar/tcl/glossar-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/glossar/tcl/glossar-install-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/glossar/tcl/glossar-install-procs.tcl	20 Aug 2005 09:37:51 -0000	1.1
+++ openacs-4/packages/glossar/tcl/glossar-install-procs.tcl	17 Oct 2005 16:26:53 -0000	1.2
@@ -46,4 +46,27 @@
     content::folder::register_content_type -folder_id $folder_id -content_type {gl_glossar} -include_subtypes t
     content::folder::register_content_type -folder_id $folder_id -content_type {gl_glossar_term} -include_subtypes t
 
+}
+
+
+ad_proc -public gl_glossar::install::package_upgrade {
+    {-from_version_name:required}
+    {-to_version_name:required}
+} {
+    Procedure for upgrade Glossar package
+} {
+    apm_upgrade_logic \
+        -from_version_name $from_version_name \
+        -to_version_name $to_version_name \
+	-spec {
+	    0.3d1 0.3d2 {
+		# Create the default objects to map the category trees using the admin UI
+		set package_id [ad_conn package_id]
+
+		package_instantiate_object -package_name acs_object -var_list [list [list new__context_id $package_id] [list new__package_id $package_id] [list new__title "#glossar.from_default_object_id#"]] acs_object]
+    
+	        package_instantiate_object -package_name acs_object -var_list [list [list new__context_id $package_id] [list new__package_id $package_id] [list new__title "#glossar.to_default_object_id#"]] acs_object]
+
+	    }
+	}
 }
\ No newline at end of file