radiant-race_results-extension 1.0.1

data/app/models/race_instance.rb

@@ -0,0 +1,178 @@
+require 'csv'
+
+class RaceInstance < ActiveRecord::Base
+
+  has_site if respond_to? :has_site
+  belongs_to :created_by, :class_name => 'User'
+  belongs_to :updated_by, :class_name => 'User'
+  belongs_to :race
+  has_many :performances, :class_name => 'RacePerformance'
+  has_many :competitors, :through => :performances, :source => :race_competitor
+  has_many :categories, :through => :performances, :source => :race_category, :uniq => true
+
+  has_many :finishers, :class_name => 'RacePerformance', :conditions => "race_performances.status_id >= 100"
+  has_many :non_finishers, :class_name => 'RacePerformance', :conditions => "race_performances.status_id < 100"
+  has_many :successful_competitors, :through => :finishers, :source => :race_competitor
+  has_many :unsuccessful_competitors, :through => :non_finishers, :source => :race_competitor
+  
+  object_id_attr :filter, TextFilter
+  has_attached_file :results,
+                    :url => Radiant::Config["race_results.url"] ? Radiant::Config["race_results.url"] : "/:class/:id/:basename:no_original_style.:extension", 
+                    :path => Radiant::Config["race_results.path"] ? Radiant::Config["race_results.path"] : ":rails_root/public/:class/:id/:basename:no_original_style.:extension"
+
+  after_save :process_results_file
+
+  validates_presence_of :name, :slug, :race
+  validates_uniqueness_of :slug, :scope => :race_id
+  validates_length_of :slug, :maximum => 100, :message => '{{count}}-character limit'
+  validates_format_of :slug, :with => %r{^([-_.A-Za-z0-9]*|)$}, :message => 'not URL-friendly'
+  default_scope :order => 'started_at DESC'
+  
+  named_scope :with_results, {:conditions => "results_file_name IS NOT NULL"}
+  named_scope :without_results, {:conditions => "results_file_name IS NULL"}
+  named_scope :past, {:conditions => ["started_at <= :when", {:when => Time.now}]}
+  named_scope :future, {:conditions => ["started_at > :when", {:when => Time.now}], :order => "started_at ASC"}
+  
+  def to_param
+    slug
+  end
+  
+  def full_name
+    "#{race.name} #{name}"
+  end
+  
+  def path
+    "#{race.slug}/#{slug}"
+  end
+  
+  def nice_start_time
+    return unless started_at
+    if started_at.min == 0
+      started_at.to_datetime.strftime("%-1I%p").downcase
+    else
+      started_at.to_datetime.strftime("%-1I:%M%p").downcase
+    end
+  end
+  
+  def nice_start_date
+    started_at.to_datetime.strftime("%B %e %Y") if started_at
+  end
+  
+  def past?
+    started_at <= Time.now
+  end
+  
+  def future?
+    started_at > Time.now
+  end
+  
+  def has_results?
+    performances.any?
+  end
+  
+  def checkpoints
+    # we will need to accommodate races whose checkpoints are different with each instance, but for now:
+    race.checkpoints
+  end
+    
+  def performance_by(competitor)
+    
+  end
+  
+  def performance_at(position)
+    
+  end
+  
+  def winning_performance(category=nil)
+    if category
+      category = RaceCategory.find_by_name(category) unless category.is_a? RaceCategory
+      performances.completed.eligible_for_category(category).first if category_present?(category)
+    else
+      performances.completed.first
+    end
+  end
+  
+  def winner(category=nil)
+    if perf = winning_performance(category)
+      perf.competitor
+    end
+  end
+  
+  def top(count=20)
+    performances.top(count)
+  end
+  
+  def category_top(category, count=5)
+    performances.eligible_for_category(category).top(count) if category_present?(category)
+  end
+  
+  def category_present?(category)
+    categories.include?(category)
+  end
+  
+protected
+  
+  def process_results_file
+    if csv_data = read_results_file
+      headers = csv_data.shift.map(&:to_s)
+      race_data = csv_data.map {|row| row.map {|cell| cell.to_s } }.map {|row| Hash[*headers.zip(row).flatten] } # build AoA and then hash the second level
+      RaceInstance.transaction do
+        performances.destroy_all
+        race_data.each do |line|
+          runner = normalize_fields(line)
+          next if runner['name'].blank?
+
+          runner['elapsed_time'] ||= "0"
+          club = RaceClub.find_or_create_by_any_name(runner.delete('club')) unless runner['club'].blank? 
+          competitor = RaceCompetitor.find_or_create_by_name_and_club(runner.delete('name'), club)
+          category = RaceCategory.find_or_create_by_normalized_name(runner.delete('category'))
+          competitor.update_attribute(:gender, category.gender) unless competitor.gender
+          status = RacePerformanceStatus.from_time(runner['elapsed_time'])
+          performance = self.performances.create!({
+            :position => runner.delete('position'),
+            :competitor => competitor,
+            :category => category,
+            :elapsed_time => runner.delete('elapsed_time'),
+            :status_id => status.id
+          })
+        
+          headers.each do |key|
+            value = runner[normalize(key)]
+            if value && value.looks_like_duration? && cp = race.checkpoints.find_by_name(key)
+              cp.times.create(:race_performance_id => performance.id, :elapsed_time => value)
+            end
+          end
+        end
+      end
+    end
+  end
+
+  def read_results_file
+    CSV.read(results.path)
+  rescue
+    nil
+  end
+  
+  @@field_aliases = {
+    'cat' => 'category',
+    'time' => 'elapsed_time',
+    'finish' => 'elapsed_time',
+    'pos' => 'position'
+  }
+  
+  def normalize_fields(line)
+    line.keys.each do |key|
+      line[normalize(key)] = line.delete(key)
+    end
+    line
+  end
+  
+  def normalize(value)
+    squashed = value.strip.downcase
+    squashed.gsub!(/\s+/, "_")
+    squashed.gsub!(/\W+/, "")
+    @@field_aliases[squashed] || squashed
+  end
+  
+end
+

