disable.tcl

WebDAV disable folders

Location:
/packages/oacs-dav/www/admin/disable.tcl
Author:
Dave Bauer <dave@thedesignexperience.org>
Created:
2004-02-15
CVS ID:
$Id: disable.tcl,v 1.3 2017/08/07 23:48:13 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents



ad_page_contract {
    
    WebDAV disable folders
    
    @author Dave Bauer (dave@thedesignexperience.org)
    @creation-date 2004-02-15
    @cvs-id $Id: disable.tcl,v 1.3 2017/08/07 23:48:13 gustafn Exp $
} {
    folder_id:naturalnum,multiple
} -properties {
} -validate {
} -errors {
}

permission::require_permission \
    -party_id [ad_conn user_id] \
    -object_id [ad_conn package_id ] \
    -privilege "admin"

foreach id $folder_id {

    db_dml disable_folder ""
    
}
util_user_message -message [_ oacs-dav.Folders_Disabled]
ad_returnredirect "."
# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: