ad_library { Definitions for the APM administration interface. @creation-date 29 September 2000 @author Bryan Quinn (bquinn@arsdigita.com) @cvs-id $Id: apm-admin-procs.tcl,v 1.32 2018/11/25 02:40:16 gustafn Exp $ } ad_proc apm_parameter_section_slider {package_key} { Build a dynamic section dimensional slider. } { set sections [db_list apm_parameter_sections { select distinct(section_name) from apm_parameters where package_key = :package_key }] if { [llength $sections] > 1 } { lappend section_list [list $package_key $package_key [list "where" "section_name is null"]] foreach section $sections { if { $section ne "" } { lappend section_list [list $section $section [list "where" "section_name = '[db_quote $section]'"]] } } lappend section_list [list all "All" [list]] return [list [list section_name "Section:" $package_key $section_list]] } else { return "" } } ad_proc -deprecated apm_header { { -form "" } args } { Generates HTML for the header of a page (including context bar). Must only be used for APM admin pages (under /acs-admin/apm). We are adding the APM index page to the context bar so it doesn't have to be added on each page @author Peter Marklund } { set apm_title "Package Manager" set apm_url "/acs-admin/apm/" if { [llength $args] == 0 } { set title $apm_title set context_bar [ad_context_bar $title] } else { set title [lindex $args end] set context [concat [list [list $apm_url $apm_title]] $args] set cmd [list ad_context_bar --] foreach elem $context { lappend cmd $elem } set context_bar [eval $cmd] # this is rather a hack, but just needed for streaming output # a more general solution can be provided at some later time... regsub "#acs-kernel.Main_Site#" $context_bar \ [_ acs-kernel.Main_Site] context_bar } append body [ad_header $title ""] "\n" if {$form ne ""} { append body "