data/app/models/race_page.rb

@@ -0,0 +1,69 @@
+class RacePage < Page
+  include WillPaginate::ViewHelpers
+
+  description %{ Takes race and race instance names in child position or as parameters and populates the necessary race objects. }
+  
+  attr_accessor :race, :race_instance
+  
+  def self.sphinx_indexes
+    []
+  end
+  
+  def cache?
+    true
+  end
+  
+  def find_by_url(url, live = true, clean = false)
+    url = clean_url(url) if clean
+    my_url = self.url
+    return false unless url =~ /^#{Regexp.quote(my_url)}(.*)/
+    race_slug, instance_slug, subset, id = $1.split('/')
+    if race_slug && @race = Race.find_by_slug(race_slug)
+      if instance_slug && @race_instance = @race.instances.find_by_slug(instance_slug)
+        if subset && id && %w{club cat p}.include?(subset)
+          case subset
+          when "club"
+            @club = RaceClub.find(id)
+            @template = 'race_clubs/show'
+          when "cat"
+            @category = RaceCategory.find(id)
+            @template = 'race_categories/show'
+          when 'p'
+            @performance = RacePerformance.find(id)
+            @template = 'race_performances/show'
+          end 
+        else
+          @template = 'race_instances/show'
+        end
+      else
+        @template = 'races/show'
+      end
+    end
+    self
+  end
+
+  def pagination
+    p = request.params[:page]
+    p = 1 if p.blank? || p == 0
+    return {
+      :page => request.params[:page] || 1, 
+      :per_page => Radiant::Config['race_results.per_page'] || 100
+    }
+  end
+  
+  def render
+    
+  end
+    
+  def title
+    if race_instance
+      race_instance.full_name
+    elsif race
+      race.name
+    else
+      read_attribute(:title)
+    end
+  end
+  
+  
+end

data/app/models/race_performance.rb

