rd_searchlogic 3.0.0.rc

data/lib/searchlogic/named_scopes/alias_scope.rb

@@ -0,0 +1,67 @@
+module Searchlogic
+  module NamedScopes
+    # Adds the ability to create alias scopes that allow you to alias a named
+    # scope or create a named scope procedure. See the alias_scope method for a more
+    # detailed explanation.
+    module AliasScope
+      # In some instances you might create a class method that essentially aliases a named scope
+      # or represents a named scope procedure. Ex:
+      #
+      #   class User
+      #     def teenager
+      #       age_gte(13).age_lte(19)
+      #     end
+      #   end
+      #
+      # This is obviously a very basic example, but notice how we are utilizing already existing named
+      # scopes so that we do not have to repeat ourself. This method makes a lot more sense when you are
+      # dealing with complicated named scope.
+      #
+      # There is a problem though. What if you want to use this in your controller's via the 'search' method:
+      #
+      #   User.search(:teenager => true)
+      #
+      # You would expect that to work, but how does Searchlogic::Search tell the difference between your
+      # 'teenager' method and the 'destroy_all' method. It can't, there is no way to tell unless we actually
+      # call the method, which we obviously can not do.
+      #
+      # The being said, we need a way to tell searchlogic that this is method is safe. Here's how you do that:
+      #
+      #   User.alias_scope :teenager, lambda { age_gte(13).age_lte(19) }
+      #
+      # This feels better, it feels like our other scopes, and it provides a way to tell Searchlogic that this
+      # is a safe method.
+      def alias_scope(name, options = nil)
+        alias_scopes[name.to_sym] = options
+        (class << self; self end).instance_eval do
+          define_method name do |*args|
+            case options
+            when Symbol
+              send(options)
+            else
+              options.call(*args)
+            end
+          end
+        end
+      end
+      alias_method :scope_procedure, :alias_scope
+      
+      def alias_scopes # :nodoc:
+        read_inheritable_attribute(:alias_scopes) || write_inheritable_attribute(:alias_scopes, {})
+      end
+      
+      def alias_scope?(name) # :nodoc:
+        return false if name.blank?
+        alias_scopes.key?(name.to_sym)
+      end
+      
+      def condition?(name) # :nodoc:
+        super || alias_scope?(name)
+      end
+      
+      def named_scope_options(name) # :nodoc:
+        super || alias_scopes[name.to_sym]
+      end
+    end
+  end
+end

data/lib/searchlogic/named_scopes/association_conditions.rb

