2010-05-18 15:07:50 +02:00
|
|
|
|
require "pathname"
|
2010-05-18 15:32:30 +02:00
|
|
|
|
require "markaby"
|
2010-05-18 22:47:14 +02:00
|
|
|
|
require "camping/session"
|
2010-05-18 15:32:30 +02:00
|
|
|
|
|
|
|
|
|
Markaby::Builder.set(:indent, 2)
|
2010-05-18 15:07:50 +02:00
|
|
|
|
|
|
|
|
|
Camping.goes :Anne
|
|
|
|
|
|
|
|
|
|
IMAGE_DIR = Pathname.new(__FILE__).dirname + "images"
|
|
|
|
|
|
2010-05-18 22:47:14 +02:00
|
|
|
|
module Anne
|
|
|
|
|
|
|
|
|
|
include Camping::Session
|
|
|
|
|
secret "JeMoeder"
|
|
|
|
|
|
2010-05-18 23:54:15 +02:00
|
|
|
|
def self.create
|
|
|
|
|
Anne::Models.create_schema
|
|
|
|
|
end
|
|
|
|
|
|
2010-05-18 22:47:14 +02:00
|
|
|
|
end
|
|
|
|
|
|
2010-05-18 15:07:50 +02:00
|
|
|
|
module Anne::Models
|
|
|
|
|
|
|
|
|
|
class User < Base
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
class Vote < Base
|
|
|
|
|
belongs_to :user
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
class BasicFields < V 1.0
|
|
|
|
|
def self.up
|
|
|
|
|
create_table User.table_name do |t|
|
|
|
|
|
t.string :study, :gender, :spaciousness, :email
|
|
|
|
|
t.integer :study_year
|
|
|
|
|
t.boolean :colorblind, :prize, :results
|
|
|
|
|
t.timestamps
|
|
|
|
|
end
|
|
|
|
|
create_table Vote.table_name do |t|
|
|
|
|
|
t.string :image, :choice
|
|
|
|
|
t.integer :user_id
|
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
def self.down
|
|
|
|
|
drop_table User.table_name
|
|
|
|
|
drop_table Vote.table_name
|
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
module Anne::Helpers
|
|
|
|
|
|
|
|
|
|
def next_image
|
2010-05-18 23:54:15 +02:00
|
|
|
|
all_images =
|
|
|
|
|
Pathname.glob(IMAGE_DIR + "*.jpg").map { |img| img.basename.to_s }
|
|
|
|
|
all_votes =
|
|
|
|
|
Anne::Models::Vote.find(:all,
|
|
|
|
|
:conditions => { :user_id => @state["user"].id })
|
|
|
|
|
voted_images = all_votes.map { |vote| vote.image }
|
2010-05-18 15:07:50 +02:00
|
|
|
|
remaining_images = all_images - voted_images
|
|
|
|
|
return nil, 100 if remaining_images.empty?
|
2010-05-18 23:54:15 +02:00
|
|
|
|
return remaining_images.sort_by { rand }.first,
|
2010-05-27 17:22:20 +02:00
|
|
|
|
100 - (remaining_images.length * 100.0 / all_images.length).ceil
|
2010-05-18 15:07:50 +02:00
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
module Anne::Controllers
|
|
|
|
|
|
|
|
|
|
class Index
|
|
|
|
|
def get
|
|
|
|
|
render :intro
|
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
class Start
|
|
|
|
|
def get
|
2010-05-18 22:47:14 +02:00
|
|
|
|
return redirect Vote if @state["user"]
|
2010-05-18 15:07:50 +02:00
|
|
|
|
render :start
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
def post
|
2010-05-18 22:47:14 +02:00
|
|
|
|
@state["user"] = User.create(
|
|
|
|
|
:study => @input.user_study,
|
|
|
|
|
:study_year => @input.user_study_year,
|
|
|
|
|
:gender => @input.user_gender,
|
|
|
|
|
:colorblind => @input.user_colorblind == "ja",
|
|
|
|
|
:spaciousness => @input.user_spaciousness)
|
|
|
|
|
redirect Vote
|
2010-05-18 15:07:50 +02:00
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
|
2010-05-18 22:47:14 +02:00
|
|
|
|
class Vote
|
|
|
|
|
def get
|
|
|
|
|
return redirect Index if not @state["user"]
|
|
|
|
|
image, progress = next_image
|
|
|
|
|
return redirect Finish if image.nil?
|
|
|
|
|
render :vote, image, progress
|
2010-05-18 15:07:50 +02:00
|
|
|
|
end
|
|
|
|
|
|
2010-05-18 22:47:14 +02:00
|
|
|
|
def post
|
2010-05-18 15:07:50 +02:00
|
|
|
|
choice = if @input.left then "left"
|
|
|
|
|
elsif @input.right then "right"
|
2010-05-18 23:54:15 +02:00
|
|
|
|
else raise "no choice made!"
|
2010-05-18 15:07:50 +02:00
|
|
|
|
end
|
2010-05-18 22:47:14 +02:00
|
|
|
|
vote = Anne::Models::Vote.create( :user_id => @state["user"].id,
|
|
|
|
|
:image => @input.image,
|
|
|
|
|
:choice => choice )
|
|
|
|
|
redirect Vote
|
2010-05-18 15:07:50 +02:00
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
class ImageX
|
|
|
|
|
def get(file)
|
|
|
|
|
unless file =~ /\.\./
|
2010-05-18 22:47:14 +02:00
|
|
|
|
headers["Content-Type"] = "image/jpeg"
|
|
|
|
|
headers["X-Sendfile"] = (IMAGE_DIR + file).to_s
|
2010-05-18 15:07:50 +02:00
|
|
|
|
else
|
|
|
|
|
@status = 403
|
|
|
|
|
"You're not allowed to retrieve #{file}!"
|
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
|
2010-05-18 22:47:14 +02:00
|
|
|
|
class Finish
|
|
|
|
|
def get
|
|
|
|
|
return redirect Index if not @state["user"]
|
|
|
|
|
return redirect Vote unless next_image.first.nil?
|
2010-05-27 17:22:20 +02:00
|
|
|
|
# FIXME: check whether email/prize/results have been sent, and redirect to Thanks.
|
2010-05-18 15:07:50 +02:00
|
|
|
|
render :finish
|
|
|
|
|
end
|
2010-05-18 23:54:15 +02:00
|
|
|
|
|
|
|
|
|
def post
|
|
|
|
|
user = User.find(@state["user"].id)
|
|
|
|
|
raise "unknown user" if user.nil?
|
|
|
|
|
user.email = @input.email
|
|
|
|
|
user.prize = !@input.prize.nil?
|
|
|
|
|
user.results = !@input.results.nil?
|
|
|
|
|
user.save
|
|
|
|
|
redirect Thanks
|
|
|
|
|
end
|
2010-05-18 15:07:50 +02:00
|
|
|
|
end
|
|
|
|
|
|
2010-05-18 15:42:54 +02:00
|
|
|
|
class Style < R '/style\.css'
|
|
|
|
|
STYLE = File.read(__FILE__).gsub(/.*__END__/m, '')
|
|
|
|
|
|
|
|
|
|
def get
|
|
|
|
|
@headers['Content-Type'] = 'text/css; charset=utf-8'
|
|
|
|
|
STYLE
|
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
|
2010-05-18 23:54:15 +02:00
|
|
|
|
class Thanks
|
|
|
|
|
def get
|
|
|
|
|
render :thanks
|
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
|
2010-05-18 15:07:50 +02:00
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
module Anne::Views
|
|
|
|
|
|
|
|
|
|
def layout
|
|
|
|
|
xhtml_strict do
|
|
|
|
|
head do
|
2010-05-27 17:22:20 +02:00
|
|
|
|
title "Enquête ruimtelijke effecten"
|
2010-05-18 15:42:54 +02:00
|
|
|
|
link :rel => "stylesheet", :type => "text/css",
|
|
|
|
|
:media => "screen", :href => "/style.css"
|
2010-05-18 15:07:50 +02:00
|
|
|
|
end
|
|
|
|
|
body do
|
2010-05-18 15:32:30 +02:00
|
|
|
|
div.header! do
|
2010-05-27 17:22:20 +02:00
|
|
|
|
h1 "Enquête ruimtelijke effecten"
|
2010-05-18 15:32:30 +02:00
|
|
|
|
end
|
|
|
|
|
div.content! { self << yield }
|
2010-05-27 17:22:20 +02:00
|
|
|
|
div.footer! { "Copyright © 2010 Anne Pijl, Bram Senders, Paul van Tilburg" }
|
2010-05-18 15:07:50 +02:00
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
def intro
|
2010-05-27 17:22:20 +02:00
|
|
|
|
p "Met deze enquête worden een aantal ruimtelijke effecten onderzocht. " +
|
|
|
|
|
"Je krijgt 39 keer een plaatje met twee afbeeldingen te zien. " +
|
|
|
|
|
"Je kiest welke afbeelding, de linker of de rechter afbeelding, " +
|
|
|
|
|
"je ruimtelijker ervaart. " +
|
|
|
|
|
"In welk plaatje zie je meer diepte, welk plaatje lijkt jou het meest " +
|
|
|
|
|
"3-dimensionaal? Als je het niet weet, klik je op een willekeurige " +
|
|
|
|
|
"afbeelding. De test duurt 5 á 10 minuten. Succes!"
|
|
|
|
|
p "Doe de test volledig om kans te maken op de prijs."
|
|
|
|
|
p "– Anne Pijl"
|
|
|
|
|
a "Start de enquête!", :href => R(Start)
|
|
|
|
|
p "(Jij logt in vanaf #{@env["REMOTE_ADDR"]}.)"
|
2010-05-18 15:07:50 +02:00
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
def make_select(label_name, name, options)
|
|
|
|
|
p do
|
|
|
|
|
label label_name, :for => name
|
|
|
|
|
select :name => name do
|
|
|
|
|
options.each { |option_str| option option_str }
|
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
def start
|
2010-05-27 17:22:20 +02:00
|
|
|
|
h2 "Persoonlijke karakteristieken"
|
|
|
|
|
p "Graag zou ik ten behoeve van de statistiek het volgende van je willen weten:"
|
2010-05-18 15:07:50 +02:00
|
|
|
|
|
|
|
|
|
form :action => R(Start), :method => :post do
|
2010-05-27 17:22:20 +02:00
|
|
|
|
make_select "Faculteit:", "user_study",
|
|
|
|
|
["niet van toepassing",
|
|
|
|
|
"Biomedische Technologie",
|
|
|
|
|
"Bouwkunde",
|
|
|
|
|
"Electrical Engineering",
|
|
|
|
|
"Industrial Design",
|
|
|
|
|
"Scheikundige Technologie",
|
|
|
|
|
"Industrial Engineering & Innovation Sciences",
|
|
|
|
|
"Technische Natuurkunde",
|
|
|
|
|
"Werktuigbouwkunde",
|
|
|
|
|
"Wiskunde & Informatica"]
|
|
|
|
|
make_select "Studiejaar", "user_study_year", ["niet van toepassing"] + (1998..2009).to_a
|
2010-05-18 15:07:50 +02:00
|
|
|
|
make_select "Geslacht", "user_gender", ["", "man", "vrouw"]
|
2010-05-27 17:22:20 +02:00
|
|
|
|
make_select "Ben je kleurenblind?", "user_colorblind", ["nee", "ja"]
|
|
|
|
|
make_select "Vind je dat je een goed ruimtelijk voorstellingsvermogen hebt?",
|
|
|
|
|
"user_spaciousness", ["neutraal", "ja", "nee"]
|
2010-05-18 15:07:50 +02:00
|
|
|
|
|
|
|
|
|
input :type => "submit", :value => "Start de enquete"
|
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
def vote(image, progress = 0)
|
2010-05-18 15:32:30 +02:00
|
|
|
|
h2 "Welk beeld is ruimtelijker?"
|
2010-05-27 17:22:20 +02:00
|
|
|
|
# FIXME: resize all images
|
2010-05-27 17:24:56 +02:00
|
|
|
|
# FIXME: split all images in two parts and make it possible two select an image.
|
2010-05-18 16:02:48 +02:00
|
|
|
|
img :src => R(ImageX, image), :width => "80%"
|
2010-05-18 22:47:14 +02:00
|
|
|
|
form :action => R(Vote), :method => :post do
|
2010-05-18 15:07:50 +02:00
|
|
|
|
input :type => "hidden", :name => "image", :value => image
|
2010-05-18 15:32:30 +02:00
|
|
|
|
input :type => "submit", :name => "left", :value => "Links"
|
2010-05-18 15:07:50 +02:00
|
|
|
|
input :type => "submit", :name => "right", :value => "Rechts"
|
|
|
|
|
end
|
2010-05-27 17:24:56 +02:00
|
|
|
|
# FIXME: make a nice div with two spans of the following.
|
2010-05-18 15:07:50 +02:00
|
|
|
|
p "Woep, je bent al op #{progress}%!"
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
def finish
|
2010-05-27 17:22:20 +02:00
|
|
|
|
h2 "Dank je wel voor het meedoen aan dit onderzoek."
|
|
|
|
|
p "Als je geïnteresseerd bent in de resultaten van de enquête of je wilt " +
|
|
|
|
|
"meedingen naar de prijs, vul dan hier je e-mailadres in."
|
2010-05-18 15:07:50 +02:00
|
|
|
|
|
2010-05-18 22:47:14 +02:00
|
|
|
|
form :action => R(Finish), :method => :post do
|
2010-05-18 15:07:50 +02:00
|
|
|
|
p do
|
|
|
|
|
label "E-mailadres", :for => "email"
|
|
|
|
|
input :type => "text", :name => "email"
|
|
|
|
|
end
|
|
|
|
|
p do
|
|
|
|
|
input :type => "checkbox", :name => "prize", :checked => true
|
|
|
|
|
label "Ik wil een vette prijs winnen!", :for => "prize"
|
|
|
|
|
end
|
|
|
|
|
p do
|
|
|
|
|
input :type => "checkbox", :name => "results", :checked => true
|
|
|
|
|
label "Ik ben een nieuwsgierig aagje en ik wil het naadje van je kous weten!", :for => "results"
|
|
|
|
|
end
|
|
|
|
|
|
2010-05-28 14:41:15 +02:00
|
|
|
|
p "Je e-mailadres wordt enkel gebruikt voor de enquête resultaten en " \
|
2010-05-27 17:22:20 +02:00
|
|
|
|
"om je op de hoogte te stellen als je gewonnen hebt."
|
|
|
|
|
|
|
|
|
|
input :type => "submit", :value => "Verstuur"
|
2010-05-18 15:07:50 +02:00
|
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
|
2010-05-18 23:54:15 +02:00
|
|
|
|
def thanks
|
2010-05-27 17:22:20 +02:00
|
|
|
|
h2 "Bedankt!"
|
|
|
|
|
|
|
|
|
|
p "Je antwoorden zijn verstuurd."
|
2010-05-18 23:54:15 +02:00
|
|
|
|
end
|
2010-05-18 15:07:50 +02:00
|
|
|
|
|
|
|
|
|
end
|
2010-05-18 15:42:54 +02:00
|
|
|
|
|
2010-05-27 17:22:20 +02:00
|
|
|
|
# FIXME: Insert some TU/e styling here
|
2010-05-18 15:42:54 +02:00
|
|
|
|
__END__
|
|
|
|
|
/* Style sheet for the Anne Survey Camping app */
|
2010-05-18 23:54:15 +02:00
|
|
|
|
|
|
|
|
|
body {
|
|
|
|
|
color: white;
|
|
|
|
|
background-color: black;
|
|
|
|
|
}
|