Index: openacs-4/packages/contacts/www/create-club.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/create-club.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/contacts/www/create-club.tcl	20 Feb 2006 22:01:03 -0000	1.3
+++ openacs-4/packages/contacts/www/create-club.tcl	28 Oct 2006 16:46:35 -0000	1.4
@@ -13,7 +13,21 @@
 }
 contact::require_visiblity -party_id $party_id
 
+# First flush the site node cache
 
+site_node::update_cache -sync_children -node_id 3061
+catch {
+    set fs_node [site_node::get -url /dotlrn/clubs/$party_id/file-storage]
+    site_node::unmount -node_id [lindex $fs_node 3]
+}
+
+catch {
+    set main_node [site_node::get -url /dotlrn/clubs/$party_id]
+    site_node::unmount -node_id [lindex $main_node 3]
+}
+
+site_node::update_cache -sync_children -node_id 3061
+
 ad_progress_bar_begin -title "[_ contacts.Creating_Club]" -message_1 "[_ contacts.lt_We_are_creating_the_c]" -message_2 "[_ contacts.lt_We_will_continue_auto]"
 
 set group_id [group::get_id -group_name "Customers"]