@@ -0,0 +1,175 @@
+class RacePerformance < ActiveRecord::Base
+  
+  has_site if respond_to? :has_site
+  belongs_to :created_by, :class_name => 'User'
+  belongs_to :updated_by, :class_name => 'User'
+  belongs_to :race_instance
+  belongs_to :race_competitor
+  belongs_to :race_category
+  has_many :checkpoint_times, :class_name => 'RaceCheckpointTime'
+
+  delegate :name, :reader, :club, :to => :competitor
+  
+  before_validation_on_create :times_from_checkpoints
+  validates_presence_of :race_competitor_id, :race_instance_id
+  
+  default_scope :order => :elapsed_time
+
+  # has_many through doesn't work with a foreign_key setting, so we do the readable names here instead
+  alias :competitor :race_competitor
+  alias :competitor= :race_competitor=
+  alias :category :race_category
+  alias :category= :race_category=
+  
+  named_scope :top, lambda {|count|
+    {
+      :order => 'elapsed_time DESC',
+      :limit => count
+    }
+  }
+
+  named_scope :by, lambda {|race_competitor|
+    {
+      :conditions => ['race_competitor_id = ?', race_competitor.id]
+    }
+  }
+  
+  named_scope :in, lambda {|race_instance|
+    {
+      :conditions => ['race_instance_id = ?', race_instance.id]
+    }
+  }
+
+  named_scope :in_race, lambda {|race|
+    {
+      :conditions => ['race_instance_id in (?)', race.instances.map(&:id).join(',')]
+    }
+  }
+
+  named_scope :in_category, lambda {|category|
+    category = RaceCategory.find_by_name(category) unless category.is_a? RaceCategory
+    {
+      :conditions => ['race_category_id = ?', category.id]
+    }
+  }
+
+  named_scope :eligible_for_category, lambda {|category|
+    category = RaceCategory.find_by_name(category) unless category.is_a? RaceCategory
+    eligible_categories = RaceCategory.within(category)
+    {
+      :conditions => ["race_category_id in (#{eligible_categories.map{'?'}.join(',')})", *eligible_categories.map(&:id)]
+    }
+  }
+  
+  named_scope :by_members_of, lambda { |club|
+    club = RaceClub.find_by_name(club) unless club.is_a? RaceClub
+    {
+      :select => 'race_performances.*',
+      :joins => "LEFT JOIN race_competitors AS competitors ON race_performances.race_competitor_id = competitors.id",
+      :conditions => ["competitors.race_club_id = ?", club.id]
+    }
+  }
+
+  named_scope :quicker_than, lambda { |seconds|
+    {
+      :conditions => ["elapsed_time IS NOT NULL AND elapsed_time > 0 AND elapsed_time < ?", seconds]
+    }
+  }
+
+  named_scope :completed, {
+    :conditions => 'status_id >= 100'
+  }
+  
+  named_scope :incomplete, {
+    :conditions => 'status_id < 100'
+  }
+
+  def start
+    started_at || race_instance.started_at || checkpoint_times.first.elapsed_time
+  end
+
+  def finish
+    finished_at || start + elapsed_time
+  end
+
+  def position
+    read_attribute(:position) || calculate_position
+  end
+  
+  def calculate_position
+    update_attribute(:position, race_instance.performances.quicker_than(time_in_seconds).count + 1)
+    position
+  end
+  
+  def prizes
+    read_attribute(:prizes) || calculate_prizes
+  end
+  
+  def calculate_prizes
+    prizelist = []
+    positions.each do |cat,pos| 
+      prizelist << "#{pos.ordinalize} #{cat}" if pos <= 3
+    end
+    update_attribute(:prizes, prizelist.join(', '))
+    prizes
+  end
+  
+  def positions
+    race_instance.categories.containing(category).inject({}) { |h, cat| h.merge( { cat.name => position_in(cat) } ) }
+  end
+  
+  def position_in(cat)
+    race_instance.performances.eligible_for_category(cat).quicker_than(time_in_seconds).count + 1
+  end
+  
+  def time_in_seconds
+    read_attribute(:elapsed_time)
+  end
+  
+  def elapsed_time
+    if s = time_in_seconds
+      s.to_timecode
+    else
+      ""
+    end
+  end
+  
+  def elapsed_time=(time)
+    write_attribute(:elapsed_time, time.seconds) if time    # numbers will pass through unchanged. strings will be timecode-parsed
+  end
+  
+  def time_at(checkpoint)
+    checkpoint_times.time_at(checkpoint).first
+  end
+  
+  def status
+    RacePerformanceStatus.find(self.status_id)
+  end
+  def status=(value)
+    self.status_id = value.id
+  end
+  def finished?
+     status == RacePerformanceStatus["Finished"]
+  end
+  
+  
+    
+  def prized?
+    true if prizes.any?
+  end
+    
+protected
+
+  def times_from_checkpoints
+    # self.started_at ||= checkpoint_times.first.elapsed_time if checkpoint_times.any? && !race_instance.started_at
+    # self.finished_at ||= checkpoint_times.last.elapsed_time if checkpoint_times.any? && !elapsed_time
+    # self.elapsed_time ||= finished_at - started_at
+  end
+  
+  def recalculate_positions
+    position(true)
+    prizes(true)
+  end
+
+end
+

data/app/models/race_performance_status.rb

