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 }]