::xotcl::Class ::xowiki::TableWidget

Methods: All Methods Documented Methods Hide Methods
Source: Display Source Hide Source
Variables: Show Variables Hide Variables

Class ::xowiki::TableWidget

::xowiki::TableWidget

create ...

Class Relations

class: ::xotcl::Class
superclass: ::TableWidget

::xotcl::Class create ::xowiki::TableWidget \
     -superclass ::TableWidget

Methods (to be applied on the object)

create_from_form_fields (scripted)


set actions ""
set cols ""

foreach form_field_obj $form_field_objs {
  dict set form_fields [$form_field_obj name] $form_field_obj
}

# we currently support only 'export' as bulk action
set bulk_action_cols ""
foreach bulk_action $bulk_actions {
  if {$bulk_action eq "export"} {
    append actions [list Action create bulk-$bulk_action  -label [_ xowiki.$bulk_action]  -tooltip [_ xowiki.$bulk_action]  -url [::$package_id package_url]admin/export  ] \n
  }
}
if {$with_checkboxes || [llength $bulk_actions] > 0} {
  append cols [subst {BulkAction create objects -id ID -actions {$actions}}] \n
  append cols {HiddenField create ID} \n
}
if {"edit" in $buttons} {
  append cols {AnchorField create _edit -CSSclass edit-item-button -label ""  -no_csv 1 -richtext 1} \n
}
if {"duplicate" in $buttons} {
  append cols {AnchorField create _duplicate -CSSclass copy-item-button -label ""  -no_csv 1 -richtext 1} \n
}
if {"view" in $buttons} {
  append cols {AnchorField create _view -CSSclass view-item-button -label ""  -no_csv 1 -richtext 1} \n
}
if {"revisions" in $buttons} {
  append cols {AnchorField create _revisions -CSSclass revisions-item-button -label ""  -no_csv 1 -richtext 1} \n
}
if {"slim_publish_status" in $buttons || "publish_status" in $buttons} {
  append cols {AnchorField create _publish_status  -richtext 1 -label ""  -CSSclass publish-status-item-button  } \n
}

set sort_fields {}
foreach fn [dict keys $form_fields] {
  set field_obj [dict get $form_fields $fn]
  set field_orderby [expr {$fn eq "_last_modified" ? "_raw_last_modified" : $fn}]
  lappend sort_fields $field_orderby

  if {$fn ni $hidden_field_names} {
    set CSSclass [expr {[$field_obj exists td_CSSclass] ? [$field_obj td_CSSclass] : ""}]
    append cols [list AnchorField create $fn  -label [$field_obj label]  -richtext 1  -orderby $field_orderby  -CSSclass $CSSclass  ] \n
  }
}
if {"archive" in $buttons} {
  append cols [list AnchorField create _archive  -CSSclass archive-item-button  -label ""  -no_csv 1  -richtext 1] \n
}
if {"delete" in $buttons} {
  append cols [list AnchorField create _delete  -CSSclass delete-item-button  -label ""  -no_csv 1  -richtext 1] \n
}
#ns_log notice "COLS\n$cols"

set cmd [list ::xowiki::TableWidget create t1 -columns $cols]
if {$renderer ne ""} {
  lappend cmd -renderer $renderer
} else {
  switch [::template::CSS toolkit] {
    bootstrap -
    bootstrap5 {set renderer BootstrapTableRenderer}
    default    {set renderer YUIDataTableRenderer}
  }
  lappend cmd -renderer $renderer
}
set table_widget [{*}$cmd]

#
# Sorting is done for the time being in Tcl. This has the advantage
# that page_order can be sorted with the special mixin and that
# instance attributes can be used for sorting as well.
#
lassign [split $orderby ,] att order
set sortable 1
if {$att ni $sort_fields} {
  ad_log warning "Ignore invalid sorting criterion '$att' (possible: $sort_fields)"
  util_user_message -message "Ignore invalid sorting criterion '$att'"
  set sortable 0
}
if {$sortable} {
  #:msg "order=[expr {$order eq {asc} ? {increasing} : {decreasing}}] $att"
  $table_widget orderby  -order [expr {$order eq "asc" ? "increasing" : "decreasing"}]  -type [ad_decode $att _page_order index {*}$type_map dictionary]  $att
}
return $table_widget