@@ -0,0 +1,58 @@
+class RacePerformanceStatus
+  attr_accessor :id, :name, :aliases
+
+  def initialize(options = {})
+    options = options.symbolize_keys
+    @id, @name = options[:id], options[:name]
+    @aliases = (options[:aliases] || []).collect {|name| name.to_s.downcase.intern}
+  end
+  
+  def symbol
+    @name.to_s.downcase.intern
+  end
+  
+  def has_alias?(value)
+    @aliases.include?(value.to_s.downcase.intern)
+  end
+  
+  def to_s
+    @name
+  end
+  
+  def to_i
+    @id
+  end
+  
+  def self.[](value="")
+    value = "?" if value.blank? || value == 0
+    @@statuses.find { |status| status.symbol == value.to_s.downcase.intern || status.has_alias?(value) }
+  end
+  
+  def self.find(id=0)
+    @@statuses.find { |status| status.id.to_s == id.to_s }
+  end
+  
+  def self.find_all
+    @@statuses.dup
+  end
+  
+  def self.from_time(time=nil)
+    time ||= ""
+    if time.seconds > 0   # String.seconds returns 0 for a string that doesn't parse. See DurationExtensions for method.
+      self["Finished"] 
+    elsif self[time]
+      self[time]
+    else
+      self["?"]
+    end
+  end
+  
+  @@statuses = [
+    RacePerformanceStatus.new(:id => 0,   :name => '?',   :aliases => ['unknown'] ),
+    RacePerformanceStatus.new(:id => 10,  :name => 'Ret', :aliases => ['retired', 'r']),
+    RacePerformanceStatus.new(:id => 20,  :name => 'DNF', :aliases => ['did not finish', 'x']),
+    RacePerformanceStatus.new(:id => 30,  :name => 'TO',  :aliases => ['timed out', 't']),
+    RacePerformanceStatus.new(:id => 50,  :name => 'Dsq', :aliases => ['disqualified', 'disq', 'd']),
+    RacePerformanceStatus.new(:id => 100, :name => 'Finished')
+  ]
+end

data/app/models/race_record.rb

@@ -0,0 +1,27 @@
+class RaceRecord < ActiveRecord::Base
+  
+  has_site if respond_to? :has_site
+  belongs_to :created_by, :class_name => 'User'
+  belongs_to :updated_by, :class_name => 'User'
+  belongs_to :race
+  belongs_to :race_competitor
+  belongs_to :race_category
+
+  # these associations are only populated in the relatively rare case where the record is part of one of our result sets
+  belongs_to :race_instance
+  belongs_to :race_performance
+
+  def elapsed_time
+    if s = read_attribute(:elapsed_time)
+      s.to_timecode
+    else
+      ""
+    end
+  end
+  
+  def elapsed_time=(time)
+    write_attribute(:elapsed_time, time.seconds) if time    # numbers will pass through unchanged. strings will be timecode-parsed
+  end
+
+end
+

data/app/views/admin/race_checkpoints/_checkpoint.html.haml

@@ -0,0 +1,19 @@
+- with_value ||= false
+- cssclass = f.object.new_record? ? 'adding subform' : 'subform'
+%div{:class => cssclass}
+  .name
+    = f.label :name, "Checkpoint Name"
+    = f.text_field :name, :class => 'textbox'
+  .location
+    = f.label :location, "Location"
+    = f.text_field :location, :class => 'textbox'
+  .value
+    - if with_value
+      = f.label :value, "Value"
+      = f.text_field :value, :class => 'textbox'
+
+  - if f.object.new_record?
+    = link_to_function "cancel", "this.up('.subform').remove()"
+  - else
+    = f.check_box '_delete', { :onclick=>"this.checked ? this.up('.subform').addClassName('deleting') : this.up('.subform').removeClassName('deleting')" , :class => 'record_delete'}
+    = f.label '_delete', 'delete', :class => 'quiet'

data/app/views/admin/race_club_aliases/_race_club_alias.html.haml

@@ -0,0 +1,10 @@
+- cssclass = f.object.new_record? ? 'adding subform' : 'subform'
+%p{:class => cssclass}
+  = f.label :name, "AKA:"
+  = f.text_field :name, :class => 'alias_name'
+
+  - if f.object.new_record?
+    = link_to_function "cancel", "this.up('.subform').remove()"
+  - else
+    = f.check_box '_delete', { :onclick=>"this.checked ? this.up('.subform').addClassName('deleting') : this.up('.subform').removeClassName('deleting')" , :class => 'alias_delete'}
+    = f.label '_delete', 'delete', :class => 'quiet'

data/app/views/admin/race_clubs/_club.html.haml

@@ -0,0 +1,19 @@
+%tr.node.level-1
+  - render_region :tbody do |tbody|
+    - tbody.title_cell do
+      %td.club_name
+        %p
+          = link_to club.name, edit_admin_race_club_url(club)
+
+    - tbody.members_cell do
+      %td.club_members
+        - if club.competitors.any?
+          = club.competitors.count
+        - else
+          \-
+         
+    - tbody.aliases_cell do
+      %td.club_aliases
+        - if club.other_names.any?
+          aka
+          = club.other_names.map(&:name).join(', ')

