demarches-normaliennes/app/services/dossiers_list_gestionnaire_service.rb

class DossiersListGestionnaireService
  def initialize current_devise_profil, liste, procedure = nil
    @current_devise_profil = current_devise_profil
    @liste = liste
    @procedure = procedure
  end

  def dossiers_to_display
    {'nouveaux' => nouveaux,
     'a_traiter' => waiting_for_gestionnaire,
     'en_attente' => waiting_for_user,
     'deposes' => deposes,
     'a_instruire' => a_instruire,
     'termine' => termine}[@liste]
  end

  def self.dossiers_liste_libelle
    ['nouveaux', 'a_traiter', 'en_attente', 'deposes', 'a_instruire', 'termine']
  end

  def nouveaux
    @nouveaux ||= filter_dossiers.nouveaux
  end

  def waiting_for_gestionnaire
    @waiting_for_gestionnaire ||= filter_dossiers.waiting_for_gestionnaire
  end

  def waiting_for_user
    @waiting_for_user ||= filter_dossiers.waiting_for_user
  end

  def deposes
    @deposes ||= filter_dossiers.deposes
  end

  def a_instruire
    @a_instruire ||= filter_dossiers.a_instruire
  end

  def termine
    @termine ||= filter_dossiers.termine
  end

  def filter_dossiers
    @filter_dossiers ||= @procedure.nil? ? @current_devise_profil.dossiers.joins(joins_filter).where(where_filter) : @procedure.dossiers.joins(joins_filter).where(where_filter)
    @filter_dossiers.uniq
  end

  def filter_procedure_reset!
    filter_procedure! nil
  end

  def filter_procedure! procedure_id
    @current_devise_profil.update_column :procedure_filter, procedure_id
  end

  def default_sort
    sort_preference = @current_devise_profil.preference_list_dossiers
                          .where(procedure: @procedure)
                          .where.not(order: nil).first

    return {'nil' => 'nil'} if sort_preference.nil?

    {
        [sort_preference.table, sort_preference.attr]
            .reject(&:nil?)
            .join('.') => sort_preference.order
    }
  end

  def default_page
    pref = current_preference_smart_listing_page
    return pref.page if pref.procedure == @procedure && pref.liste == @liste

    1
  end

  def change_page! new_page
    pref = current_preference_smart_listing_page

    unless pref.liste == @liste && pref.procedure == @procedure
      pref.liste = @liste
      pref.procedure = @procedure

      if new_page.nil?
        pref.page = 1
        pref.save
      end
    end

    unless new_page.nil?
      pref.page = new_page
      pref.save
    end
  end

  def change_sort! new_sort
    return if new_sort.blank?

    raw_table_attr = new_sort.keys.first.split('.')
    order = new_sort.values.first

    table = (raw_table_attr.size == 2 ? raw_table_attr.first : nil)
    attr = (raw_table_attr.size == 2 ? raw_table_attr.second : raw_table_attr.first)

    reset_sort!

    preference = @current_devise_profil.preference_list_dossiers
                     .find_by(table: table, attr: attr, procedure: @procedure)

    preference.update order: order unless (preference.nil?)
  end

  def reset_sort!
    @current_devise_profil.preference_list_dossiers
        .where(procedure: @procedure)
        .where.not(order: nil)
        .update_all order: nil
  end

  def joins_filter
    filter_preference_list.inject([]) do |acc, preference|
      acc.push(preference.table.to_sym) unless preference.table.blank? || preference.filter.blank?
      acc
    end
  end

  def where_filter
    filter_preference_list.inject('') do |acc, preference|
      unless preference.filter.blank?
        filter = preference.filter.gsub('*', '%').gsub("'", "''")
        filter = "%"+filter+"%" unless filter.include? '%'

        value = preference.table_with_s_attr

        if preference.table_attr.include?('champs')
          value = 'champs.value'

          acc += (acc.to_s.empty? ? ''.to_s : " AND ") +
              'champs.type_de_champ_id = ' + preference.attr
        end

        acc += (acc.to_s.empty? ? ''.to_s : " AND ") +
            "CAST(" +
            value +
            " as TEXT)" +
            " LIKE " +
            "'" +
            filter +
            "'"
      end
      acc
    end
  end

  def add_filter new_filter
    raw_table_attr = new_filter.keys.first.split('.')
    filter = new_filter.values.first

    table = (raw_table_attr.size == 2 ? raw_table_attr.first : nil)
    attr = (raw_table_attr.size == 2 ? raw_table_attr.second : raw_table_attr.first)

    @current_devise_profil.preference_list_dossiers
        .find_by(table: table, attr: attr, procedure: @procedure)
        .update filter: filter.strip
  end

  private

  def filter_preference_list
    @filter_preference ||= @current_devise_profil.preference_list_dossiers
                               .where(procedure: @procedure)
                               .where.not(filter: nil)
                               .order(:id)
  end

  def current_preference_smart_listing_page
    @current_devise_profil.preference_smart_listing_page
  end
end