affectiva-surveyor 1.5.0.pre.disco.2

data/Rakefile

@@ -0,0 +1,106 @@
+$LOAD_PATH << File.expand_path('../lib', __FILE__)
+
+require 'bundler/gem_tasks'
+require 'rspec/core/rake_task'
+require 'cucumber/rake/task'
+require 'ci/reporter/rake/rspec'
+
+###### RSPEC
+
+RSpec::Core::RakeTask.new(:spec)
+
+RSpec::Core::RakeTask.new(:rcov) do |spec|
+  spec.rcov = true
+end
+
+task :default => :spec
+
+###### CUCUMBER
+
+namespace :cucumber do
+  Cucumber::Rake::Task.new(:ok, 'Run features that should pass') do |t|
+    t.profile = 'default'
+  end
+
+  Cucumber::Rake::Task.new(:wip, 'Run features that are being worked on') do |t|
+    t.profile = 'wip'
+  end
+
+  desc 'Run all features'
+  task :all => [:ok, :wip]
+end
+desc 'Alias for cucumber:ok'
+task :cucumber => 'cucumber:ok'
+
+###### TESTBED
+
+desc 'Set up the rails app that the specs and features use'
+task :testbed => 'testbed:rebuild'
+
+namespace :testbed do
+  desc 'Generate a minimal surveyor-using rails app'
+  task :generate do
+    Tempfile.open('surveyor_Rakefile') do |f|
+      f.write("application \"config.time_zone='Rome'\"\n")
+      f.flush
+      sh "bundle exec rails new testbed --skip-bundle -m #{f.path}" # don't run bundle install until the Gemfile modifications
+    end
+    chdir('testbed') do
+      gem_file_contents = File.read('Gemfile')
+      gem_file_contents.sub!(/^(gem 'rails'.*)$/, %Q{# \\1\nplugin_root = File.expand_path('../..', __FILE__)\neval(File.read File.join(plugin_root, 'Gemfile.rails_version'))\ngem 'surveyor', :path => plugin_root})
+      File.open('Gemfile', 'w'){|f| f.write(gem_file_contents) }
+
+      Bundler.with_clean_env do
+        sh 'bundle install' # run bundle install after Gemfile modifications
+      end
+    end
+  end
+
+  desc 'Prepare the databases for the testbed'
+  task :migrate do
+    chdir('testbed') do
+      Bundler.with_clean_env do
+        sh 'bundle exec rails generate surveyor:install'
+        sh 'bundle exec rake db:migrate db:test:prepare'
+      end
+    end
+  end
+
+  desc 'Remove the testbed entirely'
+  task :remove do
+    rm_rf 'testbed'
+  end
+
+  task :rebuild => [:remove, :generate, :migrate]
+
+  desc 'Load all the sample surveys into the testbed instance'
+  task :surveys do
+    cd('testbed') do
+      Dir[File.join('surveys', '*.rb')].each do |fn|
+        puts "Installing #{fn} into the testbed"
+        system("rake surveyor FILE='#{fn}'")
+      end
+    end
+  end
+end
+
+###### CI
+
+namespace :ci do
+  task :all => ['rake:testbed', :spec, :cucumber, 'cucumber:wip']
+
+  task :env do
+    ENV['CI_REPORTS'] = 'reports/spec-xml'
+    ENV['SPEC_OPTS'] = "#{ENV['SPEC_OPTS']} --format nested"
+  end
+
+  Cucumber::Rake::Task.new(:cucumber, 'Run features using the CI profile') do |t|
+    t.profile = 'ci'
+  end
+
+  Cucumber::Rake::Task.new('cucumber:wip', 'Run WIP features using the CI profile') do |t|
+    t.profile = 'ci_wip'
+  end
+
+  task :spec => [:env, 'ci:setup:rspecbase', 'rake:spec']
+end

data/app/controllers/surveyor_controller.rb

@@ -0,0 +1,5 @@
+# Surveyor Controller allows a user to take a survey. It is semi-RESTful since it does not have a concrete representation model.
+# The "resource" is a survey attempt/session populating a response set.
+class SurveyorController < ApplicationController
+  include Surveyor::SurveyorControllerMethods
+end

data/app/helpers/results_helper.rb

@@ -0,0 +1,20 @@
+module ResultsHelper
+  def display_response(r_set,question)
+    sets = r_set.responses.select{|r| r.question.display_order == question.display_order}
+	  	if sets.size == 0
+  			return "-"
+  		elsif sets.size == 1
+  			return (sets.first.string_value || sets.first.text_value || show_answer(sets.first))
+  		else
+  		  txt = ""
+        sets.each do |set|
+          txt << show_answer(set) + "<br/>"
+        end
+        return txt
+		  end
+  end
+  
+  def show_answer(set)
+     set.answer.text
+  end
+end

data/app/helpers/survey_form_builder.rb

@@ -0,0 +1,37 @@
+class SurveyFormBuilder < ActionView::Helpers::FormBuilder 
+  def survey_check_box(method, options = {}, checked_value = "1", unchecked_value = "0")
+    fields = @template.survey_check_box(@object_name, method, options.merge(:object => @object), checked_value, unchecked_value)
+    fields[1]
+  end
+end
+
+module ActionView
+  module Helpers
+    module FormHelper
+      def survey_check_box(object_name, method, options = {}, checked_value = "1", unchecked_value = "0")
+        if (Rails::VERSION::STRING.to_f > 2.1)
+          InstanceTag.new(object_name, method, self, options.delete(:object)).to_survey_check_box_tag(options, checked_value, unchecked_value)
+        else
+          InstanceTag.new(object_name, method, self, nil, options.delete(:object)).to_survey_check_box_tag(options, checked_value, unchecked_value)
+        end
+      end
+    end
+
+    class InstanceTag
+      def to_survey_check_box_tag(options = {}, checked_value = "1", unchecked_value = "0")
+        options = options.stringify_keys
+        options["type"]     = "checkbox"
+        options["value"]    = checked_value
+        if options.has_key?("checked")
+          cv = options.delete "checked"
+          checked = cv == true || cv == "checked"
+        else
+          checked = self.class.check_box_checked?(value(object), checked_value)
+        end
+        options["checked"] = "checked" if checked
+        add_default_name_and_id(options)
+        [tag("input", "name" => options["name"], "type" => "hidden", "value" => unchecked_value), tag("input", options)]
+      end
+    end
+  end
+end

data/app/helpers/surveyor_helper.rb

@@ -0,0 +1,3 @@
+module SurveyorHelper
+  include Surveyor::Helpers::SurveyorHelperMethods
+end

data/app/inputs/quiet_input.rb

@@ -0,0 +1,5 @@
+class QuietInput < Formtastic::Inputs::HiddenInput
+  def to_html
+    super
+  end
+end

data/app/inputs/surveyor_check_boxes_input.rb

@@ -0,0 +1,35 @@
+class SurveyorCheckBoxesInput < Formtastic::Inputs::CheckBoxesInput
+  include Surveyor::Helpers::FormtasticCustomInput
+  def to_html
+    super
+  end
+  def choice_html(choice)
+    output = "" 
+    output << template.content_tag(:label,
+      hidden_fields? ?
+        check_box_with_hidden_input(choice) :
+        check_box_without_hidden_input(choice) <<
+      choice_label(choice),
+      label_html_options.merge(:for => choice_input_dom_id(choice), :class => nil)
+    )
+    output << builder.text_field(:response_other, input_html_options_with(choice, :response_other)) if options[:response_class] == "other_and_string"
+    output << builder.text_field(response_class_to_method(options[:response_class]), input_html_options_with(choice, options[:response_class])) if %w(date datetime time float integer string other_and_string).include? options[:response_class]
+    output << builder.text_area(:text_value, input_html_options_with(choice, :text_value)) if options[:response_class] == "text"
+    output.html_safe
+  end
+  def checked?(value)
+    selected_values.include?(value.to_s)
+  end
+  def disabled?(value)
+    disabled_values.include?(value) || input_html_options[:disabled] == true
+  end
+  def make_selected_values
+    if object.respond_to?(method)
+      selected_items = [object.send(method)].compact.flatten.map(&:to_s)
+      
+      [*selected_items.map { |o| send_or_call_or_object(value_method, o) }].compact
+    else
+      []
+    end
+  end
+end

data/app/inputs/surveyor_radio_input.rb

@@ -0,0 +1,18 @@
+class SurveyorRadioInput < Formtastic::Inputs::RadioInput
+  include Surveyor::Helpers::FormtasticCustomInput
+  def to_html
+    super
+  end
+  def choice_html(choice)
+    output = "" 
+    output << template.content_tag(:label,
+      builder.radio_button(input_name, choice_value(choice), input_html_options.merge(choice_html_options(choice)).merge(:required => false)) << 
+      choice_label(choice),
+      label_html_options.merge(:for => choice_input_dom_id(choice), :class => nil)
+    )
+    output << builder.text_field(:response_other, input_html_options_with(choice, :response_other)) if options[:response_class] == "other_and_string"
+    output << builder.text_field(response_class_to_method(options[:response_class]), input_html_options_with(choice, options[:response_class])) if %w(date datetime time float integer string other_and_string).include? options[:response_class]
+    output << builder.text_area(:text_value, input_html_options_with(choice, :text_value)) if options[:response_class] == "text"
+    output.html_safe
+  end
+end

data/app/models/answer.rb

@@ -0,0 +1,3 @@
+class Answer < ActiveRecord::Base
+  include Surveyor::Models::AnswerMethods
+end

data/app/models/dependency.rb

@@ -0,0 +1,3 @@
+class Dependency < ActiveRecord::Base
+  include Surveyor::Models::DependencyMethods
+end

data/app/models/dependency_condition.rb

@@ -0,0 +1,3 @@
+class DependencyCondition < ActiveRecord::Base
+  include Surveyor::Models::DependencyConditionMethods
+end

data/app/models/question.rb

@@ -0,0 +1,3 @@
+class Question < ActiveRecord::Base
+  include Surveyor::Models::QuestionMethods
+end

data/app/models/question_group.rb

@@ -0,0 +1,4 @@
+class QuestionGroup < ActiveRecord::Base
+  include Surveyor::Models::QuestionGroupMethods
+  
+end

data/app/models/response.rb

@@ -0,0 +1,4 @@
+class Response < ActiveRecord::Base
+  include ActionView::Helpers::SanitizeHelper
+  include Surveyor::Models::ResponseMethods
+end

data/app/models/response_set.rb

@@ -0,0 +1,3 @@
+class ResponseSet < ActiveRecord::Base
+  include Surveyor::Models::ResponseSetMethods
+end

data/app/models/survey.rb

@@ -0,0 +1,3 @@
+class Survey < ActiveRecord::Base
+  include Surveyor::Models::SurveyMethods  
+end

data/app/models/survey_section.rb

@@ -0,0 +1,4 @@
+class SurveySection < ActiveRecord::Base
+  include Surveyor::Models::SurveySectionMethods
+end
+

data/app/models/survey_section_sweeper.rb

@@ -0,0 +1,15 @@
+class SurveySectionSweeper < ActionController::Caching::Sweeper
+  observe :survey_section
+  
+  def after_save(section)
+    expire_cache(section)
+  end
+  
+  def after_destroy(section)
+    expire_cache(section)
+  end
+  
+  def expire_cache(section)
+    expire_fregment "section_#{section.id}"
+  end
+end

data/app/models/survey_translation.rb

@@ -0,0 +1,4 @@
+class SurveyTranslation < ActiveRecord::Base
+  include Surveyor::Models::SurveyTranslationMethods
+end
+

data/app/models/validation.rb

@@ -0,0 +1,3 @@
+class Validation < ActiveRecord::Base
+  include Surveyor::Models::ValidationMethods
+end

data/app/models/validation_condition.rb

@@ -0,0 +1,3 @@
+class ValidationCondition < ActiveRecord::Base
+  include Surveyor::Models::ValidationConditionMethods
+end

data/app/views/layouts/results.html.erb

@@ -0,0 +1,13 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+  <meta http-equiv="content-type" content="text/html;charset=UTF-8" />
+  <title>Survey: Result Sets</title>
+  <%= surveyor_includes %>
+</head>
+<body>
+  <div id="flash"><%= flash[:notice] %></div>
+  <%= yield %>
+</body>
+</html>

data/app/views/layouts/surveyor_default.html.erb

@@ -0,0 +1,12 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
+<head>
+  <meta http-equiv="content-type" content="text/html;charset=UTF-8" />
+  <title>Survey: <%= controller.action_name %></title>
+  <%= surveyor_includes %>
+</head>
+<body>
+  <%= yield %>
+</body>
+</html>

data/app/views/partials/_answer.html.haml

@@ -0,0 +1,25 @@
+-# TODO: disabled
+- rg ||= nil
+- r = response_for(@response_set, q, a, rg)
+- i = response_idx(q.pick != "one") # argument will be false (don't increment i) if we're on radio buttons
+- disabled = defined?(disableFlag) ? disableFlag : false
+= f.semantic_fields_for i, r do |ff|
+  = ff.input :question_id, :as => :quiet unless q.pick == "one" # don't repeat question_id if we're on radio buttons
+  = ff.input :api_id, :as => :quiet unless q.pick == "one"
+  = ff.input :response_group, :value => rg, :as => :quiet if q.pick != "one" && g && g.display_type == "repeater"
+  - case q.pick
+  - when "one"
+    = ff.input :answer_id, :as => :surveyor_radio, :collection => [[a.text_for(nil, @render_context, I18n.locale), a.id]], :label => false, :input_html => {:class => a.css_class, :disabled => disabled}, :response_class => a.response_class
+  - when "any"
+    = ff.input :answer_id, :as => :surveyor_check_boxes, :collection => [[a.text_for(nil, @render_context, I18n.locale), a.id]], :label => false, :input_html => {:class => a.css_class, :disabled => disabled}, :response_class => a.response_class
+  - when "none"
+    - if %w(date datetime time float integer string text).include? a.response_class
+      = ff.input :answer_id, :as => :quiet, :input_html => {:class => a.css_class, :value => a.id}
+      = ff.input rc_to_attr(a.response_class),
+                  :as         => rc_to_as(a.response_class),
+                  :label      => a.text_for(:pre, @render_context, I18n.locale).blank? ? false : a.text_for(:pre, @render_context, I18n.locale),
+                  :hint       => a.text_for(:post, @render_context, I18n.locale),
+                  :input_html => generate_pick_none_input_html(r.to_formatted_s, a.default_value_for(@render_context, I18n.locale), a.css_class, a.response_class, disabled, a.input_mask, a.input_mask_placeholder)
+    - else
+      = a.text_for(nil, @render_context, I18n.locale)
+  %span.help= a.help_text_for(@render_context, I18n.locale) unless g && g.display_type == "grid"

data/app/views/partials/_dependents.html.haml

@@ -0,0 +1,5 @@
+#dependents
+  .title Follow-up questions from your answers on the previous page
+  -# @dependents.each_with_index do |question, index|
+    = dependency_explanation_helper(question, @response_set)
+    = render question.custom_renderer || "/partials/question", :question => question, :response_set => @response_set, :number => "D#{index+1}"

data/app/views/partials/_question.html.haml

@@ -0,0 +1,28 @@
+-# TODO: js for slider
+- rg ||= nil
+- renderer = q.renderer(g ||= nil)
+- disabled = defined?(disableFlag) ? disableFlag : false
+- unless q.display_type == "hidden"
+  = f.inputs q_text(q, @render_context, I18n.locale), :id => rg ? "q_#{q.id}_#{rg}" : "q_#{q.id}", :class => "q_#{renderer} #{q.css_class(@response_set)}" do
+    %span.help= q.help_text_for(@render_context, I18n.locale)
+    - case renderer
+    - when  :image, :label, :default_label, :inline_label, :repeater_label
+    - when :dropdown, :inline_dropdown, :default_dropdown, :slider, :repeater_dropdown
+      - r = response_for(@response_set, q, nil, rg)
+      - i = response_idx
+      = f.semantic_fields_for i, r do |ff|
+        = ff.input :question_id, :as => :quiet
+        = ff.input :response_group, :as => :quiet, :value => rg if g && g.display_type == "repeater"
+        = ff.input :api_id, :as => :quiet
+        = ff.input :answer_id, :as => :select, :collection => q.answers.map{|a| [a.text, a.id]}, :include_blank => (renderer != :slider), :label => q.text, :input_html => { :disabled => disabled }
+    - else # :default, :inline, :inline_default
+      - if q.pick == "one"
+        - r = response_for(@response_set, q, nil, rg)
+        - i = response_idx  # increment the response index since the answer partial skips for q.pick == one
+        = f.semantic_fields_for i, r do |ff|
+          = ff.input :question_id, :as => :quiet
+          = ff.input :response_group, :as => :quiet, :value => rg if g && g.display_type == "repeater"
+          = ff.input :api_id, :as => :quiet
+      - q.answers.each do |a|
+        - next if (q.pick == "one" or q.pick == "any") and disabled and @response_set.responses.where( :question_id => q.id, :answer_id => a.id).empty?
+        = render a.custom_renderer || '/partials/answer', :q => q, :a => a, :f => f, :rg => rg, :g => g, :disableFlag => disabled

data/app/views/partials/_question_group.html.haml

@@ -0,0 +1,44 @@
+- renderer = g.renderer
+- unless g.display_type == "hidden"
+  = f.inputs "#{next_question_number(g)}#{g.text_for(@render_context, I18n.locale)}", :id => "g_#{g.id}", :class => "g_#{renderer} #{g.css_class(@response_set)}" do
+    %li.help= g.help_text_for(@render_context, I18n.locale)
+    - case renderer
+      - when :grid
+        %li
+          %table
+            %col.pre
+            - qs.first.answers.each do |a|
+              %col{:class => cycle("odd", "even")}
+            %col.post
+            %tbody
+              - qs.each_slice(10) do |ten_questions| # header row every 10
+                %tr
+                  %th  
+                  - ten_questions.first.answers.each do |a|
+                    %th
+                      = a.text_for(nil, @render_context, I18n.locale)
+                      %span.help= a.help_text_for(@render_context, I18n.locale)
+                  %th  
+                - ten_questions.each_with_index do |q, i|
+                  %tr{:id => "q_#{q.id}", :class => "q_#{renderer} #{q.css_class(@response_set)}"}
+                    %th
+                      = q.text_for(:pre, @render_context, I18n.locale)
+                      = q.help_text_for(@render_context, I18n.locale)
+                      - if q.pick == "one"
+                        - r = response_for(@response_set, q, nil, g)
+                        - i = response_idx  # increment the response index since the answer partial skips for q.pick == one
+                        = f.semantic_fields_for i, r do |ff|
+                          = ff.input :question_id, :as => :quiet
+                          = ff.input :api_id, :as => :quiet
+                      - q.answers.each do |a|
+                        %td= render(a.custom_renderer || '/partials/answer', :g => g, :q => q, :a => a, :f => f) unless q.display_type == "label"
+                      %th= q.text_for(:post, @render_context, I18n.locale)
+      - when :repeater
+        - (@response_set.count_group_responses(qs) + 1).times do |rg|
+          %li
+            - qs.each do |q|
+              = render q.custom_renderer || "/partials/question", :g => g, :rg => rg, :q => q, :f => f
+        = submit_tag("+ add row", :name => "section[#{@section.id}][g_#{g.id}]", :class => "add_row")
+      - else # :inline
+        - qs.each do |q|
+          = render q.custom_renderer || "/partials/question", :g => g, :q => q, :f => f