Commit 82770b87 authored by Frank Bergmann's avatar Frank Bergmann

- V4.0.3.0.0:

  Updated to OpenACS 5.7
parent af8e072c
......@@ -7,18 +7,18 @@
<initial-install-p>t</initial-install-p>
<singleton-p>t</singleton-p>
<version name="5.6.0" url="http://openacs.org/repository/download/apm/acs-api-browser-5.6.0.apm">
<version name="5.7.0" url="http://openacs.org/repository/download/apm/acs-api-browser-5.7.0.apm">
<owner url="http://openacs.org">OpenACS</owner>
<summary>Interactive documentation for the Tcl and SQL APIs.</summary>
<release-date>2010-06-17</release-date>
<release-date>2011-06-12</release-date>
<maturity>3</maturity>
<vendor url="http://openacs.org">OpenACS</vendor>
<license url="http://www.gnu.org/copyleft/gpl.html">GPL</license>
<maturity>3</maturity>
<description format="text/html">On line interactive documentation for the locally installed Tcl and SQL APIs. Links to the Tcl core and AOLServer online documentation as well.</description>
<provides url="acs-api-browser" version="5.6.0"/>
<requires url="acs-kernel" version="5.6.0"/>
<provides url="acs-api-browser" version="5.7.0"/>
<requires url="acs-kernel" version="5.7.0"/>
<callbacks>
</callbacks>
......
......@@ -46,6 +46,8 @@ if { [info exists version_id] } {
lappend context [list "package-view?version_id=$version_id&kind=content" "$pretty_name $version_name"]
}
lappend context [file tail $path]
set filename "[acs_root_dir]/$path"
......
......@@ -6,6 +6,7 @@
<include src="/packages/acs-api-browser/lib/search">
</div>
<div style="float: left; width: 60%;">
<h3>Installed Enabled Packages</h3>
<ul>
......@@ -37,3 +38,4 @@
</if>
<br clear="both">
</div>
......@@ -6,6 +6,7 @@
<include src="/packages/acs-api-browser/lib/search" query_string="@query_string@">
</div>
<div style="float: left; width: 60%;">
<h3>Procedure Matches</h3>
<ul>
<multiple name="results">
......@@ -57,5 +58,7 @@ No results found
</p>
</else>
</if>
<br clear="both">
</div>
......@@ -27,7 +27,7 @@ set len [string length $tcl_proc]
for { set i [expr { $len-1 }] } { $i >= 0 } { incr i -1 } {
set search_for [string range $tcl_proc 0 $i]
if { [regexp "<a href=\"(\[^>\]+)\">$search_for</a>" $tcl_docs_index_page match relative_url] } {
ad_returnredirect "$tcl_docs_root$relative_url"
ad_returnredirect -allow_complete_url "$tcl_docs_root$relative_url"
ad_script_abort
}
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment