fe 0.0.3

data/app/models/fe/answer_sheet_question_sheet.rb

@@ -0,0 +1,7 @@
+module Fe
+  class AnswerSheetQuestionSheet < ActiveRecord::Base
+    self.table_name = self.table_name.sub('fe_', Fe.table_name_prefix)
+    belongs_to :answer_sheet, class_name: Fe.answer_sheet_class
+    belongs_to :question_sheet, class_name: 'Fe::QuestionSheet'
+  end
+end

data/app/models/fe/attachment_field.rb

@@ -0,0 +1,7 @@
+# AttachmentField
+# - a file upload question
+module Fe
+  class AttachmentField < Question
+
+  end
+end

data/app/models/fe/choice_field.rb

@@ -0,0 +1,7 @@
+# ChoiceField
+# - a question that allows the selection of one or more choices
+module Fe
+  class ChoiceField < Question
+    include ChoiceFieldConcern
+  end
+end

data/app/models/fe/concerns/answer_concern.rb

@@ -0,0 +1,36 @@
+module Fe
+  module AnswerConcern
+    extend ActiveSupport::Concern
+    include ActionView::Helpers::TextHelper
+
+    included do
+
+      belongs_to :answer_sheet
+      belongs_to :question, :class_name => "Element", :foreign_key => "question_id"
+
+    #  validates_presence_of :value
+      validates_length_of :short_value, :maximum => 255, :allow_nil => true
+
+      before_save :set_value_from_filename
+    end
+
+    def set(value, short_value = value)
+      self.value = value
+      self.short_value = truncate(short_value, :length => 225) # adds ... if truncated (but not if not)
+    end
+
+    def to_s
+      self.value
+    end
+
+    def set_value_from_filename
+      self.value = self.short_value = self.attachment_file_name if self[:attachment_file_name].present?
+    end
+
+    module ClassMethods
+      def table_name
+        "#{Fe.table_name_prefix}answers"
+      end
+    end
+  end
+end

data/app/models/fe/concerns/answer_pages_presenter_concern.rb

@@ -0,0 +1,99 @@
+module Fe
+  module AnswerPagesPresenterConcern
+    extend ActiveSupport::Concern
+
+    included do
+      attr_accessor :active_answer_sheet, :page_links, :active_page, :pages
+    end
+
+    def initialize(controller, answer_sheets, a = nil, custom_pages = nil)
+      super(controller)
+      @answer_sheets = Array.wrap(answer_sheets)
+      @active_answer_sheet = @answer_sheets.first
+      initialize_pages(@active_answer_sheet)
+
+      @page_links = page_list(@answer_sheets, a, custom_pages)
+    end
+
+    def questions_for_page(page_id=:first)
+      @active_page = page_id == :first ? pages.first : pages.detect {|p| p.id == page_id.to_i}
+      @active_page ||= @active_answer_sheet.pages.visible.includes(:elements).find(page_id)
+      Fe::QuestionSet.new(@active_page ? @active_page.elements : [], @active_answer_sheet)
+    end
+
+    def all_questions_for_page(page_id=:first)
+      @active_page = page_id == :first ? pages.first : pages.detect {|p| p.id == page_id.to_i}
+      @active_page ||= @active_answer_sheet.pages.visible.find(page_id)
+      Fe::QuestionSet.new(@active_page ? @active_page.all_elements : [], @active_answer_sheet)
+    end
+
+    # title
+    def sheet_title
+      @active_answer_sheet.question_sheet.label
+    end
+
+    def active_page_link
+      return unless @active_page
+      link = new_page_link(@active_answer_sheet, @active_page)
+      link.save_path = answer_sheet_page_path(@active_answer_sheet, @active_page)
+      link
+    end
+
+    def next_page
+      active_page_dom_id = active_page_link.dom_id
+
+      this_page = @page_links.find {|p| p.dom_id == active_page_dom_id}
+      @page_links.at( @page_links.index(this_page) + 1 ) unless this_page.nil?
+    end
+
+    def reference?
+      if @active_answer_sheet.respond_to?(:apply_sheet)
+        @active_answer_sheet.apply_sheet.sleeve_sheet.assign_to == 'reference'
+      else
+        false
+      end
+    end
+
+    def initialize_pages(answer_sheet)
+      @pages = []
+      answer_sheet.question_sheets.each do |qs|
+        qs.pages.visible.each do |page|
+          @pages << page
+        end
+      end
+    end
+
+    def started?
+      active_answer_sheet.question_sheets.each do |qs|
+        qs.pages.visible.each do |page|
+          return true if page.started?(active_answer_sheet)
+        end
+      end
+    end
+
+    def new_page_link(answer_sheet, page, a = nil)
+      Fe::PageLink.new(page.label, edit_answer_sheet_page_path(answer_sheet, page, :a => a), dom_page(answer_sheet, page), page) if page
+    end
+
+    protected
+
+    # for pages_list sidebar
+    def page_list(answer_sheets, a = nil, custom_pages = nil)
+      page_list = []
+      answer_sheets.each do |answer_sheet|
+        pages.each do |page|
+          page_list << new_page_link(answer_sheet, page, a)
+        end
+      end
+      page_list = page_list + custom_pages unless custom_pages.nil?
+      page_list
+    end
+
+    # page is identified by answer sheet, so can have multiple sheets loaded at once
+    def dom_page(answer_sheet, page)
+      dom = "#{dom_id(answer_sheet)}-#{dom_id(page)}"
+      dom += "-no_cache" if page.no_cache
+      dom
+    end
+  end
+end

