Index: openacs-4/packages/forums/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/index.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/forums/www/index.tcl	12 Dec 2002 13:13:11 -0000	1.9
+++ openacs-4/packages/forums/www/index.tcl	17 Dec 2003 15:45:30 -0000	1.10
@@ -12,28 +12,10 @@
 set user_id [ad_verify_and_get_user_id]
 set admin_p [permission::permission_p -party_id $user_id -object_id $package_id -privilege admin]
 
-# get the colors from the params
-set table_border_color [parameter::get -parameter table_border_color]
-set table_bgcolor [parameter::get -parameter table_bgcolor]
-set table_other_bgcolor [parameter::get -parameter table_other_bgcolor]
-
+# Create a search form and action when used
 form create search -action search
+forums::form::search search
 
-element create search search_text \
-    -label Search \
-    -datatype text \
-    -widget text
-
-element create search forum_id \
-    -label ForumID \
-    -datatype text \
-    -widget hidden \
-    -value ""
-
-db_multirow -extend { last_modified_pretty } forums select_forums {} {
-    set last_modified_pretty [lc_time_fmt $last_post_ansi "%x %X"]
-}
-
 set context {}
 
 ad_return_template