Index: openacs-4/packages/acs-api-browser/www/proc-search.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/proc-search.adp,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-api-browser/www/proc-search.adp	10 Sep 2003 12:11:55 -0000	1.7
+++ openacs-4/packages/acs-api-browser/www/proc-search.adp	12 Sep 2003 08:58:27 -0000	1.8
@@ -17,3 +17,23 @@
 <if @results:rowcount@ eq 0>
 No results found
 </if>
+
+
+<if @deprecated_results:rowcount@ gt 0>
+  <if @show_deprecated_p@ true>
+    <p>
+      <b>Show</b> | <a href="@hide_deprecated_url@">Hide</a> deprecated procedure matches
+    </p>
+    <ul>
+      <multiple name="deprecated_results">
+        <li><if @deprecated_results.score@ lt 10>&nbsp;&nbsp;</if>@deprecated_results.score@: <a href=@deprecated_results.url@>@deprecated_results.proc@</a>
+         <i>@deprecated_results.args;noquote@</i>
+       </multiple>
+    </ul>
+  </if>
+  <else>
+    <p>
+      <a href="@show_deprecated_url@">Show</a> | <b>Hide</b> deprecated procedure matches
+    </p>
+  </else>
+</if>
Index: openacs-4/packages/acs-api-browser/www/proc-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/proc-search.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-api-browser/www/proc-search.tcl	6 Apr 2003 07:22:43 -0000	1.9
+++ openacs-4/packages/acs-api-browser/www/proc-search.tcl	12 Sep 2003 08:58:27 -0000	1.10
@@ -18,6 +18,7 @@
     {param_weight:optional 0}
     {source_weight:optional 0}
     {search_type:optional 0}
+    {show_deprecated_p 0}
     query_string
 } -properties {
     title:onevalue
@@ -57,7 +58,8 @@
 }
 
 set counter 0
-set matches ""
+set matches [list]
+set deprecated_matches [list]
 
 # place a [list proc_name score positionals] into matches for every proc
 foreach proc [nsv_array names api_proc_doc] { 
@@ -125,7 +127,11 @@
         } else { 
             set args $doc_elements(positionals)
         }   
-        lappend matches [list $proc $score $args]
+        if { $doc_elements(deprecated_p) } {
+            lappend deprecated_matches [list $proc $score $args]
+        } else {
+            lappend matches [list $proc $score $args]
+        }
     }
 }
 
@@ -150,12 +156,17 @@
     multirow append results $score $proc $args $url
 }
 
+multirow create deprecated_results score proc args url
 
+foreach output $deprecated_matches {
+    incr counter
+    set proc  [lindex $output 0]    
+    set score [lindex $output 1]
+    set args  [lindex $output 2]
+    set url   [api_proc_url $proc]
+    multirow append deprecated_results $score $proc $args $url
+}
 
+set show_deprecated_url [export_vars -base [ad_conn url] -override { { show_deprecated_p 1 } } { name_weight doc_weight param_weight source_weight search_type query_string }]
 
-
-
-
-
-
-
+set hide_deprecated_url [export_vars -base [ad_conn url] -override { { show_deprecated_p 0 } } { name_weight doc_weight param_weight source_weight search_type query_string }]