Index: openacs-4/packages/tsearch2-driver/tsearch2-driver.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/tsearch2-driver/tsearch2-driver.info,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/tsearch2-driver/tsearch2-driver.info	10 Mar 2005 01:42:15 -0000	1.3
+++ openacs-4/packages/tsearch2-driver/tsearch2-driver.info	15 May 2007 10:37:17 -0000	1.4
@@ -7,20 +7,21 @@
     <initial-install-p>f</initial-install-p>
     <singleton-p>t</singleton-p>
     
-    <version name="0.4d" url="http://openacs.org/repository/download/apm/tsearch2-driver-0.4d.apm">
+    <version name="0.5d" url="http://openacs.org/repository/download/apm/tsearch2-driver-0.5d.apm">
         <owner url="mailto:dave@thedesignexperience.org">Dave Bauer</owner>
         <summary>Full text search support for Search via Tsearch2.</summary>
         <description format="text/html">Provides an implementation for the search packages service contract for searching on postgresql.</description>
         <maturity>0</maturity>
 
-        <provides url="tsearch2-driver" version="0.4d"/>
+        <provides url="tsearch2-driver" version="0.5d"/>
 
         <callbacks>
             <callback type="before-install" proc="tsearch2_driver::install::preinstall_checks"/>
             <callback type="after-install"  proc="tsearch2_driver::install::package_install"/>
         </callbacks>
         <parameters>
             <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="permission_check_enabled_p"  default="1" description="Check whether the user is allowed to read the object. This is used to filter the search results w.r.t the privileges of the user performing the query."/>
+            <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="max_size_to_index"  default="0" description="Maximum size of doc to index, in bytes. 0 to index the full document. If the doc is greater than this parameter, the indexing is truncated."/>            
         </parameters>
 
     </version>
Index: openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl	13 Nov 2006 04:06:13 -0000	1.18
+++ openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl	15 May 2007 10:37:45 -0000	1.19
@@ -29,6 +29,10 @@
 } {
     set index_exists_p [db_0or1row object_exists "select 1 from txt where object_id=:object_id"]
     if {!$index_exists_p} {
+      set max_size_to_index [db_string get_max_size_to_index "select min(default_value) from apm_parameters where package_key = 'tsearch2-driver' and parameter_name = 'max_size_to_index'" -default "0"]
+      if {$max_size_to_index > 0} {
+        set txt [string range $txt 0 $max_size_to_index]
+      }
 	db_dml index "
             insert into txt (object_id,fti)
             values ( :object_id,
@@ -77,6 +81,10 @@
     if {!$index_exists_p} {
 	tsearch2::index $object_id $txt $title $keywords
     } else {
+      set max_size_to_index [db_string get_max_size_to_index "select min(default_value) from apm_parameters where package_key = 'tsearch2-driver' and parameter_name = 'max_size_to_index'" -default "0"]
+      if {$max_size_to_index > 0} {
+        set txt [string range $txt 0 $max_size_to_index]
+      }
 	db_dml update_index "
             update txt set fti =
                      setweight(to_tsvector('default',coalesce(:title,'')),'A')