enable.tcl

WebDAV enable folders

Location:

/packages/oacs-dav/www/admin/enable.tcl

Author:

Dave Bauer <dave@thedesignexperience.org>

Created:

2004-02-15

CVS ID:

$Id: enable.tcl,v 1.3 2017/08/07 23:48:13 gustafn Exp $

Related Files

• packages/oacs-dav/www/admin/enable.xql
• packages/oacs-dav/www/admin/enable.tcl

[ hide source ]

File Contents

# 

ad_page_contract {
    
    WebDAV enable folders
    
    @author Dave Bauer (dave@thedesignexperience.org)
    @creation-date 2004-02-15
    @cvs-id $Id: enable.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 enable_folder ""
    
}
util_user_message -message [_ oacs-dav.Folders_Enabled]
ad_returnredirect "."
# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: