About • Download • Documentation • Wiki • Forums • Contribute • Support The Toolkit for Online Communities 15899 Community Members, 0 members online, 2562 visitors today Log In Register

folder-edit.tcl

folder-edit.tcl

form to edit a folder

Location:

packages/file-storage/www/folder-edit.tcl

Author:

Andrew Grumet <aegrumet@alum.mit.edu>

Created:

24 Jun 2002

CVS ID:

$Id: folder-edit.tcl,v 1.2 2002/11/05 17:19:59 peterm Exp $

Related Files

• /usr/local/openacs.org/packages/file-storage/www/folder-edit.tcl
• /usr/local/openacs.org/packages/file-storage/www/folder-edit.adp

[ hide source ] | [ make this the default ]

Content File Source

ad_page_contract {
    form to edit a folder

    @author Andrew Grumet (aegrumet@alum.mit.edu)
    @creation-date 24 Jun 2002
    @cvs-id $Id: folder-edit.tcl,v 1.2 2002/11/05 17:19:59 peterm Exp $
} {
    folder_id:integer,notnull
} -validate {
    valid_folder -requires {parent_id:integer} {
	if ![fs_folder_p $folder_id] {
	    ad_complain "[_ file-storage.lt_The_specified_folder_]"
	}
    }
} -properties {
    folder_id:onevalue
    context_bar:onevalue
}

ad_require_permission $folder_id admin

# set templating datasources

set context_bar [fs_context_bar_list -final "[_ file-storage.Edit]" $folder_id]

set folder_name [fs_get_folder_name $folder_id]

ad_return_template