data/app/models/fe/concerns/answer_sheet_concern.rb

@@ -0,0 +1,61 @@
+module Fe
+  module AnswerSheetConcern
+    extend ActiveSupport::Concern
+
+    included do
+      has_many :answer_sheet_question_sheets,
+        :class_name => "Fe::AnswerSheetQuestionSheet",
+        :foreign_key => 'answer_sheet_id'
+
+      has_many :question_sheets,
+        :through => :answer_sheet_question_sheets
+
+      has_many :answers,
+        :class_name => 'Fe::Answer',
+        :foreign_key => 'answer_sheet_id'
+
+      has_many :reference_sheets,
+        :class_name => "Fe::ReferenceSheet",
+        :foreign_key => "applicant_answer_sheet_id"
+    end
+
+    def complete?
+      !completed_at.nil?
+    end
+
+    # answers for this sheet, grouped by question id
+    def answers_by_question
+      @answers_by_question ||= answers.group_by { |answer| answer.question_id }
+    end
+
+    # Convenience method if there is only one question sheet in your system
+    def question_sheet
+      question_sheets.first
+    end
+
+    def pages
+      Page.where(:question_sheet_id => question_sheets.collect(&:id))
+    end
+
+    def completely_filled_out?
+      pages.all? {|p| p.complete?(self)}
+    end
+
+    def has_answer_for?(question_id)
+      !answers_by_question[question_id].nil?
+    end
+
+    def reference?
+      false
+    end
+
+    def percent_complete
+      num_questions = question_sheets.inject(0.0) { |sum, qs| qs.nil? ? sum : qs.questions.length + sum }
+      return 0 if num_questions == 0
+      num_answers = answers.where("value IS NOT NULL && value != ''").select("DISTINCT question_id").count
+      [ [ (num_answers.to_f / num_questions.to_f * 100.0).to_i, 100 ].min, 0 ].max
+    end
+
+    def collat_title() "" end
+  end
+end

data/app/models/fe/concerns/choice_field_concern.rb

@@ -0,0 +1,131 @@
+require 'net/http'
+begin
+  require 'xml/libxml'
+rescue LoadError
+  require 'rexml/document'
+end
+
+module Fe
+  module ChoiceFieldConcern
+    extend ActiveSupport::Concern
+
+    included do
+      has_many :elements, :class_name => "Element", :foreign_key => "conditional_id", :dependent => :nullify#, :order => :position
+    end
+
+    # Returns choices stored one per line in content field
+    def choices
+      retVal = Array.new
+      if ['yes-no', 'acceptance'].include?(self.style)
+        return [["Yes",1],["No",0]]
+      elsif !source.blank?
+        begin
+          doc = XML::Document.file(source)
+          options = doc.find(text_xpath).collect { |n| n.content }
+          values = doc.find(value_xpath).collect { |n| n.content }
+          retVal = [options, values].transpose
+        rescue NameError
+          doc = REXML::Document.new Net::HTTP.get_response(URI.parse(source)).body
+          retVal = [ doc.elements.collect(text_xpath){|c|c.text}, doc.elements.collect(value_xpath){|c|c.text} ].transpose.sort
+        end
+      elsif !content.nil?
+        content.split("\n").each do |opt|
+          pair = opt.strip.split(";").reverse!
+          pair[1] ||= pair[0]
+          retVal << pair
+        end
+      end
+      return retVal
+    end
+
+    def has_answer?(choice, app)
+      responses(app).each do |r|   # loop through Answers
+                                   # legacy field type choices may be int or tinyint
+                                   # raise r.inspect + ' - ' + choice.inspect if id == 1137 && r != 1
+                                   # r = r.to_s
+        return true if  case true
+                          when is_true(r) then is_true(choice)
+                          when is_false(r) then is_false(choice)
+                          else
+                            r.to_s == choice.to_s
+                        end
+      end
+      false
+    end
+
+    # which view to render this element?
+    def ptemplate
+      if self.style == 'checkbox'
+        'checkbox_field'
+      elsif self.style == 'drop-down'
+        'drop_down_field'
+      elsif self.style == 'radio'
+        'radio_button_field'
+      elsif self.style == 'yes-no'
+        'yes_no'
+      elsif self.style == 'rating'
+        'rating'
+      elsif self.style == 'acceptance'
+        'acceptance'
+      elsif self.style == 'country'
+        'country'
+      end
+    end
+
+    # element view provides the element label?
+    def default_label?
+      if self.style == 'acceptance' || self.hide_option_labels?
+        false   # template provides its own label
+      else
+        true
+      end
+    end
+
+    # css class names for javascript-based validation
+    def validation_class(answer_sheet)
+      if self.required?(answer_sheet)
+        if self.style == 'drop-down'
+          'validate-selection required'
+        elsif self.style == 'rating'
+          'validate-rating required'
+        elsif self.style == 'acceptance'
+          'required'
+        else
+          'validate-one-required required'
+        end
+      else
+        ''
+      end
+    end
+
+    def display_response(app=nil)
+      r = responses(app)
+      r.reject! {|a| a.class == Answer && a.value.blank?}
+      if r.blank?
+        ""
+      elsif self.style == 'yes-no'
+        ans = r.first
+        if ans.class == Answer
+          is_true(ans.value) ? "Yes" : "No"
+        else
+          is_true(ans) ? "Yes" : "No"
+        end
+      elsif self.style == 'acceptance'
+        "Accepted"  # if not blank, it's accepted
+      else
+        r.compact.join(", ")
+      end
+    end
+
+    protected
+    def is_true(val)
+      [1,'1',true,'true','Yes','yes'].include?(val) # note: true = anything but false | nil
+    end
+
+    def is_false(val)
+      # returns false if false (a bit odd)
+      [0,'0',false,'false','No','no'].include?(val)
+    end
+
+  end
+end

