Index: openacs-4/packages/file-storage/www/folder-chunk.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-chunk.tcl,v diff -u -r1.21.2.2 -r1.21.2.3 --- openacs-4/packages/file-storage/www/folder-chunk.tcl 25 Mar 2004 02:28:41 -0000 1.21.2.2 +++ openacs-4/packages/file-storage/www/folder-chunk.tcl 30 Mar 2004 02:00:26 -0000 1.21.2.3 @@ -17,7 +17,7 @@ ad_script_abort } -#set viewing_user_id [ad_conn user_id] +set viewing_user_id [ad_conn user_id] permission::require_permission -party_id $viewing_user_id -object_id $folder_id -privilege "read" @@ -140,7 +140,7 @@ } url { set properties_link "properties" - set properties_url "simple-edit?[export_vars object_id]" + set properties_url "simple?[export_vars object_id]" set icon "/resources/url-button.gif" set file_url ${url} } Index: openacs-4/packages/file-storage/www/simple-edit.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/simple-edit.adp,v diff -u -r1.6.4.1 -r1.6.4.2 --- openacs-4/packages/file-storage/www/simple-edit.adp 24 Mar 2004 02:25:43 -0000 1.6.4.1 +++ openacs-4/packages/file-storage/www/simple-edit.adp 30 Mar 2004 02:00:26 -0000 1.6.4.2 @@ -1,9 +1,4 @@ @page_title;noquote@ @context;noquote@ - -

- Delete URL -

-
\ No newline at end of file Index: openacs-4/packages/file-storage/www/simple-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/simple-edit.tcl,v diff -u -r1.5.4.1 -r1.5.4.2 --- openacs-4/packages/file-storage/www/simple-edit.tcl 24 Mar 2004 02:25:43 -0000 1.5.4.1 +++ openacs-4/packages/file-storage/www/simple-edit.tcl 30 Mar 2004 02:00:26 -0000 1.5.4.2 @@ -6,15 +6,14 @@ @cvs-id $Id$ } { object_id:notnull - {mode "display"} } # check for write permission on the item ad_require_permission $object_id write # Message lookup uses variable pretty_name -ad_form -name simple-edit -mode $mode -form { +ad_form -name simple-edit -form { object_id:key {name:text {label "#file-storage.Title_#"} {html {size 40} } } {url:text {label "#file-storage.URL#"} {html {size 50} } }