Index: openacs-4/packages/search/tcl/search-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/tcl/search-procs.tcl,v
diff -u -r1.43 -r1.44
--- openacs-4/packages/search/tcl/search-procs.tcl	7 Jun 2008 20:29:01 -0000	1.43
+++ openacs-4/packages/search/tcl/search-procs.tcl	24 Jun 2008 19:09:25 -0000	1.44
@@ -352,6 +352,13 @@
     This callback returns information about the search engine implementation
 } -
 
+ad_proc -public search::driver_name {
+} {
+    Return the name of the current search driver.
+} {
+    return [parameter::get -package_id [apm_package_id_from_key search] -parameter FtsEngineDriver]
+}
+
 # dotlrn specific procs
 
 namespace eval search::dotlrn {}