data/app/models/fe/condition.rb

@@ -0,0 +1,53 @@
+# :trigger_id     - question that controls the state of the dependent pages/questions
+# :expresion      - a single expression for eval() by both Javascript and Ruby
+#                   i.e. "answer == 'yes'"
+# a question can have more than one answer (choose many) in which case ANY answer will do (find)
+module Fe
+  class Condition < ActiveRecord::Base
+    self.table_name = self.table_name.sub('fe_', Fe.table_name_prefix)
+
+    belongs_to :question_sheet
+
+    belongs_to :trigger,
+               :class_name => "Question",
+               :foreign_key => "trigger_id"
+
+    validates_presence_of :expression
+    validates_length_of :expression, :maximum => 255, :allow_nil => true
+
+    # evaluate triggering element against expression and return match|nil
+    def evaluate?
+      true
+      # answers = self.trigger.response # answers loaded?
+      # expression = self.expression.downcase
+      # answers.find {|answer| answer = answer.downcase; eval(expression)}
+    end
+
+    # javascript to toggle pages/elements based on the "response"
+    def trigger_js
+      # will find the first answer (if multiple/checkboxes) where the expression evaluates to true (downcase both to be case insensitive)
+      # if no match, disabled will be true, otherwise false
+      js = <<-JS
+    disabled = (response.find(function(answer) {
+      answer = toLowerCase(answer);
+      return eval("#{escape_javascript(self.expression.downcase)}");
+    }) == undefined);
+      JS
+
+      if toggle_id.nil?
+        # toggling a whole page (link), which will affect final page validation
+      else
+        # toggling an element (form element)... if page is loaded/cached (if not, the server-side will take care of it on load)
+        js = js + <<-JS
+      if(page_handler.isPageLoaded('page_#{self.toggle_page_id}'))
+      {
+        $('element_#{self.toggle_id}').disabled = disabled;
+      }
+        JS
+      end
+
+      js
+    end
+
+  end
+end

data/app/models/fe/date_field.rb

@@ -0,0 +1,52 @@
+# DateField
+# - a question that provides a calendar/date picker
+module Fe
+  class DateField < Question
+
+    def validation_class(answer_sheet = nil)
+      if self.style == 'mmyy'
+        'validate-selection ' + super
+      else
+        'validate-date ' + super
+      end
+    end
+
+    def response(answer_sheet = nil)
+      r = super
+      return nil if r.blank?
+      begin
+        if r.is_a?(String)
+          parts = r.split('/')
+          if parts.length == 3
+            r = Time.mktime(parts[2], parts[0], parts[1])
+          else
+            r = Time.parse(r)
+          end
+        end
+      rescue ArgumentError
+        r = ''
+      end
+      r
+    end
+
+    def display_response(answer_sheet = nil)
+      return format_date_response(answer_sheet)
+    end
+
+    def format_date_response(answer_sheet = nil)
+      r = response(answer_sheet)
+      r = r.strftime("%m/%d/%Y") unless r.blank?
+      r
+    end
+
+    # which view to render this element?
+    def ptemplate
+      if self.style == 'mmyy'
+        'date_field_mmyy'
+      else
+        'date_field'
+      end
+    end
+
+  end
+end