Methods (to be applied on instances)

render_page_items_as_table (scripted)


foreach form_field_obj $form_field_objs {
  dict set form_fields [$form_field_obj name] $form_field_obj
}
set field_names [dict keys $form_fields]

foreach p [$items children] {
  $p set package_id $package_id
  $p add_computed_instance_attributes
}

foreach p [$items children] {
  set __ia [dict merge $init_vars [$p instance_attributes]]

  if [dict get $uc tcl] continue
  #if {![expr $wc(tcl)]} continue ;# already handled in get_form_entries

  set page_link [$p pretty_link -path_encode false]
  if {[info exists view_filter_link]} {
    if {[info exists return_url] && $return_url_att ne "return_url"} {
      set $return_url_att $return_url
    }
    # we seem to need the extra subst for the $return_url_att
    set view_link [export_vars -base $view_filter_link [subst {{id "[$p item_id]"} $return_url_att}]]
  } elseif {[info exists wf]} {
    set view_link [export_vars -base $wf_link {{m create-or-use} {p.form "[$p name]"}}]
  } else {
    set view_link $page_link
  }
  :add
  set __c [:last_child]

  if {$include_object_id_attribute} {
    $__c set ID [$p item_id]
  }
  if {"publish_status" in $buttons || "slim_publish_status" in $buttons} {
    $__c set _publish_status "&#9632;"
    set d [::xowiki::utility publish_status_next_state [$p set publish_status]]
    set state [dict get $d state]
    $__c set _publish_status.CSSclass [dict get $d CSSclass]
    $__c set _publish_status.title #xowiki.publish_status_make_$state#
    $__c set _publish_status.href [export_vars -base [::$package_id package_url]admin/set-publish-state {
      state {revision_id "[$p set revision_id]"} return_url
    }]
  }
  if {"edit" in $buttons} {
    $__c set _edit "&nbsp;"
    $__c set _edit.title #xowiki.edit#
    $__c set _edit.href [::$package_id make_link -link $page_link $p edit return_url template_file]
  }
  if {"duplicate" in $buttons} {
    $__c set _duplicate "&nbsp;"
    $__c set _duplicate.title #xowiki.duplicate#
    $__c set _duplicate.href [::$package_id make_link -link $page_link $p duplicate return_url template_file]
  }
  if {"delete" in $buttons} {
    $__c set _delete "&nbsp;"
    $__c set _delete.title #xowiki.delete#
    $__c set _delete.href [::$package_id make_link -link $page_link $p delete return_url]
  }
  if {"archive" in $buttons} {
    # $__c set _archive "<adp:icon name='download'>; #content: "\e025";
    $__c set _archive "&nbsp;"
    $__c set _archive.title #xowiki.Archive_title#
    set url [export_vars -base [::$package_id package_url]admin/set-publish-state  {{state expired} {revision_id "[$p set revision_id]"} return_url}]
    $__c set _archive.href $url
  }
  if {"revisions" in $buttons} {
    $__c set _revisions ""
    $__c set _revisions.title #xowiki.revisions#
    $__c set _revisions.href [::$package_id make_link -link $page_link $p revisions return_url]
  }
  if {"view" in $buttons} {
    $__c set _view "&nbsp;"
    $__c set _view.title #xowiki.view#
    $__c set _view.href $view_link
  } elseif {"no-view" ni $buttons} {
    #
    # Set always a view link, if we have no view button ...
    #
    if {[dict exists $form_fields $view_field]} {
      # .... on $view_field) (per default: _name) ....
      $__c set $view_field.href $view_link
    } else {
      # .... otherwise on the first form_field
      $__c set _[lindex $field_names 0].href $view_link
    }
  }

  # set always last_modified for default sorting
  $__c set _last_modified [$p set last_modified]
  $__c set _raw_last_modified [$p set last_modified]

  # just necessary, when object_type is requested
  #set icon [$__c render_icon]
  #ns_log notice "... render icon? [$__c procsearch render_icon] // [$__c info precedence]"

  #ns_log notice "field_names <$field_names> [llength $field_names] [llength $form_field_objs]"
  foreach __fn $field_names form_field_obj $form_field_objs {
    #ns_log notice "... field_name <$__fn> obj $form_field_obj <[$form_field_obj name]>"
    if {$__fn eq ""} {
      set __fn [$form_field_obj name]
    }
    $form_field_obj object $p
    set value [$p property $__fn]
    if {$value eq ""} {
      #
      # In case, the plain property lookup failed, try to fetch a
      # value from a compound form field value.
      #
      if {[string first . $__fn] > -1} {
        lassign [split $__fn .] parent child
        if {[dict exists $__ia $parent $__fn]} {
          set value [dict get $__ia $parent $__fn]
        } else {
          ns_log notice "table-widget: cannot resolve <$__fn> no '<$parent> <$__fn>'\n $__ia"
        }
      } else {
        ns_log notice "table-widget: no value for <$__fn> "; #[$p serialize]
      }
    }
    $__c set $__fn [$form_field_obj pretty_value $value]
  }
  $__c set _name [::$package_id external_name -parent_id [$p parent_id] [$p name]]
}

