This commit was manufactured by cvs2svn to create tag 'v5-0-1-0-0'.

Sprout from master 2004-07-07 17:41:50 UTC Frank Bergmann  <frank.bergmann@project-open.com> '- initial copy of Alex files'
Delete:
    intranet-search.info
    sql/oracle/intranet-search-create.sql
    sql/oracle/intranet-search-drop.sql
    tcl/intranet-search-procs.tcl

intranet-search.info

-<?xml version="1.0"?>
-<!-- Generated by the OpenACS Package Manager -->
-
-<package key="intranet-search" url="http://openacs.org/repository/apm/packages/intranet-search" type="apm_application">
-    <package-name>Project/Open Search</package-name>
-    <pretty-plural>Project/Open Search</pretty-plural>
-    <initial-install-p>f</initial-install-p>
-    <singleton-p>t</singleton-p>
-    <auto-mount>intranet-search</auto-mount>
-
-    <version name="2.0" url="http://openacs.org/repository/download/apm/intranet-search-2.0.apm">
-        <owner url="mailto:alejandro.beya@project-open.com">Alejandro Beya</owner>
-        <vendor url="www.project-open.com">Project/Open</vendor>
-
-        <!-- No dependency information -->
-
-        <callbacks>
-        </callbacks>
-        <parameters>
-        <!-- No version parameters -->
-        </parameters>
-
-    </version>
-</package>

tcl/intranet-search-procs.tcl

-ad_library {
-    Functions for cleaning search strings
-
-    @creation-date 2000-12-11
-    @author Khy Huang <khy@arsdigita.com>
-    @cvs-id $Id$
-}
-
-ad_proc -public sws_remove_or {
-    {query_string}
-} {
-    Remove the 'or' operators from query string
-} {
-    set new_string [list]
-
-    foreach el $query_string {
-	if {![string compare [string tolower $el] "|"] == 0 &&
-	    ![string compare [string tolower $el] "or"] == 0 } {
-	    lappend new_string $el     
-	}
-    }
-    return $new_string
-}
-
-ad_proc -public sws_remove_and {
-    {query_string}
-} {
-    Remove the 'and' operators from query string
-} {
-    set new_string [list]
-
-    foreach el $query_string {
-	if {![string compare [string tolower $el] "and"] == 0 &&
-	    ![string compare [string tolower $el] "&"] == 0 } {
-	    lappend new_string $el     
-	}
-    }
-    return $new_string
-}
-
-
-
-ad_proc -private sws_package_url {} {
-    set sql "select site_node.url(s.node_id) as package_url
-    from site_nodes s, apm_packages a
-    where s.object_id = a.package_id
-    and lower(a.package_key) = 'site-wide-search' 
-    and RowNum = 1"
-
-    if { [db_0or1row get_package_url $sql] } {
-	return $package_url
-    } else {
-	# log an error message
-	ns_log "Notice" "The Site Wide Search package is not mounted."
-	return ""
-    }
-}