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.4.4.1 -r1.4.4.2
--- openacs-4/packages/attachments/www/file-add-2.tcl	2 Aug 2004 16:55:37 -0000	1.4.4.1
+++ openacs-4/packages/attachments/www/file-add-2.tcl	11 Aug 2004 02:27:06 -0000	1.4.4.2
@@ -45,8 +45,7 @@
 # Get the ip
 set creation_ip [ad_conn peeraddr]
 
-set root_folder [attachments::get_root_folder]
-set fs_package_id [db_string get_fs_package_id "select package_id from fs_root_folders where folder_id=:root_folder"]
+set fs_package_id [site_node::get_element -url "[dotlrn::get_url]/file-storage/" -element "package_id"]
 
 #db_transaction {
     set file_id [db_nextval "acs_object_id_seq"]