component.tcl

Location:
/packages/acs-automated-testing/www/admin/component.tcl
CVS ID:
$Id: component.tcl,v 1.8 2018/05/16 22:04:59 hectorr Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
  @cvs-id $Id: component.tcl,v 1.8 2018/05/16 22:04:59 hectorr Exp $
} {
  component_id:token,notnull
  package_key:nohtml
} -properties {
  title:onevalue
  context_bar:onevalue
  component_desc:onevalue
  component_file:onevalue
  component_body:onevalue
}

set title "Component $component_id ($package_key)"
set context [list $title]

set component_bodys {}
foreach component [nsv_get aa_test components] {
    if {$component_id eq [lindex $component 0] && $package_key eq [lindex $component 1]} {
        set component_desc [lindex $component 2]
        set component_file [lindex $component 3]
        set component_body [lindex $component 4]
    }
}

ad_return_template

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