@@ -0,0 +1,163 @@
+module Searchlogic
+  module NamedScopes
+    # Handles dynamically creating named scopes for associations. See the README for a detailed explanation.
+    module AssociationConditions
+      def condition?(name) # :nodoc:
+        super || association_condition?(name)
+      end
+
+      def _resolve_deep_association_conditions(condition_name, args)
+        if local_condition?(condition_name)
+          {:joins=>nil, :klass=>self, :condition=>condition_name}
+        elsif details = association_condition_details(condition_name)
+          result = details[:association].klass._resolve_deep_association_conditions(details[:condition], args)
+          return nil unless result #condition method did not resolve
+          this_association = details[:association].name
+          join_condition = result[:joins].nil? ? this_association : {this_association=>result[:joins]}
+          result.merge(:joins=>join_condition)
+        else #this condition method did not resolve
+          nil
+        end
+      end
+
+
+      
+      private
+        def association_condition?(name)
+          !association_condition_details(name).nil? unless name.to_s.downcase.match("_or_")
+        end
+        
+        def method_missing(name, *args, &block)
+          if !local_condition?(name) && details = association_condition_details(name)
+            create_scope_for_association(details[:association], details[:condition], args, details[:poly_class])
+            send(name, *args)
+          else
+            super
+          end
+        end
+
+        def create_scope_for_association(association, condition_name, args, poly_class = nil)
+          result = (poly_class || association.klass)._resolve_deep_association_conditions(condition_name, args)
+          return unless result
+
+          joins_result = result[:joins].nil? ? association.name : {association.name => result[:joins]}
+
+          lambda_containing_relational_algebra = eval <<-"end_eval"
+            lambda { |*args|
+              #{result[:klass].name}.#{result[:condition]}(*args).joins(#{joins_result.inspect})
+            }
+          end_eval
+
+          name = [association.name, poly_class && "#{poly_class.name.underscore}_type", condition_name].compact.join("_")
+          scope(name, lambda_containing_relational_algebra)
+        end
+
+        def association_condition_details(name, last_condition = nil)
+          non_poly_assocs = reflect_on_all_associations.reject { |assoc| assoc.options[:polymorphic] }.sort { |a, b| b.name.to_s.size <=> a.name.to_s.size }
+          poly_assocs = reflect_on_all_associations.reject { |assoc| !assoc.options[:polymorphic] }.sort { |a, b| b.name.to_s.size <=> a.name.to_s.size }
+          return nil if non_poly_assocs.empty? && poly_assocs.empty?
+        
+          name_with_condition = [name, last_condition].compact.join('_')
+          
+          association_name = nil
+          poly_type = nil
+          condition = nil
+          
+          if name_with_condition.to_s =~ /^(#{non_poly_assocs.collect(&:name).join("|")})_(\w+)$/
+            association_name = $1
+            condition = $2
+          elsif name_with_condition.to_s =~ /^(#{poly_assocs.collect(&:name).join("|")})_(\w+?)_type_(\w+)$/
+            association_name = $1
+            poly_type = $2
+            condition = $3
+          end
+          
+          if association_name && condition
+            association = reflect_on_association(association_name.to_sym)
+            klass = poly_type ? poly_type.camelcase.constantize : association.klass
+            if klass.condition?(condition)
+              {:association => association, :poly_class => poly_type && klass, :condition => condition}
+            else
+              nil
+            end
+          end
+        end
+        
+        
+#        def association_condition_options(association, association_condition, args, poly_class = nil)
+#          klass = poly_class ? poly_class : association.klass
+#          relation = klass.send(association_condition, *args)
+#          scope_options = nil #klass.named_scope_options(association_condition)
+#          arity = -1 #klass.named_scope_arity(association_condition)
+#
+#          if !arity || arity == 0
+#            # The underlying condition doesn't require any parameters, so let's just create a simple
+#            # named scope that is based on a hash.
+#            options = {}
+#            in_searchlogic_delegation { options = relation.scope(:find) }
+#            prepare_named_scope_options(options, association, poly_class)
+#            options
+#          else
+#            proc_args = arity_args(arity)
+#            arg_type = :string #(scope_options.respond_to?(:searchlogic_options) && scope_options.searchlogic_options[:type]) || :string
+#
+#            eval <<-"end_eval"
+#              searchlogic_lambda(:#{arg_type}) { |#{proc_args.join(",")}|
+#                options = {}
+#
+#                in_searchlogic_delegation do
+#                  relation = klass.send(association_condition, #{proc_args.join(",")})
+#                  options = {:conditions=>"users.username LIKE '%joe%'"} #relation.scope(:find) if relation
+#                end
+#
+#                prepare_named_scope_options(options, association, poly_class)
+#                options
+#              }
+#            end_eval
+#          end
+#        end
+        
+        # Used to match the new scopes parameters to the underlying scope. This way we can disguise the
+        # new scope as best as possible instead of taking the easy way out and using *args.
+#        def arity_args(arity)
+#          args = []
+#          if arity > 0
+#            arity.times { |i| args << "arg#{i}" }
+#          else
+#            positive_arity = arity * -1
+#            positive_arity.times do |i|
+#              if i == (positive_arity - 1)
+#                args << "*arg#{i}"
+#              else
+#                args << "arg#{i}"
+#              end
+#            end
+#          end
+#          args
+#        end
+
+#        #ADDED: this was removed from AR::Base ver2.x, redefined for use in prepare_named_scope_options
+#        def array_of_strings?(o)
+#          o.is_a?(Array) && o.all?{|obj| obj.is_a?(String)}
+#        end
+#
+#        def prepare_named_scope_options(options, association, poly_class = nil)
+#          options.delete(:readonly) # AR likes to set :readonly to true when using the :joins option, we don't want that
+#
+#          klass = poly_class || association.klass
+#          # sanitize the conditions locally so we get the right table name, otherwise the conditions will be evaluated on the original model
+#          options[:conditions] = klass.sanitize_sql_for_conditions(options[:conditions]) if options[:conditions].is_a?(Hash)
+#
+#          poly_join = poly_class && inner_polymorphic_join(poly_class.name.underscore, :as => association.name)
+#
+#          if options[:joins].is_a?(String) || array_of_strings?(options[:joins])
+#            options[:joins] = [poly_class ? poly_join : inner_joins(association.name), options[:joins]].flatten
+#          elsif poly_class
+#            options[:joins] = options[:joins].blank? ? poly_join : ([poly_join] + klass.inner_joins(options[:joins]))
+#          else
+#            options[:joins] = options[:joins].blank? ? association.name : {association.name => options[:joins]}
+#          end
+#        end
+    end
+  end
+end

data/lib/searchlogic/named_scopes/association_ordering.rb

@@ -0,0 +1,44 @@
+module Searchlogic
+  module NamedScopes
+    # Handles dynamically creating order named scopes for associations:
+    #
+    #   User.has_many :orders
+    #   Order.has_many :line_items
+    #   LineItem
+    #
+    #   User.ascend_by_orders_line_items_id
+    #
+    # See the README for a more detailed explanation.
+    module AssociationOrdering
+      def condition?(name) # :nodoc:
+        super || association_ordering_condition?(name)
+      end
+      
+      private
+        def association_ordering_condition?(name)
+          !association_ordering_condition_details(name).nil?
+        end
+        
+        def method_missing(name, *args, &block)
+          if details = association_ordering_condition_details(name)
+            create_association_ordering_condition(details[:association], details[:order_as], details[:condition], args)
+            send(name, *args)
+          else
+            super
+          end
+        end
+        
+        def association_ordering_condition_details(name)
+          associations = reflect_on_all_associations
+          association_names = associations.collect { |assoc| assoc.name }
+          if name.to_s =~ /^(ascend|descend)_by_(#{association_names.join("|")})_(\w+)$/
+            {:order_as => $1, :association => associations.find { |a| a.name == $2.to_sym }, :condition => $3}
+          end
+        end
+        
+        def create_association_ordering_condition(association, order_as, condition, args)
+          scope("#{order_as}_by_#{association.name}_#{condition}", association_condition_options(association, "#{order_as}_by_#{condition}", args))
+        end
+    end
+  end
+end

data/lib/searchlogic/named_scopes/conditions.rb

@@ -0,0 +1,232 @@
+module Searchlogic
+  module NamedScopes
+    # Handles dynamically creating named scopes for columns. It allows you to do things like:
+    #
+    #   User.first_name_like("ben")
+    #   User.id_lt(10)
+    #
+    # Notice the constants in this class, they define which conditions Searchlogic provides.
+    #
+    # See the README for a more detailed explanation.
+    module Conditions
+      COMPARISON_CONDITIONS = {
+        :equals => [:is, :eq],
+        :does_not_equal => [:not_equal_to, :is_not, :not, :ne],
+        :less_than => [:lt, :before],
+        :less_than_or_equal_to => [:lte],
+        :greater_than => [:gt, :after],
+        :greater_than_or_equal_to => [:gte],
+      }
+
+      WILDCARD_CONDITIONS = {
+        :like => [:contains, :includes],
+        :not_like => [:does_not_include],
+        :begins_with => [:bw],
+        :not_begin_with => [:does_not_begin_with],
+        :ends_with => [:ew],
+        :not_end_with => [:does_not_end_with]
+      }
+
+      BOOLEAN_CONDITIONS = {
+        :null => [:nil],
+        :not_null => [:not_nil],
+        :empty => [],
+        :blank => [],
+        :not_blank => [:present]
+      }
+
+      CONDITIONS = {}
+
+      # Add any / all variations to every comparison and wildcard condition
+      COMPARISON_CONDITIONS.merge(WILDCARD_CONDITIONS).each do |condition, aliases|
+        CONDITIONS[condition] = aliases
+        CONDITIONS["#{condition}_any".to_sym] = aliases.collect { |a| "#{a}_any".to_sym }
+        CONDITIONS["#{condition}_all".to_sym] = aliases.collect { |a| "#{a}_all".to_sym }
+      end
+
+      CONDITIONS[:equals_any] = CONDITIONS[:equals_any] + [:in]
+      CONDITIONS[:does_not_equal_all] = CONDITIONS[:does_not_equal_all] + [:not_in]
+
+      BOOLEAN_CONDITIONS.each { |condition, aliases| CONDITIONS[condition] = aliases }
+
+      PRIMARY_CONDITIONS = CONDITIONS.keys
+      ALIAS_CONDITIONS = CONDITIONS.values.flatten
+
+      def options
+        @options
+      end
+
+      # Is the name of the method a valid condition that can be dynamically created?
+      def condition?(name)
+        local_condition?(name)
+      end
+
+      private
+        def local_condition?(name)
+          return false if name.blank?
+          scope_names = scopes.keys.reject { |k| k == :scoped }
+          scope_names.include?(name.to_sym) || !condition_details(name).nil? || boolean_condition?(name)
+        end
+
+        def boolean_condition?(name)
+          column = columns_hash[name.to_s] || columns_hash[name.to_s.gsub(/^not_/, "")]
+          column && column.type == :boolean
+        end
+
+        def method_missing(name, *args, &block)
+          if details = condition_details(name)
+            create_scope(details[:column], details[:condition], args)
+            send(name, *args)
+          elsif boolean_condition?(name)
+            column = name.to_s.gsub(/^not_/, "")
+            scope name, where(column.to_sym => (name.to_s =~ /^not_/).nil?)  #:conditions => {column => (name.to_s =~ /^not_/).nil?}
+            send(name)
+          else
+            super
+          end
+        end
+
+
+        def condition_details(method_name)
+          #TODO: cache these
+          column_name_matcher = column_names.join("|")
+          conditions_matcher = (PRIMARY_CONDITIONS + ALIAS_CONDITIONS).join("|")
+
+          if method_name.to_s =~ /^(#{column_name_matcher})_(#{conditions_matcher})$/
+            {:column => $1, :condition => $2}
+          end
+        end
+
+        def create_scope(column, condition, args)
+          if PRIMARY_CONDITIONS.include?(condition.to_sym)
+            create_primary_scope(column, condition)
+          elsif ALIAS_CONDITIONS.include?(condition.to_sym)
+            create_aliased_scope(column, condition, args)
+          end
+        end
+
+        def create_primary_scope(column, condition)
+          column_type = columns_hash[column.to_s].type
+          skip_conversion = skip_time_zone_conversion_for_attributes.include?(columns_hash[column.to_s].name.to_sym)
+          match_keyword = ::ActiveRecord::Base.connection.adapter_name == "PostgreSQL" ? "ILIKE" : "LIKE"
+
+          scope_options = case condition.to_s
+          when /^equals/
+            #scope_options(condition, column_type, lambda { |a| attribute_condition("#{table_name}.#{column}", a) }, :skip_conversion => skip_conversion)
+            scope_options(condition, column_type, "#{table_name}.#{column} = ?", :skip_conversion => skip_conversion)
+          when /^does_not_equal/
+            scope_options(condition, column_type, "#{table_name}.#{column} != ?", :skip_conversion => skip_conversion)
+          when /^less_than_or_equal_to/
+            scope_options(condition, column_type, "#{table_name}.#{column} <= ?", :skip_conversion => skip_conversion)
+          when /^less_than/
+            scope_options(condition, column_type, "#{table_name}.#{column} < ?", :skip_conversion => skip_conversion)
+          when /^greater_than_or_equal_to/
+            scope_options(condition, column_type, "#{table_name}.#{column} >= ?", :skip_conversion => skip_conversion)
+          when /^greater_than/
+            scope_options(condition, column_type, "#{table_name}.#{column} > ?", :skip_conversion => skip_conversion)
+          when /^like/
+            scope_options(condition, column_type, "#{table_name}.#{column} #{match_keyword} ?", :skip_conversion => skip_conversion, :value_modifier => :like)
+          when /^not_like/
+            scope_options(condition, column_type, "#{table_name}.#{column} NOT #{match_keyword} ?", :skip_conversion => skip_conversion, :value_modifier => :like)
+          when /^begins_with/
+            scope_options(condition, column_type, "#{table_name}.#{column} #{match_keyword} ?", :skip_conversion => skip_conversion, :value_modifier => :begins_with)
+          when /^not_begin_with/
+            scope_options(condition, column_type, "#{table_name}.#{column} NOT #{match_keyword} ?", :skip_conversion => skip_conversion, :value_modifier => :begins_with)
+          when /^ends_with/
+            scope_options(condition, column_type, "#{table_name}.#{column} #{match_keyword} ?", :skip_conversion => skip_conversion, :value_modifier => :ends_with)
+          when /^not_end_with/
+            scope_options(condition, column_type, "#{table_name}.#{column} NOT #{match_keyword} ?", :skip_conversion => skip_conversion, :value_modifier => :ends_with)
+          when "null"
+            lambda { where("#{table_name}.#{column} IS NULL")}
+          when "not_null"
+            lambda { where("#{table_name}.#{column} IS NOT NULL")}
+          when "empty"
+            lambda { where("#{table_name}.#{column} = ''")}
+          when "blank"
+            lambda { where("#{table_name}.#{column} = '' OR #{table_name}.#{column} IS NULL")}
+          when "not_blank"
+            lambda { where("#{table_name}.#{column} != '' AND #{table_name}.#{column} IS NOT NULL")}
+          end
+
+          scope("#{column}_#{condition}".to_sym, scope_options)
+        end
+
+        # This method helps cut down on defining scope options for conditions that allow *_any or *_all conditions.
+        # Kepp in mind that the lambdas get cached in a method, so you want to keep the contents of the lambdas as
+        # fast as possible, which is why I didn't do the case statement inside of the lambda.
+        def scope_options(condition, column_type, sql, options = {})
+          case condition.to_s
+          when /_(any|all)$/
+            searchlogic_lambda(column_type, :skip_conversion => options[:skip_conversion]) { |*values|
+              unless values.empty?
+                values.flatten!
+                values.collect! { |value| value_with_modifier(value, options[:value_modifier]) }
+
+                join = $1 == "any" ? " OR " : " AND "
+
+                scope_sql = values.collect { |value| sql.is_a?(Proc) ? sql.call(value) : sql }.join(join)
+
+                lambda { where [scope_sql, *expand_range_bind_variables(values)]}
+              else
+                {}
+              end
+            }
+          else
+            searchlogic_lambda(column_type, :skip_conversion => options[:skip_conversion]) { |*values|
+              values.collect! { |value| value_with_modifier(value, options[:value_modifier]) }
+
+              scope_sql = sql.is_a?(Proc) ? sql.call(*values) : sql
+
+              {:conditions => [scope_sql, *expand_range_bind_variables(values)]}
+            }
+          end
+        end
+
+        def value_with_modifier(value, modifier)
+          case modifier
+          when :like
+            "%#{value}%"
+          when :begins_with
+            "#{value}%"
+          when :ends_with
+            "%#{value}"
+          else
+            value
+          end
+        end
+
+        def create_aliased_scope(column, condition, args)
+          primary_condition = primary_condition(condition)
+          alias_name = "#{column}_#{condition}"
+          primary_name = "#{column}_#{primary_condition}"
+          send(primary_name, *args) # go back to method_missing and make sure we create the method
+          (class << self; self; end).class_eval { alias_method alias_name, primary_name }
+        end
+
+        # Returns the primary condition for the given alias. Ex:
+        #
+        #   primary_condition(:gt) => :greater_than
+        def primary_condition(alias_condition)
+          CONDITIONS.find { |k, v| k == alias_condition.to_sym || v.include?(alias_condition.to_sym) }.first
+        end
+
+        # Returns the primary name for any condition on a column. You can pass it
+        # a primary condition, alias condition, etc, and it will return the proper
+        # primary condition name. This helps simply logic throughout Searchlogic. Ex:
+        #
+        #   condition_scope_name(:id_gt) => :id_greater_than
+        #   condition_scope_name(:id_greater_than) => :id_greater_than
+        def condition_scope_name(name)
+          if details = condition_details(name)
+            if PRIMARY_CONDITIONS.include?(name.to_sym)
+              name
+            else
+              "#{details[:column]}_#{primary_condition(details[:condition])}".to_sym
+            end
+          else
+            nil
+          end
+        end
+    end
+  end
+end

data/lib/searchlogic/named_scopes/or_conditions.rb

@@ -0,0 +1,141 @@
+module Searchlogic
+  module NamedScopes
+    # Handles dynamically creating named scopes for 'OR' conditions. Please see the README for a more
+    # detailed explanation.
+    module OrConditions
+      class NoConditionSpecifiedError < StandardError; end
+      class UnknownConditionError < StandardError; end
+      
+      def condition?(name) # :nodoc:
+        super || or_condition?(name)
+      end
+      
+      def named_scope_options(name) # :nodoc:
+        super || super(or_conditions(name).join("_or_"))
+      end
+      
+      private
+        def or_condition?(name)
+          !or_conditions(name).nil?
+        end
+        
+        def method_missing(name, *args, &block)
+          if conditions = or_conditions(name)
+            create_or_condition(conditions, args)
+            (class << self; self; end).class_eval { alias_method name, conditions.join("_or_") } if !respond_to?(name)
+            send(name, *args)
+          else
+            super
+          end
+        end
+        
+        def or_conditions(name)
+          # First determine if we should even work on the name, we want to be as quick as possible
+          # with this.
+          if (parts = split_or_condition(name)).size > 1
+            conditions = interpolate_or_conditions(parts)
+            if conditions.any?
+              conditions
+            else
+              nil
+            end
+          end
+        end
+        
+        def split_or_condition(name)
+          parts = name.to_s.split("_or_")
+          new_parts = []
+          parts.each do |part|
+            if part =~ /^equal_to(_any|_all)?$/
+              new_parts << new_parts.pop + "_or_equal_to"
+            else
+              new_parts << part
+            end
+          end
+          new_parts
+        end
+        
+        # The purpose of this method is to convert the method name parts into actual condition names.
+        #
+        # Example:
+        #
+        #   ["first_name", "last_name_like"]
+        #   => ["first_name_like", "last_name_like"]
+        #
+        #   ["id_gt", "first_name_begins_with", "last_name", "middle_name_like"]
+        #   => ["id_gt", "first_name_begins_with", "last_name_like", "middle_name_like"]
+        #
+        # Basically if a column is specified without a condition the next condition in the list
+        # is what will be used. Once we are able to get a consistent list of conditions we can easily
+        # create a scope for it.
+        def interpolate_or_conditions(parts)
+          conditions = []
+          last_condition = nil
+
+          parts.reverse.each do |part|
+            if details = condition_details(part)
+              # We are a searchlogic defined scope
+              conditions << "#{details[:column]}_#{details[:condition]}"
+              last_condition = details[:condition]
+            elsif association_details = association_condition_details(part, last_condition)
+              path = full_association_path(part, last_condition, association_details[:association])
+              conditions << "#{path[:path].join("_").to_sym}_#{path[:column]}_#{path[:condition]}"
+              last_condition = path[:condition] || nil
+            elsif local_condition?(part)
+              # We are a custom scope
+              conditions << part
+            elsif column_names.include?(part)
+              # we are a column, use the last condition
+              if last_condition.nil?
+                raise NoConditionSpecifiedError.new("The '#{part}' column doesn't know which condition to use, if you use an exact column " +
+                  "name you need to specify a condition sometime after (ex: id_or_created_at_lt), where id would use the 'lt' condition.")
+              end
+              
+              conditions << "#{part}_#{last_condition}"
+            else
+              raise UnknownConditionError.new("The condition '#{part}' is not a valid condition, we could not find any scopes that match this.")
+            end
+          end
+          
+          conditions.reverse
+        end
+
+        def full_association_path(part, last_condition, given_assoc)
+            path = [given_assoc.name]
+            part.sub!(/^#{given_assoc.name}_/, "")
+            klass = self
+            while klass = klass.send(:reflect_on_association, given_assoc.name)
+              klass = klass.klass
+              if details = klass.send(:association_condition_details, part, last_condition)
+                path << details[:association]
+                part = details[:condition]
+                given_assoc = details[:association]
+              elsif details = klass.send(:condition_details, part)
+                return { :path => path, :column => details[:column], :condition => details[:condition] }
+              end
+            end
+            { :path => path, :column => part, :condition => last_condition }
+        end
+        
+        def create_or_condition(scopes, args)
+          scopes_options = scopes.collect { |scope, *args| send(scope, *args).proxy_options }
+          # We're using first scope to determine column's type
+          scope = named_scope_options(scopes.first)
+          column_type = scope.respond_to?(:searchlogic_options) ? scope.searchlogic_options[:type] : :string
+          scope scopes.join("_or_"), searchlogic_lambda(column_type) { |*args|
+            merge_scopes_with_or(scopes.collect { |scope| clone.send(scope, *args) })
+          }
+        end
+        
+        def merge_scopes_with_or(scopes)
+          scopes_options = scopes.collect { |scope| scope.scope(:find) }
+          conditions = scopes_options.reject { |o| o[:conditions].nil? }.collect { |o| sanitize_sql(o[:conditions]) }
+          scope = scopes_options.inject(scoped({})) { |current_scope, options| current_scope.scoped(options) }
+          options = {}
+          in_searchlogic_delegation { options = scope.scope(:find) }
+          options.delete(:readonly) unless scopes.any? { |scope| scope.proxy_options.key?(:readonly) }
+          options.merge(:conditions => "(" + conditions.join(") OR (") + ")")
+        end
+    end
+  end
+end