nimam
committed
on 20 Nov 06
file rss-support.de_DE.ISO-8859-1.xml was initially added on branch oacs-5-2.
/lib/report-folder-form.tcl (+44)
  1 #a form to create or edit a folder
  2 #
  3 # this file is meant to be included with the following parameters
  4 #
  5 # folder_id - if you are editing a folder
  6 # parent_id - if you are creating a folder
  7 # create_index_p - if true will create a blank page named "index" on the new folder, defaults to true
  8 # return_url - requires a return_url, so after creating or editing a folder it redirect to this url
  9 # form_mode - either "edit" or "display"
  10
  11 # initialize the vars that don't exist
  12 if {![info exists parent_id]} {
  13     if {![info exists folder_id]} {
  14         error "you are likely going to use this form to create a new folder, please include a parent_id parameter"
  15     }
  16     set parent_id ""
  17 }
  18 if {![info exists create_index_p]} {
  19     set create_index_p true
  20 }
  21 if {![info exists form_mode]} {
  22     set form_mode edit
  23 }
  24
  25 ad_form -name simpleform -mode $form_mode -has_edit 1 -form {
  26     {folder_name:text(inform) {label "Folder Name"}}
  27     {folder_label:text(inform) {label "Folder Label"}}
  28     {description:text(inform),optional {label "Folder Description"}}
  29     {create_index_p:boolean(hidden),optional {value $create_index_p}}
  30     {parent_id:integer(hidden),optional {value $parent_id}}
  31     {return_url:text(hidden) {value $return_url}}
  32 } -on_request {
  33     content::item::get -item_id $folder_id -array_name folder
  34     set folder_name $folder(name)
  35     set folder_label $folder(label)
  36     set description $folder(description)
  37 } -after_submit {
  38     ad_returnredirect $return_url
  39     ad_script_abort
  40 }
  41
  42
  43 ad_return_template "/packages/survey-reports/lib/simple-form"
  44