fe 0.0.3

data/app/models/fe/question_grid.rb

@@ -0,0 +1,26 @@
+# QuestionGrid
+# - Represents a grid layout of a set of questions
+#
+# :kind         - 'QuestionGrid' for single table inheritance (STI)
+# :content      - questions
+
+module Fe
+  class QuestionGrid < Element
+
+    has_many :elements, -> { order('position') },
+             :class_name => "Element",
+             :foreign_key => "question_grid_id",
+             :dependent => :nullify
+
+    def num_cols
+      num = cols.to_s.split(';').length
+      num = 1 if num == 0
+      num
+    end
+
+    def has_response?(answer_sheet = nil)
+      elements.any? {|e| e.has_response?(answer_sheet)}
+    end
+
+  end
+end

data/app/models/fe/question_grid_with_total.rb

@@ -0,0 +1,11 @@
+# QuestionGrid
+# - Represents a grid layout of a set of questions, with a total at the bottom
+#
+# :kind         - 'QuestionGridWithTotal' for single table inheritance (STI)
+# :content      - questions
+# :total_cols    - Which column(s) of the grid should be used for totals
+
+module Fe
+  class QuestionGridWithTotal < QuestionGrid
+  end
+end

data/app/models/fe/question_set.rb

@@ -0,0 +1,82 @@
+# QuestionSet
+# represents a group of elements, with their answers
+module Fe
+  class QuestionSet
+
+    attr_reader :elements
+
+    # associate answers from database with a set of elements
+    def initialize(elements, answer_sheet)
+      @elements = elements
+      @answer_sheet = answer_sheet
+
+      @questions = elements.select { |e| e.question? }
+
+      # answers = @answer_sheet.answers_by_question
+
+      @questions.each do |question|
+        question.answers = question.responses(answer_sheet) #answers[question.id]
+      end
+      @questions
+    end
+
+    # update with responses from form
+    def post(params, answer_sheet)
+      questions_indexed = @questions.index_by {|q| q.id}
+
+      # loop over form values
+      params ||= {}
+      params.each do |question_id, response|
+        next if questions_indexed[question_id.to_i].nil? # the rare case where a question was removed after the app was opened.
+        # update each question with the posted response
+        questions_indexed[question_id.to_i].set_response(posted_values(response), answer_sheet)
+      end
+    end
+    #
+    # def valid?
+    #   valid = true
+    #   @questions.each do |question|
+    #     valid = false unless question.valid_response?  # run through ALL questions
+    #   end
+    #   valid
+    # end
+
+    def any_questions?
+      @questions.length > 0
+    end
+
+    def save
+      AnswerSheet.transaction do
+        @questions.each do |question|
+          question.save_response(@answer_sheet)
+        end
+      end
+    end
+
+
+    private
+
+    # convert posted response to a question into Array of values
+    def posted_values(param)
+
+      if param.kind_of?(Hash) and param.has_key?('year') and param.has_key?('month')
+        year = param['year']
+        month = param['month']
+        if month.blank? or year.blank?
+          values = ''
+        else
+          values = [Date.new(year.to_i, month.to_i, 1).strftime('%m/%d/%Y')]  # for mm/yy drop downs
+        end
+      elsif param.kind_of?(Hash)
+        # from Hash with multiple answers per question
+        values = param.values.map {|v| CGI.unescape(v)}
+      elsif param.kind_of?(String)
+        values = [CGI.unescape(param)]
+      end
+
+      # Hash may contain empty string to force post for no checkboxes
+  #    values = values.reject {|r| r == ''}
+    end
+
+  end
+end

data/app/models/fe/question_sheet.rb

@@ -0,0 +1,73 @@
+# QuestionSheet represents a particular form
+module Fe
+  class QuestionSheet < ActiveRecord::Base
+    self.table_name = self.table_name.sub('fe_', Fe.table_name_prefix)
+
+    has_many :pages, -> { order('number') },
+             :dependent => :destroy
+
+    # has_many :elements
+    # has_many :questions
+
+    has_many :answer_sheet_question_sheets
+
+    has_many :answer_sheets,
+             :through => :answer_sheet_question_sheets
+
+    scope :active, -> { where(:archived => false) }
+    scope :archived, -> { where(:archived => true) }
+
+    validates_presence_of :label
+    #  validates_length_of :label, :maximum => 60, :allow_nil => true
+    validates_uniqueness_of :label
+
+    before_destroy :check_for_answers
+
+    # create a new form with a page already attached
+    def self.new_with_page
+      question_sheet = self.new(:label => next_label)
+      question_sheet.pages.build(:label => 'Page 1', :number => 1)
+      question_sheet
+    end
+
+    def questions
+      pages.collect(&:questions).flatten
+    end
+
+    def elements
+      pages.collect(&:elements).flatten
+    end
+
+    # Pages get duplicated
+    # Question elements get associated
+    # non-question elements get cloned
+    def duplicate
+      new_sheet = QuestionSheet.new(self.attributes)
+      new_sheet.label = self.label + ' - COPY'
+      new_sheet.save(:validate => false)
+      self.pages.each do |page|
+        page.copy_to(new_sheet)
+      end
+      new_sheet
+    end
+
+
+    private
+
+    # next unused label with "Untitled form" prefix
+    def self.next_label
+      Fe.next_label("Untitled form", untitled_labels)
+    end
+
+    # returns a list of existing Untitled forms
+    # (having a separate method makes it easy to mock in the spec)
+    def self.untitled_labels
+      QuestionSheet.find(:all, :conditions => %{label like 'Untitled form%'}).map {|s| s.label}
+    end
+
+    def check_for_answers
+
+    end
+
+  end
+end

data/app/models/fe/reference_question.rb

@@ -0,0 +1,42 @@
+# ReferenceQuestion
+# - a question that provides a fields to specify a reference
+module Fe
+  class ReferenceQuestion < Question
+
+    def response(app=nil)
+      return unless app
+      # A reference is the same if the related_question_sheet corresponding to the question is the same
+      reference = Fe::ReferenceSheet.find_by_applicant_answer_sheet_id_and_question_id(app.id, id)
+      # if references.present?
+      #   reference = references.detect {|r| r.question_id == id }
+      #   # If they have another reference that matches this question id, don't go fishing for another one
+      #   unless reference
+      #     # If the question_id doesn't match, but the reference question is based on the same reference template (question sheet)
+      #     # update the reference with the new question_id
+      #     reference = references.detect {|r| r.question.related_question_sheet_id == related_question_sheet_id}
+      #     reference.update_attribute(:question_id, id) if reference
+      #   end
+      # end
+      reference || Fe::ReferenceSheet.create(:applicant_answer_sheet_id => app.id, :question_id => id)
+    end
+
+    def has_response?(app = nil)
+      if app
+        reference = response(app)
+        reference && reference.valid?
+      else
+        Fe::ReferenceSheet.where(:question_id => id).count > 0
+      end
+    end
+
+    def display_response(app=nil)
+      response(app).to_s
+    end
+
+    # which view to render this element?
+    def ptemplate
+      "reference_#{style}"
+    end
+
+  end
+end

data/app/models/fe/reference_sheet.rb

