ad_page_contract {
Applications
@author Lars Pind (lars@collaboraid.biz)
@creation-date 2003-06-02
@cvs-id $Id: index.tcl,v 1.11.2.3 2015/09/10 08:21:38 gustafn Exp $
} {
page:naturalnum,optional
}
set page_title [_ acs-subsite.Applications]
set context [list $page_title]
set subsite_node_id [ad_conn subsite_node_id]
list::create \
-name applications \
-multirow applications \
-key node_id \
-page_flush_p 1 \
-page_size 250 \
-page_query_name select_applications \
-actions {
"#acs-subsite.Add_application#" application-add "#acs-subsite.Add_new_app#"
} \
-bulk_actions {
"#acs-subsite.Delete#" application-delete "#acs-subsite.Delete_selected_app#"
} \
-elements {
edit {
sub_class narrow
display_template {
}
link_url_eval {[export_vars -base application-add { node_id }]}
link_html { title "#acs-subsite.Edit_application_name_and_path#" }
}
instance_name {
label "[_ acs-subsite.Name]"
link_url_eval {../../$name/}
}
name {
label "[_ acs-subsite.URL]"
}
package_pretty_name {
label "[_ acs-subsite.Application]"
}
permissions {
label "[_ acs-subsite.Permissions]"
link_url_eval {[export_vars -base permissions { package_id }]}
display_template { #acs-subsite.Permissions# }
sub_class narrow
}
parameters {
label "[_ acs-subsite.Parameters]"
link_url_col parameter_url
display_template {[_ acs-subsite.Parameters]}
sub_class narrow
}
delete {
sub_class narrow
display_template {
}
link_url_eval {[export_vars -base application-delete { node_id }]}
link_html { title "#acs-subsite.Delete_this_application#" }
}
}
db_multirow -extend { parameter_url } applications select_applications_page {} {
set instance_name [string repeat "- " $treelevel]$instance_name
if { $num_parameters > 0 } {
set parameter_url [export_vars -base ../../shared/parameters { package_id { return_url [ad_return_url] } }]
}
}
# Local variables:
# mode: tcl
# tcl-indent-level: 4
# indent-tabs-mode: nil
# End: