Index: openacs-4/packages/dotlrn-contacts/dotlrn-contacts.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-contacts/dotlrn-contacts.info,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn-contacts/dotlrn-contacts.info	20 Aug 2005 20:32:09 -0000	1.2
+++ openacs-4/packages/dotlrn-contacts/dotlrn-contacts.info	9 Sep 2005 16:40:04 -0000	1.3
@@ -7,15 +7,15 @@
     <initial-install-p>f</initial-install-p>
     <singleton-p>f</singleton-p>
     
-    <version name="0.1d1" url="http://openacs.org/repository/download/apm/dotlrn-contacts-0.1d1.apm">
+    <version name="0.1d2" url="http://openacs.org/repository/download/apm/dotlrn-contacts-0.1d2.apm">
         <owner url="mailto:kiesbye@theservice.de">Bjoern Kiesbye</owner>
         <owner url="mailto:sussdorff@cognovis.de">Malte Sussdorff</owner>
         <summary>Dotlrn Applet for the Contacts Portlet.</summary>
         <vendor url="http://www.cognovis.de">Cognovis</vendor>
         <description format="text/plain">Dotlrn Applet for the Contacts Portlet.</description>
         <maturity>0</maturity>
 
-        <provides url="dotlrn-contacts" version="0.1d1"/>
+        <provides url="dotlrn-contacts" version="0.1d2"/>
         <requires url="contacts-portlet" version="0.1d"/>
 
         <callbacks>
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.4 -r1.5
--- openacs-4/packages/dotlrn-contacts/tcl/dotlrn-contacts-procs.tcl	20 Aug 2005 20:33:02 -0000	1.4
+++ openacs-4/packages/dotlrn-contacts/tcl/dotlrn-contacts-procs.tcl	9 Sep 2005 16:39:28 -0000	1.5
@@ -57,12 +57,11 @@
     # Contacts Package under the dotlrn_url so users are able to
     # to access Contacts from My Space.
 
-    # Mount the Contacts Package under the Community Url
     set package_id [apm_package_id_from_key contacts]
-
+    
     if {![dotlrn::is_package_mounted -package_key contacts]} {
-	set com_url [dotlrn::get_url]
-
+	Aset com_url [dotlrn::get_url]
+	
 	array set node_info [site_node::get_from_url -url $com_url -exact]
 	set parent_id $node_info(node_id)
 
@@ -74,11 +73,10 @@
 			     -pattern_p "t" \
 			    ]
 	}
-
+	
 	site_node::mount -node_id $node_id -object_id $package_id
-
     }
-
+    
     dotlrn_applet::add_applet_to_dotlrn -applet_key [applet_key] -package_key [my_package_key]
 
 }
@@ -94,43 +92,17 @@
 ad_proc -public dotlrn_contacts::add_applet_to_community {
     community_id
 } {
-    Add the calendar applet to a specific dotlrn community
+    Add the contact applet to a specific dotlrn community
 
     @params community_id
 } {
 
-    # Mount the Contacts Package under the Community Url
     set package_id [apm_package_id_from_key contacts]
-
-    set com_url [dotlrn_community::get_community_url $community_id]
-
-    array set node_info [site_node::get_from_url -url $com_url -exact]
-    set parent_id $node_info(node_id)
-
-    db_transaction {
-	set node_id [site_node::new \
-			 -name contacts \
-			 -parent_id $parent_id \
-			 -directory_p "t" \
-			 -pattern_p "t" \
-			]
-    }
-
-    site_node::mount -node_id $node_id -object_id $package_id
-
-
-
     set portal_id [dotlrn_community::get_portal_id \
 		       -community_id $community_id \
 		      ]
 
-
-
-         
-
     # Add the Portlet to this community 
-
-
     contacts_portlet::add_self_to_page -portal_id $portal_id -package_id $package_id
 
     # Add this community to contacts
@@ -141,7 +113,6 @@
         (:community_id, 'f' ,:package_id)
         }
 
-
     # this should return the package_id
     return $package_id
 }