@@ -0,0 +1,149 @@
+require 'aasm'
+module Fe
+  class ReferenceSheet < ActiveRecord::Base
+    include Fe::AnswerSheetConcern
+    include Rails.application.routes.url_helpers
+    include AASM
+    self.table_name = "#{Fe.table_name_prefix}references"
+    self.inheritance_column = 'fake'
+
+    belongs_to :question,
+               :class_name => 'Element',
+               :foreign_key => 'question_id'
+
+    belongs_to :applicant_answer_sheet,
+               :class_name => Fe.answer_sheet_class,
+               :foreign_key => "applicant_answer_sheet_id"
+
+    validates_presence_of :first_name, :last_name, :phone, :email, :relationship, :on => :update, :message => "can't be blank"
+
+    delegate :style, :to => :question
+
+    before_save :check_email_change
+
+    after_destroy :notify_reference_of_deletion
+
+    aasm :initial => :created, :column => :status do
+
+      state :started, :enter => Proc.new {|ref|
+        ref.started_at = Time.now
+      }
+      state :created
+      state :completed, :enter => Proc.new {|ref|
+        ref.submitted_at = Time.now
+        # SpReferenceMailer.deliver_completed(ref)
+        # SpReferenceMailer.deliver_completed_confirmation(ref)
+        ref.applicant_answer_sheet.complete(ref)
+      }
+
+      event :start do
+        transitions :to => :started, :from => :created
+      end
+
+      event :submit do
+        transitions :to => :completed, :from => :started
+        transitions :to => :completed, :from => :created
+      end
+
+      event :unsubmit do
+        transitions :to => :started, :from => :completed
+      end
+    end
+
+    alias_method :applicant, :applicant_answer_sheet
+    def generate_access_key
+      self.access_key = Digest::MD5.hexdigest(email + Time.now.to_s)
+    end
+
+    def frozen?
+      !%w(started created).include?(self.status)
+    end
+
+    def email_sent?() !self.email_sent_at.nil? end
+
+    # send email invite
+    def send_invite
+      return if self.email.blank?
+
+      application = self.applicant_answer_sheet
+
+      Notifier.notification(self.email,
+                            application.email,
+                            "Reference Invite",
+                            {'reference_full_name' => self.name,
+                             'applicant_full_name' => application.name,
+                             'applicant_email' => application.email,
+                             'applicant_home_phone' => application.phone,
+                             'reference_url' => edit_reference_sheet_url(self, :a => self.access_key, :host => ActionMailer::Base.default_url_options[:host])}).deliver
+      # Send notification to applicant
+      Notifier.notification(applicant_answer_sheet.email, # RECIPIENTS
+                            Fe.from_email, # FROM
+                            "Reference Notification to Applicant", # LIQUID TEMPLATE NAME
+                            {'applicant_full_name' => applicant_answer_sheet.name,
+                             'reference_full_name' => self.name,
+                             'reference_email' => self.email,
+                             'application_url' => edit_answer_sheet_url(applicant_answer_sheet, :host => ActionMailer::Base.default_url_options[:host])}).deliver
+
+      self.email_sent_at = Time.now
+      self.save(:validate => false)
+
+      true
+    end
+
+    def name
+      [first_name, last_name].join(' ')
+    end
+
+    def reference
+      self
+    end
+
+    def to_s
+      name
+    end
+
+    def required?
+      question.required?(applicant_answer_sheet)
+    end
+
+    def reference?
+      true
+    end
+
+    # Can't rely on answer_sheet's implementation for old reference's that might have id's that may match an application id
+    def question_sheet
+      QuestionSheet.find(question.related_question_sheet_id) if question && question.related_question_sheet_id
+    end
+
+    # Can't rely on answer_sheet's implementation for old reference's that might have id's that may match an application id
+    def question_sheets
+      [question_sheet]
+    end
+
+    def display_type
+      question.label.split(/:| \(/).first
+    end
+
+    protected
+    # if the email address has changed, we have to trash the old reference answers
+    def check_email_change
+      if changed.include?('email')
+        answers.destroy_all
+        # Every time the email address changes, generate a new access_key
+        generate_access_key
+        self.email_sent_at = nil
+        self.status = 'created'
+      end
+    end
+
+    def notify_reference_of_deletion
+      if email.present?
+        Notifier.notification(email,
+                              Fe.from_email,
+                              "Reference Deleted",
+                              {'reference_full_name' => self.name,
+                               'applicant_full_name' => applicant_answer_sheet.name}).deliver
+      end
+    end
+  end
+end

data/app/models/fe/section.rb

@@ -0,0 +1,12 @@
+# Section
+# - Represents a subheading
+
+# :kind         - 'Section' for single table inheritance (STI)
+# :label        - title for this section such as "Contact information"
+# :style        - ?
+# :content      - ? instructions, agreements, etc. to display
+
+module Fe
+  class Section < Element
+  end
+end

data/app/models/fe/state_chooser.rb

@@ -0,0 +1,10 @@
+require 'carmen'
+# State Dropdown
+# - drop down of states
+module Fe
+  class StateChooser < Question
+    def choices(country = 'US')
+      @states = Carmen.states(country)
+    end
+  end
+end

data/app/models/fe/text_field.rb

@@ -0,0 +1,29 @@
+# TextField
+# - a question that prompts for one or more lines of text
+
+module Fe
+  class TextField < Question
+
+    # which view to render this element?
+    def ptemplate
+      if self.style == 'essay'
+        'text_area_field'
+      else
+        'text_field'
+      end
+    end
+
+    # css class names for javascript-based validation
+    def validation_class(answer_sheet)
+      validation = ''
+      validation += ' required' if self.required?(answer_sheet)
+      # validate-number, etc.
+      validate_style = ['number', 'currency-dollar', 'email', 'url', 'phone'].find {|v| v == self.style }
+      if validate_style
+        validation += ' validate-' + validate_style
+      end
+      validation
+    end
+
+  end
+end

data/app/views/fe/admin/elements/_errors.html.erb

@@ -0,0 +1 @@
+<%= error_messages_for :element %>