#
# If there are multiple includelets on a single page,
# we have to identify the right one for e.g. producing the
# CSV table. Therefore, we compute an includelet_key
#
set includelet_key ""
foreach var {:name form_item_ids form publish_states field_names unless} {
  if {[info exists $var]} {append includelet_key $var : [set $var] ,}
}

set given_includelet_key [ns_base64urldecode [::xo::cc query_parameter includelet_key:graph ""]]
if {$given_includelet_key ne ""} {
  if {![info exists generate]} {
    set generate [::xo::cc query_parameter generate:wordchar ""]
  }
  if {$given_includelet_key eq $includelet_key
      && [info exists generate] && $generate ne ""
    } {

    switch $generate {
      "csv" {
        return [:write_csv]
      }
      "voting_form" {
        if {[dict exists $voting_dict renderer]} {
          return [{*}[dict get $voting_dict renderer]]
        } else {
          ns_log warning "requested voting_form, but no renderer provided."
        }
      }
    }
  }
  return ""
}

set links [list]

if {$with_form_link} {
  set form_links ""
  foreach form_item_id $form_item_ids {
    set base [::$form_item_id pretty_link]
    set label [::$form_item_id name]
    lappend form_links "<a href='[ns_quotehtml $base]'>[ns_quotehtml $label]</a>"
  }

  append html [_ xowiki.entries_using_form [list form [join $form_links ", "]]]
}
append html [:asHTML]

if {$csv} {
  set encoded_includelet_key [ns_urlencode [ns_base64urlencode $includelet_key]]
  set csv_href "[::xo::cc url]?[::xo::cc actual_query]&includelet_key=$encoded_includelet_key&generate=csv"
  lappend links "<a href='[ns_quotehtml $csv_href]'><adp:icon name='filetype-csv' alt='CSV' title='Dowload CSV'></a>"
}
if {[llength $voting_dict] != 0} {
  set voting_form [dict get $voting_dict voting_form]
  set encoded_includelet_key [ns_urlencode [ns_base64urlencode $includelet_key]]
  set href "[::xo::cc url]?[::xo::cc actual_query]&includelet_key=$encoded_includelet_key&generate=voting_form"
  lappend links " <a href='[ns_quotehtml $href]'>Generate Voting Form $voting_form</a>"
}
append html [join $links ,]
#:log "render done"

if {[info exists with_categories]} {
  set category_html [$o include [list categories -count 1 -tree_name $with_categories  -ordered_composite $base_items]]
  return "<div style='width: 15%; float: left;'>$category_html</div></div width='69%'>$html</div>\n"
}
return $html

Methods: All Methods Documented Methods Hide Methods
Source: Display Source Hide Source
Variables: Show Variables Hide Variables