puts "Response number,Course,ExportID,FutureLearn Rating,Course Rating,Feedback,Degree programs enrolled on"
RunFeedbackResponse.all.each_with_index do |rfr, index|
  programs = 0

  if rfr.enrolment.learner.program_enrolments.any?
    rfr.enrolment.learner.program_enrolments.each do |pr|
      if pr.program.degrees.any?
        programs += 1
      end
    end
  end

  puts "Response #{index + 1},#{rfr.enrolment.course.slug},#{rfr.enrolment.learner.partner_export_id},#{rfr.futurelearn_rating},#{rfr.course_content_rating},#{rfr.feedback.gsub(/\,/,"")},#{programs}"
end