Index: openacs-4/packages/dotlrn-contacts/tcl/dotlrn-contacts-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-contacts/tcl/dotlrn-contacts-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn-contacts/tcl/dotlrn-contacts-procs.tcl	20 Jun 2005 08:20:38 -0000	1.3
+++ openacs-4/packages/dotlrn-contacts/tcl/dotlrn-contacts-procs.tcl	20 Aug 2005 20:33:02 -0000	1.4
@@ -260,3 +260,29 @@
 }
 
 
+ad_proc -private dotlrn_contacts::upgrade {
+    {-from_version_name:required }
+    {-to_version_name:required }
+} {
+    Procedures to upgrade dotlrn-contacts
+    
+    @author Miguel Marin (miguelmarin@viaro.net)
+    @author Viaro Networks www.viaro.net
+} {
+    apm_upgrade_logic \
+	-from_version_name $from_version_name \
+	-to_version_name $to_version_name \
+	-spec {
+	    0.1d 0.1d1 {
+		# We are going to add contacts portlet to the 
+		# templates
+		
+		db_foreach get_portal_templates { } {
+		    contacts_portlet::add_self_to_page \
+			-portal_id $portal_id \
+			-package_id 0
+		}
+	    }
+	}
+}
+
Index: openacs-4/packages/dotlrn-contacts/tcl/dotlrn-contacts-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-contacts/tcl/dotlrn-contacts-procs.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-contacts/tcl/dotlrn-contacts-procs.xql	20 Aug 2005 20:33:02 -0000	1.1
@@ -0,0 +1,16 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="dotlrn_contacts::upgrade.get_portal_templates">
+    <querytext>
+	select 
+		portal_id 
+	from 
+		portals 
+	where 
+		name in ('#dotlrn.subcommunities_pretty_plural# Portal','#dotlrn.class_instance_portal_pretty_name# Portal','#dotlrn.clubs_pretty_plural# Portal') 
+		and template_id is null;
+    </querytext>
+</fullquery>
+
+</queryset>
\ No newline at end of file
Index: openacs-4/packages/dotlrn-invoices/tcl/dotlrn-invoices-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-invoices/tcl/dotlrn-invoices-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn-invoices/tcl/dotlrn-invoices-procs.tcl	16 Aug 2005 20:07:34 -0000	1.1
+++ openacs-4/packages/dotlrn-invoices/tcl/dotlrn-invoices-procs.tcl	20 Aug 2005 20:36:15 -0000	1.2
@@ -290,3 +290,30 @@
 }
 
 # Some dotlrn_invoices specific procs
+
+ad_proc -private dotlrn_invoices::upgrade {
+    {-from_version_name:required }
+    {-to_version_name:required }
+} {
+    Procedures to upgrade dotlrn-contacts
+    
+    @author Miguel Marin (miguelmarin@viaro.net)
+    @author Viaro Networks www.viaro.net
+} {
+    apm_upgrade_logic \
+	-from_version_name $from_version_name \
+	-to_version_name $to_version_name \
+	-spec {
+	    0.1d 0.1d1 {
+		# We are going to add contacts portlet to the 
+		# templates
+		
+		db_foreach get_portal_templates { } {
+		    invoices_portlet::add_self_to_page \
+			-portal_id $portal_id \
+			-package_id 0
+		}
+	    }
+	}
+}
+
Index: openacs-4/packages/dotlrn-invoices/tcl/dotlrn-invoices-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-invoices/tcl/dotlrn-invoices-procs.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-invoices/tcl/dotlrn-invoices-procs.xql	20 Aug 2005 20:36:15 -0000	1.1
@@ -0,0 +1,16 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="dotlrn_invoices::upgrade.get_portal_templates">
+    <querytext>
+	select 
+		portal_id 
+	from 
+		portals 
+	where 
+		name in ('#dotlrn.subcommunities_pretty_plural# Portal','#dotlrn.class_instance_portal_pretty_name# Portal','#dotlrn.clubs_pretty_plural# Portal') 
+		and template_id is null;
+    </querytext>
+</fullquery>
+
+</queryset>
\ No newline at end of file