surveyor_gui 0.0.3

data/app/controllers/question_groups_controller.rb

@@ -0,0 +1,84 @@
+class QuestionGroupsController < ApplicationController
+
+  def new
+    @title = "Add Question"
+    @survey_section_id = params[:survey_section_id]
+    @question_group = QuestionGroup.new(
+      text: params[:text], 
+      question_type_id: params[:question_type_id])
+    original_question = Question.find(params[:question_id]) if !params[:question_id].blank?
+    if original_question
+      @question_group.questions.build(
+        display_order: params[:display_order], 
+        id: params[:question_id], 
+        question_type_id: original_question.question_type_id,
+        pick: original_question.pick,
+        display_type: original_question.display_type)
+    else      
+      @question_group.questions.build(
+        display_order: params[:display_order])
+    end
+  end
+
+
+  def edit
+    @title = "Edit Question Group"
+    @question_group = QuestionGroup.includes(:questions).find(params[:id])
+    @question_group.question_type_id = params[:question_type_id]
+    @survey_section_id = @question_group.questions.first.survey_section_id
+  end
+
+  def create
+    @question_group = QuestionGroup.new(question_group_params)
+    if @question_group.save
+      #@question_group.questions.update_attributes(survey_section_id: question_group_params[])
+      original_question = Question.find(question_group_params[:question_id]) if !question_group_params[:question_id].blank?
+      original_question.destroy if original_question
+      render :inline => '<div id="cboxQuestionId">'+@question_group.questions.first.id.to_s+'</div>', :layout => 'surveyor_gui_blank'
+    else
+      @title = "Add Question"
+      survey_section_id = question_group_params[:survey_section_id]
+      redirect_to :action => 'new', :controller => 'questions', :layout => 'surveyor_gui_blank', :survey_section_id => survey_section_id
+    end
+  end
+
+  def update
+    @title = "Update Question"
+    @question_group = QuestionGroup.includes(:questions).find(params[:id])
+    if @question_group.update_attributes(question_group_params)
+      render :blank, :layout => 'surveyor_gui_blank'
+      #If a nested question is destroyed, the Question model performs a cascade delete
+      #on the parent QuestionGroup (stuck with this behaviour as it is a Surveyor default).
+      #Need to check for this and restore question group.
+      begin
+        QuestionGroup.find(params[:id])
+      rescue
+        scrubbed_params = question_group_params.to_hash
+        scrubbed_params.delete("questions_attributes")
+        QuestionGroup.create!(scrubbed_params)
+      end     
+    else
+      render :action => 'edit', :layout => 'surveyor_gui_blank'
+    end
+  end
+
+  def render_group_inline_partial
+    if params[:id].blank?
+      @question_group = QuestionGroup.new
+    else
+      @question_group = QuestionGroup.find(params[:id])
+    end
+    if params[:add_row]
+      
+      @question_group = QuestionGroup.new
+      @question_group.questions.build(display_order: params[:display_order])
+      render :partial => 'group_inline_field'
+    else
+      render :partial => 'group_inline_fields'
+    end
+  end
+  private
+  def question_group_params
+    ::PermittedParams.new(params[:question_group]).question_group
+  end
+end

data/app/controllers/questions_controller.rb

@@ -0,0 +1,187 @@
+class QuestionsController < ApplicationController
+  layout '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_blank'
+    else
+      @title = "Add Question"
+      render :action => 'new', :layout => '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_blank'
+    else
+      render :action => 'edit', :layout => '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/survey_sections_controller.rb

@@ -0,0 +1,80 @@
+class SurveySectionsController < ApplicationController
+  layout 'surveyor_gui_blank'
+
+  def new
+    @title = "Add Survey Section"
+    survey = Survey.find(params[:survey_id])
+    prev_section = SurveySection.find(params[:prev_section_id])
+    @last_survey_section = survey.survey_sections.last
+    @survey_section = survey.survey_sections
+                            .build(:title => 'New Section',
+                                   :display_order => prev_section.display_order + 1,
+                                   :modifiable => true)
+  end
+
+  def edit
+    @title = "Edit Survey Section"
+    @survey_section = SurveySection.find(params[:id])
+  end
+
+  def create
+    survey = Survey.find(params[:survey_section][:survey_id])
+    SurveySection.where(:survey_id => survey.id)
+                 .where("display_order >= ?", params[:survey_section][:display_order])
+                 .update_all("display_order = display_order+1")
+    @survey_section = survey.survey_sections.build(survey_section_params)
+    @survey_section.display_order = params[:survey_section][:display_order].to_i
+    #@survey_section.questions.build(:text=>'New question',:pick=>'none',:display_order=>0,:display_type=>'default').answers.build(:text=>'string', :response_class=>'string', :display_order=>1, :template=>true)
+    if @survey_section.save
+      redirect_to :back
+    else
+      render :action => 'new', :layout => 'surveyor_gui_blank'
+    end
+  end
+
+  def update
+    @title = "Update Survey Section"
+    @survey_section = SurveySection.find(params[:id])
+    if @survey_section.update_attributes(survey_section_params)
+      render :blank, :layout => 'surveyor_gui_blank'
+    else
+      render :action => 'edit', :layout => 'surveyor_gui_blank'
+    end
+  end
+
+  def destroy
+    @survey_section = SurveySection.find(params[:id])
+    if !@survey_section.survey.template && @survey_section.survey.response_sets.count > 0
+      render :text => "Reponses have already been collected for this survey, therefore it cannot be modified. Please create a new survey instead."
+      return false
+    end
+    if !@survey_section.modifiable
+      render :text => "This section cannot be removed."
+      return false
+    end
+    if !@survey_section.questions.map{|q| q.dependency_conditions}.flatten.blank?
+      render :text => "The following questions have logic that depend on questions in this section: \n\n"+@survey_section.questions.map{|q| q.dependency_conditions.map{|d| " - "+d.dependency.question.text}}.flatten.join('\n')+"\n\nPlease delete logic before deleting this section.".html_safe
+      return
+    end
+    @survey_section.destroy
+    render :text => ""
+  end
+
+  def sort
+    survey = Survey.find(params[:survey_id])
+    satts = { :id => params[:survey_id], :survey_sections_attributes=>{} }
+    sections = params[:survey_section]
+    sections.each_with_index do |sid, index|
+      satts[:survey_sections_attributes][index.to_s] = { :id => sid, :display_order => index }
+    end
+    puts satts
+    survey.update_attributes!(satts)
+    render :nothing => true
+  end
+
+  private
+  def survey_section_params
+    ::PermittedParams.new(params[:survey_section]).survey_section
+  end
+
+end

data/app/controllers/surveyforms_controller.rb

@@ -0,0 +1,4 @@
+class SurveyformsController < ApplicationController
+  include Surveyor::SurveyorControllerMethods
+  include SurveyorGui::SurveyformsControllerMethods
+end

data/app/controllers/surveyor_controller.rb

@@ -0,0 +1,89 @@
+module SurveyorControllerCustomMethods
+  def self.included(base)
+    base.send :layout, 'surveyor_modified'
+  end
+
+  def edit
+    root = File.expand_path('../../', __FILE__)
+    #place the surveyor_gui views ahead of the default surveyor view in order of preference
+    #so we can load customized partials.
+    prepend_view_path(root+'/views')
+    super
+  end
+  def update
+    question_ids_for_dependencies = (params[:r] || []).map{|k,v| v["question_id"] }.compact.uniq
+    saved = load_and_update_response_set_with_retries
+
+    if saved && params[:finish] && !@response_set.mandatory_questions_complete?
+      #did not complete mandatory fields
+      ids, remove, question_ids, flashmsg = {}, {}, [], []
+      flashmsg << "You must complete all required fields before submitting the survey.  Please fill in the following:"
+
+      triggered_mandatory_missing = @response_set.triggered_mandatory_missing
+
+      survey_section = ''
+      question_number = {}
+      last_question_of_previous_section = 0
+      last_question_number = 0
+      @response_set.survey.survey_sections.each do |ss|
+        index = 0
+        ss.questions.where('display_type!=?','label').each do |q|
+          if q.triggered?(@response_set)
+            question_number[q.id.to_s] = last_question_number = last_question_of_previous_section + index + 1
+            index = index + 1
+          end
+        end
+        last_question_of_previous_section = last_question_number
+      end
+
+      triggered_mandatory_missing.each do |m|
+        if m.survey_section_id != survey_section
+          survey_section = m.survey_section_id
+          flashmsg << ""
+          flashmsg << "&nbsp;&nbsp;" + m.survey_section.title
+        end
+
+        flashmsg << "&nbsp;&nbsp;&nbsp;&nbsp;question&nbsp;" + question_number[m.id.to_s].to_s + ') '+ m.text
+      end
+      respond_to do |format|
+        format.js do
+
+          render :json=>{"flashmsg"=>flashmsg}
+        end
+        format.html do
+          flash[:notice] = flashmsg.join('<br />')
+          redirect_to surveyor.edit_my_survey_path(:anchor => anchor_from(params[:section]), :section => section_id_from(params))
+        end
+      end
+      return
+#    elsif @response_set.survey.id.to_s == evaluation_institution.institution.vendor_value_analysis_questionnaire_id && saved && params[:finish]
+    elsif saved && params[:finish]
+      return redirect_with_message(surveyor_finish, :notice, t('surveyor.completed_survey'))
+    end
+
+
+    respond_to do |format|
+      format.html do
+        if @response_set.nil?
+          return redirect_with_message(surveyor.available_surveys_path, :notice, t('surveyor.unable_to_find_your_responses'))
+        else
+          flash[:notice] = t('surveyor.unable_to_update_survey') unless saved
+          redirect_to surveyor.edit_my_survey_path(:anchor => anchor_from(params[:section]), :section => section_id_from(params))
+        end
+      end
+      format.js do
+        if @response_set
+          render :json => @response_set.reload.all_dependencies(question_ids_for_dependencies)
+        else
+          render :text => "No response set #{params[:response_set_code]}",
+            :status => 404
+        end
+      end
+    end
+
+  end
+end
+class SurveyorController < ApplicationController
+  include Surveyor::SurveyorControllerMethods
+  include SurveyorControllerCustomMethods
+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_default'
+
+  def preview
+    response_qty = 5 
+    @title = "Preview Report for "+response_qty.to_s+" randomized responses"
+    @survey = Survey.find(params[:survey_id])
+    user_id = defined?(current_user) && current_user ? current_user.id : nil
+    response_qty.times.each {
+      @response_set = ResponseSet.create(survey: @survey, user_id: user_id, test_data: true)
+      ReportResponseGenerator.new(@survey).generate_1_result_set(@response_set)
+    }
+    @response_sets = ResponseSet.where(survey_id: @survey.id, test_data: true, user_id: user_id)
+    @responses = Response.joins(:response_set, :answer).where('user_id = ? and survey_id = ? and test_data = ? and answers.is_comment = ?',user_id,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