upgrade_surveyor_gui 0.1.2

data/app/controllers/surveyor_gui/questions_controller.rb

@@ -0,0 +1,187 @@
+class SurveyorGui::QuestionsController < ApplicationController
+  layout 'surveyor_gui/surveyor_gui_blank'
+
+  def new
+    @title = "Add Question"
+    survey_section = SurveySection.find(params[:survey_section_id])
+    survey = Survey.find(survey_section.survey_id)
+    @question_group = QuestionGroup.new
+    if params[:prev_question_id]
+      prev_question_display_order = _get_prev_display_order(params[:prev_question_id])
+      @question = Question.new(:survey_section_id => params[:survey_section_id],
+                               :text => params[:text],
+                               :display_type => "default",
+                               :display_order => prev_question_display_order)
+    else
+      @question = Question.new(:survey_section_id => params[:survey_section_id],
+                               :text => params[:text],
+                               :display_type => "default",
+                               :display_order => params[:display_order] || 0)
+    end
+    @question.question_type_id = params[:question_type_id] if !params[:question_type_id].blank?
+    @question.answers.build(:text => '', :response_class=>"string")
+  end
+
+  def edit
+    @title = "Edit Question"
+    @question = Question.includes(:answers).find(params[:id])
+    @question.question_type_id = params[:question_type_id] if !params[:question_type_id].blank?
+  end
+
+  def adjusted_text
+    if @question.part_of_group?
+      @question.question_group.text
+    else
+      @question.text
+    end
+  end
+
+  helper_method :adjusted_text
+
+  def create
+    Question.where(:survey_section_id => params[:question][:survey_section_id])
+            .where("display_order >= ?", params[:question][:display_order])
+            .update_all("display_order = display_order+1")
+    if !params[:question][:answers_attributes].blank? && !params[:question][:answers_attributes]['0'].blank?
+      params[:question][:answers_attributes]['0'][:original_choice] = params[:question][:answers_attributes]['0'][:text]
+    end
+    @question = Question.new(question_params)
+    if @question.save
+      @question.answers.each_with_index {|a, index| a.destroy if index > 0} if @question.pick == 'none'
+      #load any page - if it has no flash errors, the colorbox that contains it will be closed immediately after the page loads
+      render :inline => '<div id="cboxQuestionId">'+@question.id.to_s+'</div>', :layout => 'surveyor_gui/surveyor_gui_blank'
+    else
+      @title = "Add Question"
+      render :action => 'new', :layout => 'surveyor_gui/surveyor_gui_blank'
+    end
+  end
+
+  def update
+    @title = "Update Question"
+    @question = Question.includes(:answers).find(params[:id])
+    if @question.update_attributes(question_params)
+      @question.answers.each_with_index {|a, index| a.destroy if index > 0} if @question.pick == 'none'
+      #load any page - if it has no flash errors, the colorbox that contains it will be closed immediately after the page loads
+      render :blank, :layout => 'surveyor_gui/surveyor_gui_blank'
+    else
+      render :action => 'edit', :layout => 'surveyor_gui/surveyor_gui_blank'
+    end
+  end
+
+  def destroy
+    question = Question.find(params[:id])
+    if !question.survey_section.survey.template && question.survey_section.survey.response_sets.count > 0
+      flash[:error]="Reponses have already been collected for this survey, therefore it cannot be modified. Please create a new survey instead."
+      return false
+    end
+    if !question.dependency_conditions.blank?
+      render :text=>"The following questions have logic that depend on this question: \n\n"+question.dependency_conditions.map{|d| " - "+d.dependency.question.text}.join('\n')+"\n\nPlease delete logic before deleting this question.".html_safe
+      return
+    end
+    if question.part_of_group?
+      question.question_group.questions.each{|q| q.destroy}
+      render :text=>''
+      return
+    end
+    question.destroy
+    render :text=>''
+  end
+
+  def sort
+    survey = Surveyform.find(params[:survey_id])
+    survey.sort_as_per_array(params)
+    render :nothing => true
+  end
+
+  def cut_question
+    session[:cut_question]=params[:id]
+    if q=Question.find(params[:id])
+      q.update_attribute(:survey_section_id,nil)
+    end
+    redirect_to :back
+  end
+
+  def render_answer_fields_partial
+    if params[:id].blank?
+      @questions = Question.new
+    else
+      @questions = Question.find(params[:id])
+    end
+    if @questions.answers.empty?
+      @questions.answers.build(:text=>'')
+    else
+      if !@questions.answers.first.original_choice.blank?
+        @questions.answers.first.update_attribute(:text,@questions.answers.first.original_choice)
+      end
+      if params[:add_row]
+        display_order = @questions.answers.maximum(:display_order)
+        display_order = display_order ? display_order + 1 : 0
+        @questions = Question.new
+        @questions.answers.build(:text=>'', :display_order=>display_order)
+      end
+    end
+    render :partial => 'answer_fields'
+  end
+
+  def render_grid_partial
+    if params[:id].blank?
+      @questions = Question.new
+    else
+      @questions = Question.find(params[:id])
+    end
+    if @questions.answers.empty?
+      @questions.answers.build(text: "", response_class: "answer")
+    else
+      if !@questions.answers.first.original_choice.blank?
+        @questions.answers.first.update_attribute(:text,@questions.answers.first.original_choice)
+      end
+    end
+    if @questions.question_group
+      @question_group=@questions.question_group
+    else
+      @question_group=QuestionGroup.new
+      @question_group.columns.build
+    end
+    column_count = @question_group.columns.size
+    requested_columns = params[:index] == "NaN" ? column_count : params[:index].to_i
+    if requested_columns >= column_count
+      requested_columns = requested_columns - column_count
+      (requested_columns).times.each {@question_group.columns.build}
+    else
+      @question_group.trim_columns (column_count-requested_columns)
+    end
+    @questions.dropdown_column_count = requested_columns.to_i+1
+    if params[:question_type_id] == "grid_dropdown"
+      render :partial => 'grid_dropdown_fields'
+    else
+      render :partial => 'grid_fields'
+    end
+  end
+
+
+  def render_no_picks_partial
+    if params[:id].blank?
+      @questions = Question.new
+    else
+      @questions = Question.find(params[:id])
+    end
+    if @questions.answers.empty?
+      @questions.answers.build(:text=>'')
+    end
+    render :partial => 'no_picks'
+  end
+
+  private
+  def question_params
+    ::PermittedParams.new(params[:question]).question
+  end
+
+  def _get_prev_display_order(prev_question)
+    prev_question = Question.find(prev_question)
+    if prev_question.part_of_group?
+      prev_question.question_group.questions.last.display_order + 1
+    else
+      prev_question.display_order + 1
+    end
+  end
+end

