Index: openacs-4/packages/file-storage/www/admin/dav-enable.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/admin/Attic/dav-enable.tcl,v
diff -u -N -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/file-storage/www/admin/dav-enable.tcl	15 Nov 2003 21:41:07 -0000	1.1.2.1
+++ openacs-4/packages/file-storage/www/admin/dav-enable.tcl	24 Jan 2004 18:40:09 -0000	1.1.2.2
@@ -1,4 +1,4 @@
-# 
+# packages/file-storage-dav/www/admin/dav-enable.tcl
 ad_page_contract {
     
      enable WebDAV support for this package instance
@@ -9,30 +9,28 @@
      
 } {
     
-    
-    
+    package_id:integer
+    {return_url ""}
 } -properties {
 } -validate {
 } -errors {
 }
 
 set user_id [ad_conn user_id]
-set package_id [ad_conn package_id]
-array set sn [site_node::get -url [ad_conn url]]
+array set sn [site_node::get_from_object_id -object_id $package_id]
 set node_id $sn(node_id)
-set folder_id [fs::get_root_folder]
+set folder_id [fs::get_root_folder -package_id $package_id]
 permission::require_permission \
     -object_id $package_id \
     -party_id $user_id \
     -privilege "admin"
 
-if {[apm_package_installed_p "oacs-dav"]} {
 
-    if {[empty_string_p [oacs_dav::request_folder_id $node_id]]} {
+    if {[empty_string_p [oacs_dav::request_folder_id $package_id]]} {
 	oacs_dav::register_folder $folder_id $node_id
     }
     
-}
 
+
 ad_returnredirect "."
 ad_script_abort