::xotcl::Class ::xowiki::PodcastForm

Class Hierarchy of ::xowiki::PodcastForm

• ::xotcl::Object

  Meta-class:

  ::xotcl::Class

  Methods for instances:

  __api_make_doc, __api_make_forward_doc, __next^C, __timediff, abstract, ad_doc, ad_forward, ad_proc, append^C, array^C, asHTML, autoname^C, check^C, class^C, cleanup^C, configure^C, contains, copy, db_1row^C, debug, defaultmethod, destroy^C, destroy_on_cleanup, eval^C, exists^C, extractConfigureArg, filter^C, filterguard^C, filtersearch^C, forward^C, hasclass, incr^C, info^C, init, instvar^C, invar^C, isclass^C, ismetaclass^C, ismixin^C, isobject^C, istype^C, lappend^C, log, method, mixin^C, mixinguard^C, move, msg, noinit^C, parametercmd^C, proc^C, procsearch^C, qn, requireNamespace^C, self, serialize, set^C, subst^C, trace^C, unset^C, uplevel^C, upvar^C, volatile^C, vwait^C

  Methods to be applied on the class (in addition to the methods provided by the meta-class):

  __exitHandler, getExitHandler, setExitHandler, unsetExitHandler

• ::Generic::Form

  Meta-class:

  ::xotcl::Class

  Parameter for instances:

  action (default "[::xo::cc url]"), add_page_title, data, edit_page_title, fields, folder_id (default "-100"), html (default ""), name (default "[namespace tail [self]]"), submit_link (default "."), validate (default ""), with_categories (default "false")

  Methods for instances:

  after_submit, edit_data, edit_request, form_vars, generate, init, new_data, new_request, on_submit, on_validation_error, request, set_form_data

  Methods to be applied on the class:

  Methods provided by the meta-class

• ::xowiki::WikiForm

  Meta-class:

  ::xotcl::Class

  Parameter for instances:

  autoname (default "0"), f.creator (default "="), f.description (default "="), f.item_id (default "item_id:key"), f.name (default "="), f.nls_language (default "="), f.page_order (default "="), f.text (default "= richtext,editor=xinha"), f.title (default "="), field_list (default "item_id name page_order title creator text description nls_language"), folderspec (default ""), submit_link (default "view"), validate (default " {name {\[::xowiki::validate_name\]} {Another item with this name exists already in this folder}} {page_order {\[::xowiki::validate_form_field page_order\]} {Page Order invalid; might only contain upper and lower case letters, underscore, digits and dots}} "), with_categories (default "true")

  Methods for instances:

  after_submit, data_from_form, edit_data, edit_request, mkFields, new_data, new_request, tidy, update_references

  Methods to be applied on the class:

  Methods provided by the meta-class

• ::xowiki::FileForm

  Meta-class:

  ::xotcl::Class

  Parameter for instances:

  f.name (default "= optional,help_text=Can be obtained from the name of the uploaded file"), f.text (default "upload_file:file(file) {label Content} {html {size 30}} "), f.title (default "= optional"), field_list (default "item_id name page_order text title creator description"), html (default " enctype multipart/form-data "), validate (default " {upload_file {\[::xowiki::validate_file\]} {For new entries, a upload file must be provided}} {page_order {\[::xowiki::validate_form_field page_order\]} {Page Order invalid; might only contain upper and lower case letters, underscore, digits and dots}} {name {\[::xowiki::validate_name\]} {Another item with this name exists already in this folder}} ")

  Methods for instances:

  edit_data, get_uploaded_file, new_data, tidy

  Methods to be applied on the class:

  Methods provided by the meta-class

• ::xowiki::PodcastForm

  Meta-class:

  ::xotcl::Class

  Parameter for instances:

  field_list (default "item_id name page_order text title subtitle creator pub_date duration keywords description"), html (default " enctype multipart/form-data "), validate (default " {upload_file {\[::xowiki::validate_file\]} {For new entries, a upload file must be provided}} {name {\[::xowiki::validate_name\]} {Another item with this name exists already in this folder}} {page_order {\[::xowiki::validate_form_field page_order\]} {Page Order invalid; might only contain upper and lower case letters, underscore, digits and dots}} {duration {\[::xowiki::validate_duration\]} {Check duration and provide default}} ")

  Methods for instances:

  edit_data, edit_request, new_data, new_request, to_timeinfo, to_timestamp

  Methods to be applied on the class:

  Methods provided by the meta-class

Class Relations

• superclass: ::xowiki::FileForm

::xotcl::Class create ::xowiki::PodcastForm \
     -superclass ::xowiki::FileForm \
     -parameter {{field_list \
       {item_id name page_order text title subtitle creator pub_date duration keywords 
	  description}} {html { enctype multipart/form-data }} {validate {
          {upload_file {\[::xowiki::validate_file\]} \
       {For new entries,  a upload file must be provided}}
          {name {\[::xowiki::validate_name\]} \
       {Another item with this name exists  already in this folder}}
          {page_order {\[::xowiki::validate_form_field page_order\]} {Page Order invalid; 
                       might only contain upper and lower case letters, underscore, digits and \
       dots}}
          {duration {\[::xowiki::validate_duration\]} {Check duration and provide default}}
          }}}

Methods

• instproc edit_data

  ::xowiki::PodcastForm instproc edit_data {} {
      set pub_date [my var pub_date]
      my var pub_date [list [my to_timestamp $pub_date]]
      return [next]
    }

• instproc edit_request

  ::xowiki::PodcastForm instproc edit_request item_id {
      my instvar data
      $data set pub_date [my to_timeinfo [$data set pub_date]]
      next
    }

• instproc new_data

  ::xowiki::PodcastForm instproc new_data {} {
      set pub_date [my var pub_date]
      my var pub_date [list [my to_timestamp $pub_date]]
      return [next]
    }

• instproc new_request

  ::xowiki::PodcastForm instproc new_request {} {
      my instvar data
      $data set pub_date [my to_timeinfo [clock format [clock seconds]  -format "%y-%m-%d %T"]]
      next
    }

• instproc to_timeinfo

  ::xowiki::PodcastForm instproc to_timeinfo timestamp {
      set t [clock scan $timestamp]
      return "[clock format $t -format {%Y %m %d %H %M}] {} {YY MM DD HH24 MI}"
    }

• instproc to_timestamp

  ::xowiki::PodcastForm instproc to_timestamp widgetinfo {
      if {$widgetinfo ne ""} {
        foreach {y m day hour min} $widgetinfo break
        set t [clock scan "${hour}:$min $m/$day/$y"]
        #
        # be sure to avoid bad side effects from LANG environment variable
        #
        set ::env(LANG) en_US.UTF-8 
        return [clock format $t]
        #return [clock format $t -format "%y-%m-%d %T"]
      }
      return ""
    }