Index: openacs-4/packages/dotlrn/tcl/apm-callback-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/apm-callback-procs.xql,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/dotlrn/tcl/apm-callback-procs.xql	15 May 2007 20:14:25 -0000	1.2
+++ openacs-4/packages/dotlrn/tcl/apm-callback-procs.xql	30 Jan 2009 03:46:22 -0000	1.3
@@ -27,4 +27,21 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="dotlrn::apm::after_upgrade.update_community_supertype">
+    <querytext>
+      update acs_object_types
+      set supertype = 'application_group'
+      where object_type = 'dotlrn_community'
+    </querytext>
+  </fullquery>
+
+  <fullquery name="dotlrn::apm::after_upgrade.insert_application_group_rows">
+    <querytext>
+      insert into application_groups
+        (group_id, package_id)
+      select community_id, package_id
+      from dotlrn_communities
+    </querytext>
+  </fullquery>
+
 </queryset>