folder-edit.tcl

Edit a folder's attributes

Location:
/packages/photo-album/www/folder-edit.tcl
Author:
Tom Baginski <bags@arsdigita.com>
Created:
12/8/2000
CVS ID:
$Id: folder-edit.tcl,v 1.9 2018/03/29 08:19:43 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

# /packages/photo-album/www/folder-edit.tcl

ad_page_contract {

    Edit a folder's attributes

    @author Tom Baginski (bags@arsdigita.com)
    @creation-date 12/8/2000
    @cvs-id $Id: folder-edit.tcl,v 1.9 2018/03/29 08:19:43 gustafn Exp $
} {
    folder_id:naturalnum,notnull
} -validate {
    valid_folder -requires {folder_id:integer} {
    if [string equal [pa_is_folder_p $folder_id] "f"] {
        ad_complain "[_ photo-album._The_3]"
    }
    }
} -properties {
    context_list:onevalue
}

# check for permission
permission::require_permission -object_id $folder_id -privilege write

set context_list [pa_context_bar_list -final "[_ photo-album._Edit_1]" $folder_id]

template::form create folder_edit

template::element create folder_edit folder_id -label "Folder ID" \
  -datatype integer -widget hidden

template::element create folder_edit label -html { size 30 } \
    -label [_ photo-album._Folder] -datatype text

template::element create folder_edit description -html { size 50 } \
    -label [_ photo-album._Folder_1] -optional -datatype text 

set title [pa_get_folder_name $folder_id]

if { [template::form is_request folder_edit] } {
    template::element set_properties folder_edit folder_id -value $folder_id
    template::element set_properties folder_edit label -value $title
    template::element set_properties folder_edit description -value [pa_get_folder_description $folder_id]
}

if { [template::form is_valid folder_edit] } {
    # valid new sub-folder submission so create new subfolder

    set folder_id [template::element::get_value folder_edit folder_id]
    set label [template::element::get_value folder_edit label]
    set description [template::element::get_value folder_edit description]

    # edit the folder
    db_transaction {

    db_exec_plsql edit_folder {
        begin
        content_folder.edit_name (
            folder_id  => :folder_id,
            label => :label,
            description  => :description
        );
        end;
    }
    
    } on_error {
    ad_return_complaint 1 "[_ photo-album._An]"
    
    ad_script_abort
    }
    #redirect back to index page with parent_id

    ad_returnredirect "?folder_id=$folder_id"

    ad_script_abort
}

ad_return_template