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 -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"]