portlet-ajax.tcl

Like portlet, except with background loading via ajax

Location:
/packages/xowiki/www/portlet-ajax.tcl
Author:
Gustaf Neumann

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

  Like portlet, except with background loading via ajax

  @author Gustaf Neumann
  @creation_date fecit may 2006
} {
  portlet:path,notnull
}

::xo::Page requireJS urn:ad:js:get-http-object

if {![string match "/*" $portlet]} {
  set folder_id [$__including_page set parent_id]
  set package_id [::$folder_id set package_id]
  set portlet [lindex [site_node::get_url_from_object_id -object_id $package_id] 0]portlets/$portlet
}

# Local variables:
#    mode: tcl
#    tcl-indent-level: 2
#    indent-tabs-mode: nil
# End: