qwester 0.0.1

data/lib/active_admin/admin/answers.rb

@@ -0,0 +1,73 @@
+module Qwester
+
+  ActiveAdmin.register Answer do
+    
+    menu_label = 'Answers'
+    menu_label = "Qwester #{menu_label}" unless Qwester.active_admin_menu
+    menu :parent => Qwester.active_admin_menu, :label => menu_label
+
+    actions :all, :except => [:edit]
+
+    index do
+      column :id
+      column :value
+      column 'Question (edit answer via question)', :question do |answer|
+        link_to(answer.question.title, edit_admin_qwester_question_path(answer.question)) if answer.question
+      end
+      column :position
+      column :cope_index
+      default_actions
+    end
+    
+    member_action :move_up do
+      answer = Answer.find(params[:id])
+      answer.move_higher
+      redirect_to admin_qwester_question_path(answer.question)
+    end
+    
+    member_action :move_down do
+      answer = Answer.find(params[:id])
+      answer.move_lower
+      redirect_to admin_qwester_question_path(answer.question)      
+    end
+    
+    member_action :remove do
+      answer = Answer.find(params[:id])
+      answer.destroy
+      redirect_to admin_qwester_question_path(answer.question) 
+    end
+
+#    controller do
+#
+#      before_filter :get_question_and_answer, :only => [:move_up, :move_down, :remove]
+#
+
+
+#
+#      def add
+#        answer = Answer.find(params[:id])
+#        @rule_set = RuleSet.find(params[:rule_set_id])
+#        @rule_set.answers << answer
+#      end
+#
+#      def delete
+#        answer = Answer.find(params[:id])
+#        @rule_set = RuleSet.find(params[:rule_set_id])
+#        @rule_set.answers.delete(answer)
+#      end
+#
+#      private
+#      def get_question_and_answer
+#        @answer = Answer.find(params[:id])
+#        @question = Question.find(params[:question_id])
+#      end
+#
+#      def redirect_to_answer_show
+#        redirect_to admin_question_path(@question)
+#      end
+#
+#    end
+
+  end if defined?(ActiveAdmin)
+
+end

data/lib/active_admin/admin/questionnaires.rb

@@ -0,0 +1,76 @@
+module Qwester
+
+  ActiveAdmin.register Questionnaire do
+    
+    menu_label = 'Questionnaires'
+    menu_label = "Qwester #{menu_label}" unless Qwester.active_admin_menu
+    menu :parent => Qwester.active_admin_menu, :label => menu_label
+
+    index do
+      column :image do |questionnaire|
+        image_tag(questionnaire.button_image.url(:thumbnail))
+      end
+      column :title
+      column :questions do |questionnaire|
+        questionnaire.questions.count
+      end
+      default_actions
+    end
+
+    form do |f|
+      f.inputs "Details" do
+        f.input :title
+        if defined?(Ckeditor)
+          f.input :description, :as => :ckeditor, :input_html => { :height => 100, :toolbar => 'Basic' }
+        else
+          f.input :description, :input_html => { :rows => 3}
+        end
+        f.input :button_image, :as => :file, :hint => f.template.image_tag(f.object.button_image.url(:link))
+        f.input :questions, :as => :check_boxes, :collection => Question.all
+      end
+      f.buttons
+    end
+
+    show do
+      div do
+        sanitize(qwester_questionnaire.description.html_safe ) if qwester_questionnaire.description.present?
+      end
+
+      div do
+        image_tag qwester_questionnaire.button_image.url(:link)
+      end
+
+      div do
+        h3 'Questions'
+        ul :id => 'question_list'
+        qwester_questionnaire.questions.each do |question|
+          li do 
+            text = [question.title]
+            text << link_to('Up', move_up_admin_qwester_questionnaire_path(qwester_questionnaire, :question_id => question)) unless qwester_questionnaire.first?(question)
+            text << link_to('Down', move_down_admin_qwester_questionnaire_path(qwester_questionnaire, :question_id => question)) unless qwester_questionnaire.last?(question)
+            text.join(' ').html_safe
+          end
+        end
+      end
+    end
+    
+    member_action :move_up do
+      questionnaire = Questionnaire.find(params[:id])
+      question = Question.find(params[:question_id])
+      questionnaire.move_higher(question)
+      redirect_to admin_qwester_questionnaire_path(questionnaire)      
+    end
+    
+    member_action :move_down do
+      questionnaire = Questionnaire.find(params[:id])
+      question = Question.find(params[:question_id])
+      questionnaire.move_lower(question)
+      redirect_to admin_qwester_questionnaire_path(questionnaire)       
+    end
+    
+
+
+
+  end if defined?(ActiveAdmin)
+
+end

data/lib/active_admin/admin/questions.rb

