Index: openacs-4/packages/attachments/www/file-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/file-add-2.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/attachments/www/file-add-2.tcl	13 Jan 2005 13:56:08 -0000	1.5
+++ openacs-4/packages/attachments/www/file-add-2.tcl	29 May 2009 18:59:05 -0000	1.6
@@ -45,7 +45,8 @@
 # Get the ip
 set creation_ip [ad_conn peeraddr]
 
-set fs_package_id [site_node::get_element -url "[dotlrn::get_url]/file-storage/" -element "package_id"]
+set root_folder [attachments::get_root_folder]
+set fs_package_id [db_string get_fs_package_id {}]
 
 #db_transaction {
     set file_id [db_nextval "acs_object_id_seq"]
Index: openacs-4/packages/attachments/www/file-add-2.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/Attic/file-add-2.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/attachments/www/file-add-2.xql	2 Jul 2002 04:18:54 -0000	1.1
+++ openacs-4/packages/attachments/www/file-add-2.xql	29 May 2009 18:59:05 -0000	1.2
@@ -13,5 +13,12 @@
 
 </fullquery>
 
- 
+  <fullquery name="get_fs_package_id">
+    <querytext>
+      select package_id 
+      from fs_root_folders 
+      where folder_id=:root_folder
+    </querytext>
+  </fullquery>
+
 </queryset>