Index: openacs-4/packages/search/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/www/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/search/www/index.tcl	20 Sep 2002 21:11:47 -0000	1.2
+++ openacs-4/packages/search/www/index.tcl	2 Feb 2005 21:18:03 -0000	1.3
@@ -1,2 +1,14 @@
-# Nothing to see here...
-ad_return_template
\ No newline at end of file
+ad_page_contract {
+    @author Jeff Davis <davis@xarg.net>
+    @creation-date 2005-02-01
+    @cvs-id $Id$
+} {}
+
+set driver [ad_parameter -package_id [ad_conn package_id] FtsEngineDriver]
+array set info [acs_sc_call FtsEngineDriver info [list] $driver]
+if { [array get info] == "" } {
+    # no driver present  need a warning.
+    set driver_p 0
+} else {
+    set driver_p 1
+}