@@ -0,0 +1,74 @@
+module Qwester
+
+  ActiveAdmin.register Question do
+    
+    menu_label = 'Questions'
+    menu_label = "Qwester #{menu_label}" unless Qwester.active_admin_menu
+    menu :parent => Qwester.active_admin_menu, :label => menu_label
+
+    index do
+      column :ref
+      column :title do |qwester_question|
+        link_to(qwester_question.title, '#', :title => qwester_question.description, :class => 'no_decoration')
+      end
+      column :answers do |qwester_question|
+        qwester_question.answers.count
+      end
+      column :multi_answer do |qwester_question|
+        qwester_question.multi_answer? ? 'Any' : 'One'
+      end
+      default_actions
+    end
+
+    show do
+      para("References: #{question.ref}") if qwester_question.ref.present?
+      para(qwester_question.description)
+      h3 "Answers"
+      para "User can select one#{' or many' if qwester_question.multi_answer?} of:"
+
+      table :class => 'sortable_list' do
+        tr do
+          th 'Value'
+        end
+        qwester_question.answers.each do |answer|
+          tr do
+            td answer.value
+            td(answer.first? ? " ".html_safe : link_to('Up', move_up_admin_qwester_answer_path(answer)))
+            td(answer.last? ? " ".html_safe : link_to('Down', move_down_admin_qwester_answer_path(answer)))
+            td link_to('Delete', remove_admin_qwester_answer_path(answer), :confirm => "Are you sure you want to delete the answer '#{answer.value}'?")
+          end
+        end
+      end
+    end
+
+    form do |f|
+      f.inputs "Details" do
+        f.input :ref, :label => 'Reference'
+        f.input :title
+        f.input :description, :input_html => { :rows => 2}
+        f.input :multi_answer, :label => 'User may select more than one answer to this question?'
+      end
+
+      f.inputs do
+        f.has_many :answers do |answer_form|
+          answer_form.input :value
+          answer_form.input :position
+          answer_form.input :cope_index
+        end
+      end
+
+      f.buttons
+    end
+    
+    controller do
+
+      def new
+        @qwester_question = Question.new
+        @qwester_question.build_standard_answers
+      end
+
+    end
+
+  end if defined?(ActiveAdmin)
+
+end

data/lib/active_admin/admin/rule_sets.rb

@@ -0,0 +1,176 @@
+module Qwester
+
+  ActiveAdmin.register RuleSet do
+    
+    menu_label = 'Rule Sets'
+    menu_label = "Qwester #{menu_label}" unless Qwester.active_admin_menu
+    menu :parent => Qwester.active_admin_menu, :label => menu_label
+
+    index do
+      column :title
+      column :answers do |rule_set|
+        rule_set.answers.count
+      end
+      column :rule
+      default_actions
+    end
+
+    sidebar :rule_syntax do
+      para 'R1 = "(a1 and a2) or (a3 and a4)"'
+
+      para 'R2 = "a1 and not a2"'
+
+      para 'R3 = "2 in a1 a2 a3"'
+
+      para 'R4 = "(2 in a1 a2 a3) and (1 in a4 a5)"'
+
+      table(:class => 'small') do
+        tr do
+          th "Input"
+          th "R1"
+          th "R2"
+          th "R3"
+          th "R4"
+        end
+        tr do
+          th "[a1, a2]"
+          th "true"
+          th "false"
+          th "true"
+          th "false"
+        end
+        tr do
+          th "[a3, a4]"
+          th "true"
+          th "false"
+          th "false"
+          th "false"
+        end
+        tr do
+          th "[a1, a3, a5]"
+          th "false"
+          th "true"
+          th "true"
+          th "true"
+        end      
+      end
+
+    end
+    
+    form do |f|
+      f.inputs "Details" do
+        f.input :title
+        if defined?(Ckeditor)
+          f.input :description, :as => :ckeditor, :input_html => { :height => 100, :toolbar => 'Basic' }
+        else
+          f.input :description, :input_html => { :rows => 3}
+        end
+        f.input :url
+        f.input :rule, :input_html => { :rows => 3}
+  
+      end
+      
+      f.inputs("Questions") do 
+        
+        if qwester_rule_set.questions.empty?
+          
+          f.input(
+            :answers, 
+            :as => :check_boxes, 
+            :member_label => lambda {|a| "a#{a.id}: #{a.value} to '#{a.question.title}'"},
+            :input_html => { :size => 20, :multiple => true}
+          ) 
+          
+        else
+          
+          questions = qwester_rule_set.questions | Question.all
+          questions.collect! do |question|
+            style = 'border:#CCCCCC 1px solid;'
+            html = [content_tag('td', question.title, :style => style)]
+            answers = question.answers.collect do |answer|
+              answer_style = style
+              answer_style += 'background-color:#005C1F;color:white;font-weight:bold;' if qwester_rule_set.answers.include?(answer)
+              content_tag('td', "a#{answer.id} #{answer.value}".html_safe, :style => answer_style).html_safe
+            end
+            html << answers.join(" ").html_safe
+            content_tag('tr', html.join(" ").html_safe)
+          end
+          table_class = ["selection"]
+          table_class << 'associated_questions' if qwester_rule_set.id.present?
+          content_tag 'li', content_tag('table', questions.join("\n").html_safe, :class => table_class.join(' '))
+        
+        end
+        
+      end
+      
+      f.buttons
+    end
+    
+    show do
+      div do
+        para sanitize(qwester_rule_set.description) 
+      end if qwester_rule_set.description.present?
+      
+      div do
+        h3 'Target url'
+        para link_to qwester_rule_set.url
+        para qwester_rule_set.link_text? ? qwester_rule_set.link_text : 'No link text specified'
+      end
+      
+      div do
+        h3 'The rule'
+        para qwester_rule_set.rule
+      end
+      
+      if qwester_rule_set.matching_answer_sets.present?
+        div do
+          h3 'Sample matching answer sets'
+          if qwester_rule_set.matching_answer_sets.length
+            para "There are at least #{qwester_rule_set.matching_answer_sets.length} combinations of answers that would pass this test."
+          end
+          para 'The following combinations of answers would pass'
+          qwester_rule_set.matching_answer_sets.each do |answer_set|
+            ul :style => 'border:#CCCCCC 1px solid;padding:5px;list-style:none;' do
+              answer_set.each do |answer_id|
+                next unless Answer.exists?(answer_id)
+                answer = Answer.find(answer_id)
+                question_summary = [answer.value, answer.question.title].join(' : ')
+                li "(a#{answer_id}) #{question_summary}"
+              end
+            end
+          end
+        end
+      else
+        div do
+          h3 'Matching answer sets'
+          para 'Answers will pass unless they contain a blocking answer set'
+        end
+      end
+      
+      if qwester_rule_set.blocking_answer_sets.present?
+        div do
+          h3 'Sample blocking answer sets'
+          para 'The following combinations of answers would not pass'
+          qwester_rule_set.blocking_answer_sets.each do |answer_set|
+             ul :style => 'border:#CCCCCC 1px solid;padding:5px;list-style:none;' do
+              answer_set.each do |answer_id|
+                next unless Answer.exists?(answer_id)
+                answer = Answer.find(answer_id)
+                question_summary = [answer.value, answer.question.title].join(' : ')
+                li "(a#{answer_id}) #{question_summary}"
+              end
+            end
+          end
+        end
+      else
+        div do
+          h3 'Blocking answer sets'
+          para 'Answers will only pass if they contain a matching answer set'
+        end
+      end
+      
+    end  
+
+  end if defined?(ActiveAdmin)
+
+end