data/app/views/admin/race_clubs/_form.html.haml

@@ -0,0 +1,21 @@
+= render_region :form_top
+
+- if @race_club.errors.any?
+  %p.haserror
+    Sorry: there were problems:
+    %br
+    = @race_club.errors.full_messages
+
+- render_region :form do |form|
+  - form.edit_name do
+    %p.title
+      = f.label :name, "Displayed Name"
+      = f.text_field :name, :class => 'textbox', :maxlength => 100 
+
+  - form.edit_aliases do
+    %h2
+      Aliases and abbreviations
+    %div#other_names
+      = f.fields_for :other_names do |af|
+        = render :partial => 'admin/race_club_aliases/race_club_alias', :locals => {:f => af}
+    = link_to_new_nested_form "Add an alias", f, :other_names, :partial => 'admin/race_club_aliases/race_club_alias'

data/app/views/admin/race_clubs/edit.html.haml

@@ -0,0 +1,20 @@
+- include_stylesheet 'admin/races' 
+- include_javascript 'admin/races' 
+
+= render_region :top 
+
+- render_region :main do |main|
+  - main.edit_header do
+    %h1
+      Edit Club
+
+  - main.edit_form do  
+    - form_for :race_club, @race_club, :url => admin_race_club_path(@race_club), :html => { :method => "put" } do |f|
+      .form-area
+        = render :partial => "form", :locals => { :f => f }
+
+        %p.buttons
+          = save_model_button(@race_club)
+          = save_model_and_continue_editing_button(@race_club)
+          or
+          = link_to "Cancel", admin_race_clubs_path

data/app/views/admin/race_clubs/index.html.haml

@@ -0,0 +1,27 @@
+- include_stylesheet 'admin/races'
+
+#clubs_table.outset      
+  %table#race_clubs.index{:cellspacing=>"0", :border=>"0", :cellpadding=>"0"}
+    %thead
+      %tr
+        - render_region :thead do |thead|
+          - thead.title_header do
+            %th.club 
+              Name
+          - thead.members_header do
+            %th.members 
+              Members
+          - thead.aliases_header do
+            %th.members 
+              Aliases
+          
+    %tbody
+      - @race_clubs.each do |club|
+        = render :partial => 'club', :object => club
+
+- render_region :bottom do |bottom|
+  - bottom.buttons do
+    #actions
+      = will_paginate @race_clubs
+      %ul
+        %li= link_to image('plus') + " " + "new club", new_admin_race_club_url

data/app/views/admin/race_competitors/_competitor.html.haml

@@ -0,0 +1,14 @@
+%tr.node.level-1
+  - render_region :tbody do |tbody|
+    - tbody.title_cell do
+      %td.competitor_name
+        %p
+          = link_to competitor.name, edit_admin_race_competitor_url(competitor)
+
+    - tbody.club_cell do
+      %td.competitor_club
+        = competitor.club ? competitor.club.name : "unattached"
+         
+    - tbody.races_cell do
+      %td.competitor_races
+        = competitor.performances.count

data/app/views/admin/race_competitors/_form.html.haml

@@ -0,0 +1,21 @@
+= render_region :form_top
+
+- if @race_club.errors.any?
+  %p.haserror
+    Sorry: there were problems:
+    %br
+    = @race_club.errors.full_messages
+
+- render_region :form do |form|
+  - form.edit_name do
+    %p.title
+      = f.label :name, "Displayed Name"
+      = f.text_field :name, :class => 'textbox', :maxlength => 100 
+
+  - form.edit_aliases do
+    %h2
+      Aliases and abbreviations
+    %div#other_names
+      = f.fields_for :other_names do |af|
+        = render :partial => 'admin/race_club_aliases/race_club_alias', :locals => {:f => af}
+    = link_to_new_nested_form "Add an alias", f, :other_names, :partial => 'admin/race_club_aliases/race_club_alias'

data/app/views/admin/race_competitors/edit.html.haml

@@ -0,0 +1,20 @@
+- include_stylesheet 'admin/races' 
+- include_javascript 'admin/races' 
+
+= render_region :top 
+
+- render_region :main do |main|
+  - main.edit_header do
+    %h1
+      Edit Club
+
+  - main.edit_form do  
+    - form_for :race_club, @race_club, :url => admin_race_club_path(@race_club), :html => { :method => "put" } do |f|
+      .form-area
+        = render :partial => "form", :locals => { :f => f }
+
+        %p.buttons
+          = save_model_button(@race_club)
+          = save_model_and_continue_editing_button(@race_club)
+          or
+          = link_to "Cancel", admin_race_clubs_path