Index: openacs-4/packages/dotlrn/tcl/club-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/club-procs.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/dotlrn/tcl/club-procs.tcl	14 Jun 2005 09:49:23 -0000	1.24
+++ openacs-4/packages/dotlrn/tcl/club-procs.tcl	14 Jun 2005 14:11:35 -0000	1.25
@@ -155,5 +155,9 @@
 
 	set club_id [dotlrn_club::new -pretty_name "$contact_id"]
 	application_data_link::new -this_object_id $contact_id -target_object_id $club_id
+
+	# Link the file storage directly to the contact
+	set fs_id [fs::get_root_folder -package_id [dotlrn_community::get_package_id_from_package_key -package_key "file-storage" -community_id $club_id]]
+	application_data_link::new -this_object_id $contact_id -target_object_id $fs_id
     }
 }