data/lib/qwester/engine.rb

@@ -0,0 +1,5 @@
+module Qwester
+  class Engine < ::Rails::Engine
+    isolate_namespace Qwester
+  end
+end

data/lib/qwester/version.rb

@@ -0,0 +1,3 @@
+module Qwester
+  VERSION = "0.0.1"
+end

data/lib/qwester.rb

@@ -0,0 +1,26 @@
+require "qwester/engine"
+require 'acts_as_list'
+require 'paperclip'
+require 'random_string'
+
+module Qwester
+  
+  def self.active_admin_load_path
+    File.expand_path("active_admin/admin", File.dirname(__FILE__))
+  end
+  
+  def self.active_admin_menu
+    if @active_admin_menu == 'none'
+      return nil
+    elsif @active_admin_menu
+      @active_admin_menu
+    else
+      'Qwester'
+    end
+  end
+  
+  def self.active_admin_menu=(menu)
+    @active_admin_menu = menu
+  end
+  
+end

data/lib/random_string.rb

@@ -0,0 +1,20 @@
+class RandomString < String
+  def initialize(length = 40)
+    super(new_random_string(length))
+  end
+
+
+  private
+  def new_random_string(length = 40)
+    string = ""
+    string += random_string until string.length >= length
+    return string[0, length]
+  end
+
+  def random_string
+    string_pairs = Digest::SHA1.hexdigest( Time.now.to_s.split(//).sort_by {rand}.join ).scan(/.{2}/)
+    random_strings = string_pairs.collect{|s| s[0,1].crypt(s)}
+    random_string = random_strings.join
+    return random_string.gsub(/[^A-Za-z0-9]/, "")
+  end
+end

data/lib/tasks/qwester_tasks.rake

@@ -0,0 +1,28 @@
+# desc "Explaining what the task does"
+# task :qwester do
+#   # Task goes here
+# end
+
+namespace :qwester do
+
+  # Usage: rake data:reset_positions RAILS_ENV=production
+  desc "Goes through each of the acts_as_list objects and resets the positions based on order they were added to the database"
+  task :reset_positions => :environment do
+
+
+
+    Qwester::Questionnaire.all.each do |questionnaire|
+      first_id = questionnaire.questionnaires_questions.minimum(:id)
+      if first_id   # nil if questionnaire has no questions
+        sql = "UPDATE qwester_questionnaires_questions SET position = (1 + id - #{first_id}) WHERE questionnaire_id = #{questionnaire.id};"
+        ActiveRecord::Base.connection.execute sql
+      end
+    end
+
+
+
+    puts "Positions reset"
+  end
+
+
+end