Index: openacs-4/packages/acs-api-browser/www/display-sql.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/display-sql.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/acs-api-browser/www/display-sql.tcl 20 Aug 2002 01:31:39 -0000 1.2 +++ openacs-4/packages/acs-api-browser/www/display-sql.tcl 6 Sep 2002 21:49:54 -0000 1.3 @@ -24,23 +24,22 @@ { package_key ""} } -properties { title:onevalue - context_bar:onevalue + context:onevalue sql:onevalue } -set context_bar_elements [list] +set context [list] if [exists_and_not_null version_id] { db_0or1row package_info_from_package_id { select pretty_name, package_key, version_name from apm_package_version_info where version_id = :version_id } - lappend context_bar_elements [list "package-view?version_id=$version_id&kind=sql_files" "$pretty_name $version_name"] + lappend context [list "package-view?version_id=$version_id&kind=sql_files" "$pretty_name $version_name"] } -lappend context_bar_elements [file tail $url] +lappend context [file tail $url] set title "[file tail $url]" -set context_bar [eval ad_context_bar $context_bar_elements] # This is normally a password-protected page, but to be safe let's # check the incoming URL for ".." to make sure that someone isn't