data/app/controllers/surveyor_gui/reports_controller.rb

@@ -0,0 +1,339 @@
+require 'complex'
+include Math
+
+class SurveyorGui::ReportsController < ApplicationController
+  include ReportPreviewWrapper
+
+  # ReportPreviewWrapper wraps preview in a database transaction so test data is not permanently saved.
+  around_action :wrap_in_transaction, only: :preview
+  layout 'surveyor_gui/surveyor_gui_default'
+
+  def preview
+    response_qty = 5 
+    user_ids = response_qty.times.map{|i| -1*i}
+    @title = "Preview Report for "+response_qty.to_s+" randomized responses"
+    @survey = Survey.find(params[:survey_id])
+    user_ids.each do |user_id|
+      @response_set = ResponseSet.create(survey: @survey, user_id: user_id, test_data: true)
+      ReportResponseGenerator.new(@survey).generate_1_result_set(@response_set)
+    end
+    @response_sets = ResponseSet.where(survey_id: @survey.id, test_data: true).where('user_id in (?)', user_ids)
+    @responses = Response.joins(:response_set, :answer).where('user_id in (?) and survey_id = ? and test_data = ? and answers.is_comment = ?',user_ids,params[:survey_id],true, false)
+    if (!@survey)
+      flash[:notice] = "Survey/Questionnnaire not found."
+      redirect_to :back
+    end
+    generate_report(params[:survey_id], true)
+    render :show    
+  end
+
+  def show
+    @survey = Survey.find(params[:id])
+    @response_sets = ResponseSet.where(survey_id: @survey.id, test_data: false)
+    @responses = Response.joins(:response_set, :answer).where('survey_id = ? and test_data = ? and answers.is_comment=?',@survey.id,false, false)  
+    @title = "Show report for #{@survey.title}"
+    if @responses.count > 0
+      generate_report(@survey.id, false)
+    else
+      flash[:error] = "No responses have been collected for this survey"
+      redirect_to surveyforms_path 
+    end
+  end
+
+  def generate_report(survey_id, test)
+    questions = Question.joins(:survey_section).where('survey_sections.survey_id = ? and is_comment = ?', survey_id, false)
+# multiple_choice_responses = Response.joins(:response_set, :answer).where('survey_id = ? and test_data = ?',survey_id,test).group('responses.question_id','answers.id','answers.text').select('responses.question_id, answers.id, answers.text as text, count(*) as answer_count').order('responses.question_id','answers.id')
+ 
+# multiple_choice_responses = Answer.unscoped.joins(:question=>:survey_section).includes(:responses=>:response_set).where('survey_sections.survey_id=? and (response_sets.test_data=? or response_sets.test_data is null)',survey_id,test).group('answers.question_id','answers.id','answers.text').select('answers.question_id, answers.id, answers.text as text, count(*) as answer_count').order('answers.question_id','answers.id')
+
+# multiple_choice_responses = Answer.unscoped.find(:all,
+# :joins => "LEFT JOIN responses ON responses.answer_id = answers.id",
+# :select => "answers.question_id, answers.id, answers.text as text, count(answers.*) as answer_count",
+# :group => "answers.question_id, answers.id, answers.text",
+# :order => "answers.question_id, answers.id")
+
+    multiple_choice_responses = Answer.unscoped.joins("LEFT OUTER JOIN responses ON responses.answer_id = answers.id
+LEFT OUTER JOIN response_sets ON response_sets.id = responses.response_set_id").
+                                                joins(:question=>:survey_section).
+                                                where('survey_sections.survey_id=? and (response_sets.test_data=? or response_sets.test_data is null)',survey_id,test).
+                                                select("answers.question_id, answers.id, answers.text as text, answers.is_comment, count(responses.id) as answer_count").
+                                                group("answers.question_id, answers.id, answers.text, answers.is_comment").
+                                                order("answers.question_id, answers.id")
+
+    single_choice_responses = Response.joins(:response_set).where('survey_id = ? and test_data = ?',survey_id,test).select('responses.question_id, responses.answer_id,
+responses.float_value,
+responses.integer_value,
+responses.datetime_value, 
+responses.string_value')
+    @chart = {}
+    colors = ['#4572A7', '#AA4643', '#89A54E', '#80699B', '#3D96AE', '#DB843D', '#92A8CD', '#A47D7C', '#B5CA92']
+    questions.each do |q|
+      if [:grid_one, :grid_any].include? q.question_type_id
+          generate_stacked_bar_chart(q, multiple_choice_responses, colors)
+      elsif q.question_type_id == :grid_dropdown
+        q.question_group.questions.where(is_comment: false).each do |question|
+            generate_grid_dropdown_bar_chart(question, multiple_choice_responses, colors)
+          end
+      elsif q.pick == 'one'
+          generate_pie_chart(q, multiple_choice_responses)
+      elsif q.pick == 'any'
+          generate_bar_chart(q, multiple_choice_responses, colors)
+      elsif [:number,:date,:datetime,:time].include? q.question_type_id
+          generate_histogram_chart(q, single_choice_responses)
+      end
+    end
+  end
+
+  private
+
+  def generate_pie_chart(q, responses)
+    piearray = []
+    responses.where(:question_id => q.id).each_with_index do |a, index|
+      piearray[index]= {:y=> a.answer_count.to_i, :name => a.text.to_s} if !a.is_comment?
+    end
+    @chart[q.id.to_s] = LazyHighCharts::HighChart.new('graph') do |f|
+      f.options[:chart][:plotBorderWidth] = nil
+      f.options[:chart][:plotBackgroundColor] = nil
+      f.options[:title][:text] = q.text
+      f.plot_options(:pie=>{
+        :allowPointSelect=>true,
+        :cursor=>"pointer" ,
+        :dataLabels=>{
+          :enabled=>true,
+          :color=>"#000000",
+          :connectorColor=>"#000000"
+        },
+        :enableMouseTracking => false,
+        :shadow => false,
+        :animation => false
+      })
+      f.series( :type => 'pie',
+        :name=> q.text,
+        :data => piearray
+      )
+    end
+  end
+  
+  def generate_bar_chart(q, responses, colors)
+    bararray = []
+    responses.where(:question_id => q.id).each_with_index do |a, index|
+      bararray[index]= {:y=> a.answer_count.to_i, :color => colors[index].to_s} if !a.is_comment?
+    end
+    @chart[q.id.to_s] = LazyHighCharts::HighChart.new('graph') do |f|
+      f.options[:chart][:defaultSeriesType] = 'column'
+      f.options[:title][:text] = q.text
+      f.options[:xAxis][:categories] = q.answers.order('answers.id').map{|a| a.text}
+      f.options[:xAxis][:labels] = {:rotation=> -45, :align => 'right'}
+      f.options[:yAxis][:min] = 0
+      f.options[:yAxis][:title] = {:text => 'Count'}
+      f.plot_options(
+        :pointPadding=>true,
+        :borderWidth => 0,
+        :enableMouseTracking => false,
+        :shadow => false,
+        :animation => false,
+        :stickyTracking => false
+      )
+      f.series( :data => bararray,
+        :dataLabels => {
+          :enabled=>true
+          } )
+    end
+  end
+
+  def generate_stacked_bar_chart(q, responses, colors)
+    @chart[q.id.to_s] = LazyHighCharts::HighChart.new('graph') do |f|
+      f.options[:chart][:defaultSeriesType] = 'column'
+      f.options[:title][:text] = q.question_group.text
+      f.options[:xAxis][:categories] = q.answers.order('answers.id').map{|a| a.text}
+      f.options[:xAxis][:labels] = {:rotation=> -45, :align => 'right'}
+      f.options[:yAxis][:min] = 0
+      f.options[:yAxis][:title] = {:text => 'Count'}
+      f.plot_options(
+        :column => {
+          :stacking => 'normal',
+          dataLabels:  {
+            enabled: true,
+            color: 'black',
+            style: {
+              fontWeight: 'bold',
+              fontSize: '12px'
+            }         
+          }
+        },
+        :pointPadding=>true,
+        :borderWidth => 0,
+        :enableMouseTracking => false,
+        :shadow => false,
+        :animation => false,
+        :stickyTracking => false
+      )
+
+      q.question_group.questions.where(is_comment: false).each_with_index do |question, question_index|
+        bararray = []
+        responses.where(:question_id => question.id).each_with_index do |a, answer_index|
+          bararray[answer_index]= {:y=> a.answer_count.to_i}
+        end
+        f.series( 
+          name: question.text,
+          data: bararray,
+          color: colors[question_index].to_s
+        )
+      end
+    end
+  end 
+ 
+  def generate_grid_dropdown_bar_chart(q, responses, colors)
+    @chart[q.id.to_s] = LazyHighCharts::HighChart.new('graph') do |f|
+      f.options[:chart][:defaultSeriesType] = 'column'
+      f.options[:title][:text] = q.text
+      f.options[:xAxis][:categories] = q.question_group.columns.map{|c| c.text}
+      f.options[:xAxis][:labels] = {:rotation=> -45, :align => 'right'}
+      f.options[:yAxis][:min] = 0
+      f.options[:yAxis][:title] = {:text => 'Count'}
+      f.plot_options(
+        :column => {
+          :stacking => 'normal',
+          dataLabels:  {
+            enabled: true,
+            color: 'black',
+            style: {
+              fontWeight: 'bold',
+              fontSize: '12px'
+            }     
+          }
+        },
+        :pointPadding=>true,
+        :borderWidth => 0,
+        :enableMouseTracking => false,
+        :shadow => false,
+        :animation => false,
+        :stickyTracking => false
+      )
+
+      series = []
+      q.question_group.columns.each_with_index do |column, column_index|
+        q.answers.where(column_id: column.id).each_with_index do |answer, answer_index|
+          response_count = Response.where(question_id: q.id, answer_id: answer.id, column_id: column.id).count
+          series<<{column_id: column.id, answer_id: answer.id, name: answer.text, y: response_count.to_i}
+        end
+      end
+      series.map{|a| a[:name]}.uniq.each_with_index do |answer_name, answer_index|
+        bararray=[]
+        q.question_group.columns.each do |column|
+          match = series.select{|s| s[:name]==answer_name && s[:column_id]==column.id}.first
+          bararray << (match ? match[:y] : 0) 
+        end
+        f.series( 
+          name: answer_name,
+          data: bararray,
+          color: colors[answer_index].to_s
+        )      
+      end
+    end
+  end 
+
+  def generate_histogram_chart(q, responses)
+    suffix = q.suffix
+    histarray = HistogramArray.new(q, responses.where(:question_id => q.id), suffix).calculate
+    @chart[q.id.to_s] = LazyHighCharts::HighChart.new('graph') do |f|
+      f.options[:chart][:defaultSeriesType] = 'column'
+      f.options[:title][:text] = 'Histogram for "'+q.text+'"'
+      f.options[:legend][:enabled] = false
+      f.options[:xAxis][:categories] = histarray.map{|h| h[:x]}
+      f.options[:xAxis][:labels] = {:rotation=> -45, :align => 'right'}
+      f.options[:yAxis][:min] = 0
+      f.options[:yAxis][:title] = {:text => 'Occurrences'}
+      f.plot_options(
+        :pointPadding=>true,
+        :borderWidth => 0,
+        :enableMouseTracking => false,
+        :shadow => false,
+        :animation => false
+      )
+      f.series( :data=> histarray.map{|h| h[:y]},
+        :dataLabels => {
+          :enabled=>true
+          }
+              )
+    end
+  end
+
+  def report_params 
+    @report_params ||= params.permit(:survey_id, :id)
+  end
+      
+end
+
+class HistogramArray
+  def initialize(question, in_arr, label=nil)
+    @out_arr = []
+    p "in arr at init #{in_arr.map{|a| a}}"
+    @in_arr = in_arr.map{|a| a.response_value}
+    return if in_arr.empty?
+    @question = question
+    set_min
+    set_max
+    set_count
+    set_distribution
+    set_step
+  end
+
+  def calculate
+    if !@in_arr.empty?
+      @distribution.times do |index|
+        refresh_range
+        set_x_label
+        @out_arr[index]= {
+          :x => @x_label,
+          :y => @in_arr.select {|v| v.to_f >= @lower_bound && v.to_f < @upper_bound}.count
+        }
+      end
+    end
+    return @out_arr
+  end
+
+  private
+
+  def set_min
+    @min = @range = @in_arr.min.to_f
+  end
+
+  def set_max
+    @max = @in_arr.max.to_f
+    @max = @max + @max.abs*0.00000000001
+  end
+
+  def set_count
+    @count = @in_arr.count
+  end
+
+  def set_distribution
+    @distribution = sqrt(@count).round
+  end
+
+  def set_step
+    @step = ((@max-@min)/@distribution)
+  end
+  
+  def refresh_range
+    @lower_bound = @range
+    @upper_bound = @range+@step
+    @range = @upper_bound
+  end    
+    
+  def trunc_range(num)
+    return (num*10000000000).to_i/10000000000
+  end
+
+  def set_x_label
+    if @question.question_type_id == :number
+      @x_label = trunc_range(@lower_bound).to_s+' to '+trunc_range(@upper_bound).to_s+' '+@label.to_s
+    else
+      response_formatter = ReportFormatter.new(@question, @in_arr)
+      lower_bound = response_formatter.format_stats(@lower_bound)
+      upper_bound = response_formatter.format_stats(@upper_bound)
+      @x_label = lower_bound+' to '+upper_bound+' '+@label.to_s
+    end 
+  end
+end