Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs-postgresql-8.3.xql'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs-postgresql.xql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs-postgresql.xql 5 Aug 2008 14:33:46 -0000 1.2 +++ openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs-postgresql.xql 5 Aug 2008 14:54:35 -0000 1.3 @@ -1,17 +1,58 @@ - postgresql8.0 + postgresql8.3 insert into txt (object_id,fti) values (:object_id, + setweight(to_tsvector(coalesce(:title,'')),'A') + ||setweight(to_tsvector(coalesce(:keywords,'')),'B') + ||to_tsvector(coalesce(:txt,''))) + + + + + postgresql8.3 + + where fti @@ to_tsquery(:query) + and exists (select 1 + from acs_object_party_privilege_map m + where m.object_id = txt.object_id + and m.party_id = :user_id + and m.privilege = 'read') + + + + + postgresql8.3 + + select txt.object_id $base_query + order by ts_rank(fti,to_tsquery(:query)) desc + $limit_clause $offset_clause + + + + + postgresql8.3 + + select ts_headline(:txt,to_tsquery(:query)) + + + + + + postgresql8.0 + + insert into txt (object_id,fti) + values (:object_id, setweight(to_tsvector('default',coalesce(:title,'')),'A') ||setweight(to_tsvector('default',coalesce(:keywords,'')),'B') ||to_tsvector('default',coalesce(:txt,''))) + postgresql8.0 where fti @@ to_tsquery('default',:query) and exists (select 1 @@ -23,6 +64,7 @@ + postgresql8.0 select txt.object_id $base_query order by rank(fti,to_tsquery('default',:query)) desc @@ -31,6 +73,7 @@ + postgresql8.0 select headline('default',:txt,to_tsquery('default',:query)) 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.22 -r1.23 --- openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl 5 Aug 2008 13:51:59 -0000 1.22 +++ openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl 5 Aug 2008 14:54:35 -0000 1.23 @@ -8,6 +8,7 @@ } namespace eval tsearch2 {} +ns_log Notice "Huh? db_version:[db_version]" ad_proc -public tsearch2::index { object_id