Index: openacs-4/packages/file-storage/lib/folder-admin.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/lib/folder-admin.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/file-storage/lib/folder-admin.tcl 7 Aug 2017 23:48:11 -0000 1.4 +++ openacs-4/packages/file-storage/lib/folder-admin.tcl 3 Dec 2018 17:38:56 -0000 1.5 @@ -1,3 +1,13 @@ +ad_include_contract { + This include displays some admin links about specified folder. + + apisano: as in date 2018-12-03 its only usage on OpenACS was found + in dotlrn-ecommerce/www/manage/one-section.adp, we might consider + its deprecation. +} { + folder_id:integer +} + set admin_p [permission::permission_p -object_id $folder_id -party_id [ad_conn user_id] -privilege "admin"] set return_url [ad_return_url] lassign [fs::get_folder_package_and_root $folder_id] package_id root_folder_id