Index: openacs-4/packages/file-storage/www/search.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/search.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/file-storage/www/search.tcl 26 May 2005 08:28:46 -0000 1.4 +++ openacs-4/packages/file-storage/www/search.tcl 7 Aug 2017 23:48:11 -0000 1.5 @@ -26,16 +26,16 @@ set query "%${query}%" regsub -all {%+} $query {%} query -db_multirow results results { - select item_id as file_id, - content_item.get_title(item_id) as title - from cr_items - where lower(content_item.get_title(item_id)) like :query - and acs_permission.permission_p(item_id,:user_id,'read') = 't' -} +db_multirow results results {} # get the (lowercased) original back to feed to the template set query $orig_query ad_return_template + +# Local variables: +# mode: tcl +# tcl-indent-level: 4 +# indent-tabs-mode: nil +# End: