Index: openacs-4/packages/acs-content-repository/tcl/search-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/search-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/acs-content-repository/tcl/search-procs.tcl	17 Sep 2001 05:16:40 -0000	1.6
+++ openacs-4/packages/acs-content-repository/tcl/search-procs.tcl	23 Feb 2002 21:28:17 -0000	1.7
@@ -4,7 +4,7 @@
     Provides data source for search interface.  Used to access content items
     after search.
 } {
-    db_0or1row revisions_datasource {
+    db_0or1row revisions_datasource "
 	select r.revision_id as object_id, 
 	       r.title,
                case i.storage_type
@@ -19,7 +19,7 @@
 	from cr_revisions r, cr_items i
 	where revision_id = :object_id
         and i.item_id = r.item_id
-    } -column_array datasource
+    " -column_array datasource
 
     return [array get datasource]
 }
@@ -94,7 +94,7 @@
     Provides data source for search interface.  Used to access content items
     after search.
 } {
-    db_0or1row revisions_datasource {
+    db_0or1row revisions_datasource "
 	select r.revision_id as object_id, 
 	       r.title as title, 
                case i.storage_type
@@ -109,7 +109,7 @@
 	from cr_revisions r, cr_items i
 	where revision_id = :object_id
         and i.item_id = r.item_id
-    } -column_array datasource
+    " -column_array datasource
 
     return [array get datasource]
 }