# -*- encoding: utf-8 -*-
class ManifestationsController < ApplicationController
  load_and_authorize_resource except: :index
  authorize_resource only: :index
  before_filter :authenticate_user!, only: :edit
  before_filter :get_agent, :get_manifestation, except: [:create, :update, :destroy]
  before_filter :get_expression, only: :new
  if defined?(EnjuSubject)
    before_filter :get_subject, except: [:create, :update, :destroy]
  end
  before_filter :get_series_statement, only: [:index, :new, :edit]
  before_filter :get_item, :get_libraries, only: :index
  before_filter :prepare_options, only: [:new, :edit]
  before_filter :get_version, only: [:show]
  after_filter :solr_commit, only: :destroy
  after_filter :convert_charset, only: :index
  include EnjuOai::OaiController if defined?(EnjuOai)
  include EnjuSearchLog if defined?(EnjuSearchLog)

  # GET /manifestations
  # GET /manifestations.json
  def index
    mode = params[:mode]
    if mode == 'add'
      unless current_user.try(:has_role?, 'Librarian')
        access_denied; return
      end
    end

    @seconds = Benchmark.realtime do
      if defined?(EnjuOai)
        @oai = check_oai_params(params)
        next if @oai[:need_not_to_search]
        if params[:format] == 'oai'
          oai_search = true
          from_and_until_times = set_from_and_until(Manifestation, params[:from], params[:until])
          from_time = @from_time = from_and_until_times[:from]
          until_time = @until_time = from_and_until_times[:until]
          # OAI-PMHのデフォルトの件数
          per_page = 200
          if params[:resumptionToken]
            current_token = get_resumption_token(params[:resumptionToken])
            if current_token
              page = (current_token[:cursor].to_i + per_page).div(per_page) + 1
            else
              @oai[:errors] << 'badResumptionToken'
            end
          end
          page ||= 1

          if params[:verb] == 'GetRecord' && params[:identifier]
            begin
              @manifestation = Manifestation.find_by_oai_identifier(params[:identifier])
            rescue ActiveRecord::RecordNotFound
              @oai[:errors] << "idDoesNotExist"
              render formats: :oai, layout: false
              return
            end
            render template: 'manifestations/show', formats: :oai, layout: false
            return
          end
        end
      end

      set_reservable if defined?(EnjuCirculation)

      sort, @count = {}, {}
      query = ""

      if params[:format] == 'txt'
        per_page = 65534
      end

      if params[:format] == 'sru'
        if params[:operation] == 'searchRetrieve'
          sru = Sru.new(params)
          query = sru.cql.to_sunspot
          sort = sru.sort_by
        else
          render template: 'manifestations/explain', layout: false
          return
        end
      else
        if params[:api] == 'openurl'
          openurl = Openurl.new(params)
          @manifestations = openurl.search
          query = openurl.query_text
          sort = set_search_result_order(params[:sort_by], params[:order])
        else
          query = make_query(params[:query], params)
          sort = set_search_result_order(params[:sort_by], params[:order])
        end
      end

      # 絞り込みを行わない状態のクエリ
      @query = query.dup
      query = query.gsub('　', ' ')

      includes = [:items, :root_series_statement]
      includes << :bookmarks if defined?(EnjuBookmark)
      search = Manifestation.search(include: includes)
      case @reservable
      when 'true'
        reservable = true
      when 'false'
        reservable = false
      else
        reservable = nil
      end

      agent = get_index_agent
      @index_agent = agent
      manifestation = @manifestation if @manifestation
      series_statement = @series_statement if @series_statement
      parent = @parent = Manifestation.where(id: params[:parent_id]).first if params[:parent_id].present?

      if defined?(EnjuSubject)
        subject = @subject if @subject
      end

      unless mode == 'add'
        search.build do
          with(:creator_ids).equal_to agent[:creator].id if agent[:creator]
          with(:contributor_ids).equal_to agent[:contributor].id if agent[:contributor]
          with(:publisher_ids).equal_to agent[:publisher].id if agent[:publisher]
          with(:series_statement_ids).equal_to series_statement.id if series_statement
          with(:parent_ids).equal_to parent.id if parent
        end
      end

      search.build do
        fulltext query unless query.blank?
        order_by sort[:sort_by], sort[:order] unless oai_search
        order_by :updated_at, :desc if oai_search
        if defined?(EnjuSubject)
          with(:subject_ids).equal_to subject.id if subject
        end
        unless parent
          if params[:serial].to_s.downcase == "true"
            with(:series_master).equal_to true unless parent
            with(:serial).equal_to true
            #if series_statement.serial?
            #  if mode != 'add'
            #    order_by :volume_number, sort[:order]
            #    order_by :issue_number, sort[:order]
            #    order_by :serial_number, sort[:order]
            #  end
            #else
            #  with(:serial).equal_to false
            #end
          else
            if mode != 'add'
              with(:resource_master).equal_to true
            end
          end
        end
        order_by sort[:sort_by], sort[:order] unless oai_search
        facet :reservable if defined?(EnjuCirculation)
      end
      search = make_internal_query(search)
      search.data_accessor_for(Manifestation).select = [
        :id,
        :original_title,
        :title_transcription,
        :required_role_id,
        :carrier_type_id,
        :access_address,
        :volume_number_string,
        :issue_number_string,
        :serial_number_string,
        :date_of_publication,
        :pub_date,
        :language_id,
        :created_at,
        :updated_at,
        :volume_number_string,
        :volume_number,
        :issue_number_string,
        :issue_number,
        :serial_number,
        :edition_string,
        :edition,
        :serial,
        :statement_of_responsibility
      ] if params[:format] == 'html' or params[:format].nil?
      all_result = search.execute
      @count[:query_result] = all_result.total
      @reservable_facet = all_result.facet(:reservable).rows if defined?(EnjuCirculation)

      if session[:search_params]
        unless search.query.to_params == session[:search_params]
          clear_search_sessions
        end
      else
        clear_search_sessions
        session[:params] = params
        session[:search_params] == search.query.to_params
        session[:query] = @query
      end

      if params[:format] == 'html' or params[:format].nil?
        @search_query = Digest::SHA1.hexdigest(Marshal.dump(search.query.to_params).force_encoding('UTF-8'))
        if flash[:search_query] == @search_query
          flash.keep(:search_query)
        else
          if @series_statement
            flash.keep(:search_query)
          else
            flash[:search_query] = @search_query
            @manifestation_ids = search.build do
              paginate page: 1, per_page: Setting.max_number_of_results
            end.execute.raw_results.collect(&:primary_key).map{|id| id.to_i}
          end
        end

        if defined?(EnjuBookmark)
          if params[:view] == 'tag_cloud'
            unless @manifestation_ids
              @manifestation_ids = search.build do
                paginate page: 1, per_page: Setting.max_number_of_results
              end.execute.raw_results.collect(&:primary_key).map{|id| id.to_i}
            end
            #bookmark_ids = Bookmark.where(manifestation_id: flash[:manifestation_ids]).limit(1000).pluck(:id)
            bookmark_ids = Bookmark.where(manifestation_id: @manifestation_ids).limit(1000).pluck(:id)
            @tags = Tag.bookmarked(bookmark_ids)
            render partial: 'manifestations/tag_cloud'
            return
          end
        end
      end

      page ||= params[:page] || 1
      per_page ||= Manifestation.default_per_page
      if params[:format] == 'sru'
        search.query.start_record(params[:startRecord] || 1, params[:maximumRecords] || 200)
      else
        pub_dates = parse_pub_date(params)
        pub_date_range = {}
        if pub_dates[:from] == '*'
          pub_date_range[:from] = 0
        else
          pub_date_range[:from] = Time.zone.parse(pub_dates[:from]).year
        end
        if pub_dates[:to] == '*'
          pub_date_range[:to] = 10000
        else
          pub_date_range[:to] = Time.zone.parse(pub_dates[:to]).year
        end
        if params[:pub_year_range_interval]
          pub_year_range_interval = params[:pub_year_range_interval].to_i
        else
          pub_year_range_interval = Setting.manifestation.facet.pub_year_range_interval
        end

        search.build do
          facet :reservable if defined?(EnjuCirculation)
          facet :carrier_type
          facet :library
          facet :language
          facet :pub_year, range: pub_date_range[:from]..pub_date_range[:to], range_interval: pub_year_range_interval
          facet :subject_ids if defined?(EnjuSubject)
          paginate page: page.to_i, per_page: per_page
        end
      end
      search_result = search.execute
      if @count[:query_result] > Setting.max_number_of_results
        max_count = Setting.max_number_of_results
      else
        max_count = @count[:query_result]
      end
      @manifestations = Kaminari.paginate_array(
        search_result.results, total_count: max_count
      ).page(page)

      if params[:format].blank? or params[:format] == 'html'
        @carrier_type_facet = search_result.facet(:carrier_type).rows
        @language_facet = search_result.facet(:language).rows
        @library_facet = search_result.facet(:library).rows
        @pub_year_facet = search_result.facet(:pub_year).rows.reverse
      end

      @search_engines = SearchEngine.order(:position)

      if defined?(EnjuBookmark)
        # TODO: 検索結果が少ない場合にも表示させる
        if @manifestation_ids.blank?
          if query.respond_to?(:suggest_tags)
            @suggested_tag = query.suggest_tags.first
          end
        end
      end

      if defined?(EnjuSearchLog)
        if current_user.try(:save_search_history)
          current_user.save_history(query, @manifestations.offset_value + 1, @count[:query_result], params[:format])
        end
      end

      if defined?(EnjuOai)
        if params[:format] == 'oai'
          unless @manifestations.empty?
            @resumption = set_resumption_token(
              params[:resumptionToken],
              @from_time || Manifestation.last.updated_at,
              @until_time || Manifestation.first.updated_at,
              @manifestations.limit_value
            )
          else
            @oai[:errors] << 'noRecordsMatch'
          end
        end
      end
    end

    store_location # before_filter ではファセット検索のURLを記憶してしまう

    respond_to do |format|
      format.html
      format.mobile
      format.xml  { render xml: @manifestations }
      format.sru  { render layout: false }
      format.rss  { render layout: false }
      format.txt  { render layout: false }
      format.rdf  { render layout: false }
      format.atom
      format.mods
      format.json { render json: @manifestations }
      format.js
      if defined?(EnjuOai)
        format.oai {
          case params[:verb]
          when 'Identify'
            render template: 'manifestations/identify'
          when 'ListMetadataFormats'
            render template: 'manifestations/list_metadata_formats'
          when 'ListSets'
            @series_statements = SeriesStatement.select([:id, :original_title])
            render template: 'manifestations/list_sets'
          when 'ListIdentifiers'
            render template: 'manifestations/list_identifiers'
          when 'ListRecords'
            render template: 'manifestations/list_records'
          end
        }
      end
    end
  end

  # GET /manifestations/1
  # GET /manifestations/1.json
  def show
    if @version
      @manifestation = @manifestation.versions.find(@version).item if @version
    end

    case params[:mode]
    when 'send_email'
      if user_signed_in?
        Notifier.manifestation_info(current_user.id, @manifestation.id).deliver
        flash[:notice] = t('page.sent_email')
        redirect_to @manifestation
        return
      else
        access_denied; return
      end
    end

    return if render_mode(params[:mode])

    flash.keep(:search_query)
    store_location

    if @manifestation.series_master?
      flash.keep(:notice) if flash[:notice]
      flash[:manifestation_id] = @manifestation.id
      redirect_to manifestations_url(parent_id: @manifestation.id)
      return
    end

    if defined?(EnjuCirculation)
      @reserved_count = Reserve.waiting.where(manifestation_id: @manifestation.id, checked_out_at: nil).count
      @reserve = current_user.reserves.where(manifestation_id: @manifestation.id).first if user_signed_in?
    end

    if defined?(EnjuQuestion)
      @questions = @manifestation.questions(user: current_user, page: params[:question_page])
    end

    if @manifestation.attachment.path
      if Setting.uploaded_file.storage == :s3
        data = Faraday.get(@manifestation.attachment.url).body.force_encoding('UTF-8')
      else
        file = @manifestation.attachment.path
      end
    end

    respond_to do |format|
      format.html # show.html.erb
      format.mobile
      format.xml  {
        case params[:mode]
        when 'related'
          render template: 'manifestations/related'
        else
          render xml: @manifestation
        end
      }
      format.rdf
      format.mods
      format.json { render json: @manifestation }
      #format.atom { render template: 'manifestations/oai_ore' }
      #format.js
      format.download {
        if @manifestation.attachment.path
          if Setting.uploaded_file.storage == :s3
            send_data data, filename: File.basename(@manifestation.attachment_file_name), type: 'application/octet-stream'
          else
            if File.exist?(file) && File.file?(file)
              send_file file, filename: File.basename(@manifestation.attachment_file_name), type: 'application/octet-stream'
            end
          end
        else
          render template: 'page/404', status: 404
        end
      }
      if defined?(EnjuOai)
        format.oai
      end
    end
  end

  # GET /manifestations/new
  # GET /manifestations/new.json
  def new
    @manifestation = Manifestation.new
    @manifestation.language = Language.where(iso_639_1: @locale).first
    @parent = Manifestation.where(id: params[:parent_id]).first if params[:parent_id].present?
    if @parent
      @manifestation.parent_id = @parent.id
      @manifestation.original_title = @parent.original_title
      @manifestation.title_transcription = @parent.title_transcription
      @manifestation.serial = true if @parent.serial
    end

    respond_to do |format|
      format.html # new.html.erb
      format.json { render json: @manifestation }
    end
  end

  # GET /manifestations/1/edit
  def edit
    unless current_user.has_role?('Librarian')
      unless params[:mode] == 'tag_edit'
        access_denied; return
      end
    end
    if defined?(EnjuBookmark)
      if params[:mode] == 'tag_edit'
        @bookmark = current_user.bookmarks.where(manifestation_id: @manifestation.id).first if @manifestation rescue nil
        render partial: 'manifestations/tag_edit', locals: {manifestation: @manifestation}
      end
      store_location unless params[:mode] == 'tag_edit'
    end
  end

  # POST /manifestations
  # POST /manifestations.json
  def create
    @manifestation = Manifestation.new(params[:manifestation])
    parent = Manifestation.where(id: @manifestation.parent_id).first
    unless @manifestation.original_title?
      @manifestation.original_title = @manifestation.attachment_file_name
    end

    respond_to do |format|
      if @manifestation.save
        if parent
          parent.derived_manifestations << @manifestation
          parent.index
          @manifestation.index
        end
        Sunspot.commit

        format.html { redirect_to @manifestation, notice: t('controller.successfully_created', model: t('activerecord.models.manifestation')) }
        format.json { render json: @manifestation, status: :created, location: @manifestation }
      else
        prepare_options
        format.html { render action: "new" }
        format.json { render json: @manifestation.errors, status: :unprocessable_entity }
      end
    end
  end

  # PUT /manifestations/1
  # PUT /manifestations/1.json
  def update
    respond_to do |format|
      if @manifestation.update_attributes(params[:manifestation])
        Sunspot.commit
        format.html { redirect_to @manifestation, notice: t('controller.successfully_updated', model: t('activerecord.models.manifestation')) }
        format.json { head :no_content }
      else
        prepare_options
        format.html { render action: "edit" }
        format.json { render json: @manifestation.errors, status: :unprocessable_entity }
      end
    end
  end

  # DELETE /manifestations/1
  # DELETE /manifestations/1.json
  def destroy
    # workaround
    @manifestation.identifiers.destroy_all
    @manifestation.creators.destroy_all
    @manifestation.publishers.destroy_all
    @manifestation.bookmarks.destroy_all if defined?(EnjuBookmark)
    @manifestation.reload
    @manifestation.destroy

    respond_to do |format|
      format.html { redirect_to manifestations_url, notice: t('controller.successfully_deleted', model: t('activerecord.models.manifestation')) }
      format.json { head :no_content }
    end
  end

  private

  def make_query(query, options = {})
    # TODO: integerやstringもqfに含める
    query = query.to_s.strip

    if query.size == 1
      query = "#{query}*"
    end

    if options[:mode] == 'recent'
      query = "#{query} created_at_d:[NOW-1MONTH TO NOW]"
    end

    #unless options[:carrier_type].blank?
    #  query = "#{query} carrier_type_s:#{options[:carrier_type]}"
    #end

    #unless options[:library].blank?
    #  library_list = options[:library].split.uniq.join(' && ')
    #  query = "#{query} library_sm:#{library_list}"
    #end

    #unless options[:language].blank?
    #  query = "#{query} language_sm:#{options[:language]}"
    #end

    #unless options[:subject].blank?
    #  query = "#{query} subject_sm:#{options[:subject]}"
    #end

    if options[:title].present?
      query = "#{query} title_text:#{options[:title]}"
    end

    if options[:tag].present?
      query = "#{query} tag_sm:#{options[:tag]}"
    end

    if options[:creator].present?
      query = "#{query} creator_text:#{options[:creator]}"
    end

    if options[:contributor].present?
      query = "#{query} contributor_text:#{options[:contributor]}"
    end

    if options[:isbn].present?
      query = "#{query} isbn_sm:#{options[:isbn].gsub('-', '')}"
    end

    if options[:isbn_id].present?
      query = "#{query} isbn_sm:#{options[:isbn_id].gsub('-', '')}"
    end

    if options[:issn].present?
      query = "#{query} issn_sm:#{options[:issn].gsub('-', '')}"
    end

    if options[:lccn].present?
      query = "#{query} lccn_s:#{options[:lccn]}"
    end

    if options[:jpno].present?
      query = "#{query} jpno_s:#{options[:jpno]}"
    end

    if options[:publisher].present?
      query = "#{query} publisher_text:#{options[:publisher]}"
    end

    if options[:item_identifier].present?
      query = "#{query} item_identifier_sm:#{options[:item_identifier]}"
    end

    unless options[:number_of_pages_at_least].blank? && options[:number_of_pages_at_most].blank?
      number_of_pages = {}
      number_of_pages[:at_least] = options[:number_of_pages_at_least].to_i
      number_of_pages[:at_most] = options[:number_of_pages_at_most].to_i
      number_of_pages[:at_least] = "*" if number_of_pages[:at_least] == 0
      number_of_pages[:at_most] = "*" if number_of_pages[:at_most] == 0

      query = "#{query} number_of_pages_i:[#{number_of_pages[:at_least]} TO #{number_of_pages[:at_most]}]"
    end

    query = set_pub_date(query, options)
    query = set_acquisition_date(query, options)

    query = query.strip
    if query == '[* TO *]'
      #  unless params[:advanced_search]
      query = ''
      #  end
    end

    return query
  end

  def set_search_result_order(sort_by, order)
    sort = {}
    # TODO: ページ数や大きさでの並べ替え
    case sort_by
    when 'title'
      sort[:sort_by] = 'sort_title'
      sort[:order] = 'asc'
    when 'pub_date'
      sort[:sort_by] = 'date_of_publication'
      sort[:order] = 'desc'
    else
      # デフォルトの並び方
      sort[:sort_by] = 'created_at'
      sort[:order] = 'desc'
    end
    if order == 'asc'
      sort[:order] = 'asc'
    elsif order == 'desc'
      sort[:order] = 'desc'
    end
    sort
  end

  def render_mode(mode)
    case mode
    when 'holding'
      render partial: 'manifestations/show_holding', locals: {manifestation: @manifestation}
    when 'barcode'
      if defined?(EnjuBarcode)
        barcode = Barby::QrCode.new(@manifestation.id)
        send_data(barcode.to_svg, disposition: 'inline', type: 'image/svg+xml')
      end
    when 'tag_edit'
      if defined?(EnjuBookmark)
        render partial: 'manifestations/tag_edit', locals: {manifestation: @manifestation}
      end
    when 'tag_list'
      if defined?(EnjuBookmark)
        render partial: 'manifestations/tag_list', locals: {manifestation: @manifestation}
      end
    when 'show_index'
      render partial: 'manifestations/show_index', locals: {manifestation: @manifestation}
    when 'show_creators'
      render partial: 'manifestations/show_creators', locals: {manifestation: @manifestation}
    when 'show_all_creators'
      render partial: 'manifestations/show_creators', locals: {manifestation: @manifestation}
    when 'pickup'
      render partial: 'manifestations/pickup', locals: {manifestation: @manifestation}
    when 'calil_list'
      if defined?(EnjuCalil)
        render partial: 'manifestations/calil_list', locals: {manifestation: @manifestation}
      end
    else
      false
    end
  end

  def prepare_options
    @carrier_types = CarrierType.select([:id, :display_name, :position])
    @content_types = ContentType.select([:id, :display_name, :position])
    @roles = Role.select([:id, :display_name, :position])
    @languages = Language.select([:id, :display_name, :position])
    @frequencies = Frequency.select([:id, :display_name, :position])
    @identifier_types = IdentifierType.select([:id, :display_name, :position])
    @nii_types = NiiType.select([:id, :display_name, :position]) if defined?(EnjuNii)
    if defined?(EnjuSubject)
      @subject_types = SubjectType.select([:id, :display_name, :position])
      @subject_heading_types = SubjectHeadingType.select([:id, :display_name, :position])
      @classification_types = ClassificationType.select([:id, :display_name, :position])
    end
  end

  def get_index_agent
    agent = {}
    case
    when params[:agent_id]
      agent[:agent] = Agent.find(params[:agent_id])
    when params[:creator_id]
      agent[:creator] = @creator = Agent.find(params[:creator_id])
    when params[:contributor_id]
      agent[:contributor] = @contributor = Agent.find(params[:contributor_id])
    when params[:publisher_id]
      agent[:publisher] = @publisher = Agent.find(params[:publisher_id])
    end
    agent
  end

  def set_reservable
    case params[:reservable].to_s
    when 'true'
      @reservable = true
    when 'false'
      @reservable = false
    else
      @reservable = nil
    end
  end

  def parse_pub_date(options)
    pub_date = {}
    if options[:pub_date_from].blank?
      pub_date[:from] = "*"
    else
      pub_date[:from] = Time.zone.parse(options[:pub_date_from]).beginning_of_day.utc.iso8601 rescue nil
      unless pub_date[:from]
        pub_date[:from] = Time.zone.parse(Time.mktime(options[:pub_date_from]).to_s).beginning_of_day.utc.iso8601
      end
    end

    if options[:pub_date_to].blank?
      pub_date[:to] = "*"
    else
      pub_date[:to] = Time.zone.parse(options[:pub_date_to]).end_of_day.utc.iso8601 rescue nil
      unless pub_date[:to]
        pub_date[:to] = Time.zone.parse(Time.mktime(options[:pub_date_to]).to_s).end_of_year.utc.iso8601
      end
    end
    pub_date
  end

  def set_pub_date(query, options)
    unless options[:pub_date_from].blank? && options[:pub_date_to].blank?
      options[:pub_date_from].to_s.gsub!(/\D/, '')
      options[:pub_date_to].to_s.gsub!(/\D/, '')
      pub_date = parse_pub_date(options)
      query = "#{query} date_of_publication_d:[#{pub_date[:from]} TO #{pub_date[:to]}]"
    end
    query
  end

  def set_acquisition_date(query, options)
    unless options[:acquired_from].blank? && options[:acquired_to].blank?
      options[:acquired_from].to_s.gsub!(/\D/, '')
      options[:acquired_to].to_s.gsub!(/\D/, '')

      acquisition_date = {}
      if options[:acquired_from].blank?
        acquisition_date[:from] = "*"
      else
        acquisition_date[:from] = Time.zone.parse(options[:acquired_from]).beginning_of_day.utc.iso8601 rescue nil
        unless acquisition_date[:from]
          acquisition_date[:from] = Time.zone.parse(Time.mktime(options[:acquired_from]).to_s).beginning_of_day.utc.iso8601
        end
      end

      if options[:acquired_to].blank?
        acquisition_date[:to] = "*"
      else
        acquisition_date[:to] = Time.zone.parse(options[:acquired_to]).end_of_day.utc.iso8601 rescue nil
        unless acquisition_date[:to]
          acquisition_date[:to] = Time.zone.parse(Time.mktime(options[:acquired_to]).to_s).end_of_year.utc.iso8601
        end
      end
      query = "#{query} acquired_at_d:[#{acquisition_date[:from]} TO #{acquisition_date[:to]}]"
    end
    query
  end
end