Index: openacs-4/packages/chat/chat.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/chat.info,v
diff -u -N -r1.22.2.6 -r1.22.2.7
--- openacs-4/packages/chat/chat.info	5 Mar 2019 12:19:51 -0000	1.22.2.6
+++ openacs-4/packages/chat/chat.info	7 Mar 2019 14:00:04 -0000	1.22.2.7
@@ -9,7 +9,7 @@
     <implements-subsite-p>f</implements-subsite-p>
     <inherit-templates-p>t</inherit-templates-p>
 
-    <version name="6.0.0d3" url="http://openacs.org/repository/download/apm/chat-6.0.0d3.apm">
+    <version name="6.0.0d4" url="http://openacs.org/repository/download/apm/chat-6.0.0d4.apm">
         <owner url="http://www.openacs.org">Peter Alberer</owner>
         <summary>Server based chat with an html and ajax client.</summary>
         <release-date>2019-03-01</release-date>
@@ -22,7 +22,7 @@
         </description>
         <maturity>0</maturity>
 
-        <provides url="chat" version="6.0.0d3"/>
+        <provides url="chat" version="6.0.0d4"/>
         <requires url="acs-kernel" version="5.9.1"/>
         <requires url="xowiki" version="5.10.0d24"/>
 
Index: openacs-4/packages/chat/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/Attic/apm-callback-procs.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/tcl/apm-callback-procs.tcl	7 Mar 2019 14:00:04 -0000	1.1.2.1
@@ -0,0 +1,42 @@
+ad_library {
+
+    APM Callback procs
+
+}
+
+namespace eval chat::apm {}
+
+ad_proc -private chat::apm::upgrade {
+    -from_version_name
+    -to_version_name
+} {
+    Upgrade logics for the chat package
+} {
+    apm_upgrade_logic \
+	-from_version_name $from_version_name \
+	-to_version_name $to_version_name \
+	-spec {
+	    6.0.0d3 6.0.0d4 {
+                ns_write "Deleting obsolete parameters"
+                set parameter_names {
+                    AppletHeight
+                    AppletWidth
+                    DefaultClient
+                    ServerHost
+                    ServerPort
+                    ShowAvatarP
+                }
+                ::xo::dc foreach [subst {
+                    select parameter_id, parameter_name
+                      from apm_parameters
+                    where package_key = 'chat'
+                      and parameter_name in ('[join $parameter_names ']')
+                }] {
+                    apm_parameter_unregister \
+                        -package_key chat $parameter_id
+                    ns_write " - deleting obsolete parameter chat.$parameter_name"
+                }
+                ns_write "Finished!"
+            }
+        }
+}