gurix/helena

module Helena
  # TODO: Needs refactoring, is really ugly atm :-(
  class SessionsController < ApplicationController
    before_action :load_session, only: %i[edit update]
    before_action :update_answers, only: :update
    before_action :answer_errors, only: :update
    before_action :flash_errors, only: :update
    after_action :update_last_question_group_id, only: :update

    def show
      @session = Helena::Session.find_by view_token: params[:token]
      @survey = @session.survey
      @version = @survey.versions.find @session.version_id
      @question_group = question_group

      respond_to do |format|
        format.html { render html: session_report }
        format.json { render json: @session }
      end
    end

    def edit
      @questions = question_group_questions
      @answers = session_answers
      @errors = {}
    end

    def update
      if @question_group.last? && @errors.blank?
        @session.update_attribute :completed, true
        render 'end_message'
      else
        @question_group = @question_group.next_item if @errors.blank?
        @questions = question_group_questions
        render 'edit'
      end
    end

    private

    def load_session
      @session = Helena::Session.find_by token: params[:token]
      @survey = @session.survey
      @version = @survey.versions.find @session.version_id
      render plain: 'Version not active', status: '404' unless @version&.active
      @question_group = question_group
    end

    def question_group
      question_group_id = params[:question_group] || @session.last_question_group_id
      if question_group_id
        @version.question_groups.find question_group_id
      else
        @version.question_groups.asc(:position).first
      end
    end

    def session_answers
      Hash[@session.answers.map { |answer| [answer.code, answer.value] }]
    end

    def session_params
      return unless params[:session]

      params.require(:session).permit(answers: @question_group.question_codes, question_types: @question_group.question_codes)
    end

    def question_group_questions
      @question_group.questions.asc(:position)
    end

    def update_answers
      if session_params
        @question_group.question_codes.each do |question_code|
          @session.answers.where(code: question_code).delete

          value = session_params[:answers][question_code]

          next if value.blank?

          @session.answers << Helena::Answer.build_generic(question_code, value, request.remote_ip)
        end
      end
      @answers = session_answers
    end

    def answer_errors
      errors = {}
      @question_group.questions.where(required: true).each do |question|
        question.validate_answers_in(session_answers).each do |question_code, error_message|
          errors[question_code] = t("errors.messages.#{error_message}")
        end
      end
      @errors = errors
    end

    def flash_errors
      flash.now[:danger] = t('errors.messages.any_errors_flash') if @errors.any?
    end

    def session_report
      Slim::Template.new { @version.session_report }.render(self).html_safe if @version.session_report
    end

    def update_last_question_group_id
      @session.update_attribute :last_question_group_id, @question_group.id
    end
  end
end