de.oddb 2.0.0

data/lib/oddb/html/view/drugs/compare.rb

@@ -0,0 +1,95 @@
+#!/usr/bin/env ruby
+# Html::View::Drugs::Compare -- de.oddb.org -- 14.02.2007 -- hwyss@ywesee.com
+
+require 'oddb/html/view/google'
+require 'oddb/html/view/list'
+require 'oddb/html/view/search'
+require 'oddb/html/view/snapback'
+require 'oddb/html/view/drugs/legend'
+require 'oddb/html/view/drugs/package'
+require 'oddb/html/view/drugs/products'
+require 'oddb/html/view/drugs/template'
+
+module ODDB
+  module Html
+    module View
+      module Drugs
+class CompareList < View::List
+  include PackageMethods
+  include ProductMethods
+  include View::Google
+  COMPONENTS = {
+    [0,0] => :product,
+    [1,0] => :company,
+    [2,0] => :active_agents,
+    [3,0] => :size, 
+    [4,0] => :price_exfactory,
+    [5,0] => :price_public,
+    [6,0] => :ddd_prices,
+    [7,0] => :difference,
+    [8,0] => :google,
+  }
+  css_map = {}
+  COMPONENTS.each { |key, val|
+    css_map.store(key, val.to_s)
+  }
+  CSS_MAP = css_map
+  CSS_HEAD_MAP = css_map
+  EMPTY_LIST_KEY = :empty_comparison
+  def compose_header(offset=[0,0])
+    offset = super
+    mdl = @model.origin
+    _compose(mdl, offset)
+    css = ['origin', row_css(mdl, nil)].compact.join(' ')
+    @grid.set_row_attributes({'class' => css}, offset.at(1))
+    resolve_offset(offset, self::class::OFFSET_STEP)
+  end
+  def difference(model)
+    if(model.respond_to?(:difference) && (difference = model.difference))
+      span = HtmlGrid::Span.new(model, @session, self)
+      if(difference < 0)
+        span.css_class = 'less'
+      elsif(difference > 0)
+        span.css_class = 'more'
+      else
+        span.css_class = 'same'
+      end
+      span.value = sprintf("%+2.1f%%", difference)
+      span
+    end
+  end
+  def query_key
+    @model.origin.is_a?(Remote::Drugs::Package) ? :uid : :pzn
+  end
+end
+class CompareComposite < HtmlGrid::DivComposite
+  include Snapback
+  COMPONENTS = {
+    [0,0] => :snapback,
+    [0,1] => "explain_compare", 
+    [0,2] => InlineSearch, 
+    [0,3] => CompareList,
+    [0,4] => Legend,
+  }
+  CSS_ID_MAP = [ 'snapback', 'explain-compare', 'result-search',
+                 'compare-list', 'legend' ]
+  CSS_MAP = { 1 => 'before-searchbar', 3 => 'result' }
+  def comparison_for(model)
+    @lookandfeel.lookup(:comparison_for, 
+                        model.origin.name.send(@session.language))
+  end
+  def snapback(model)
+    [ super, @lookandfeel.lookup(:breadcrumb_divider), 
+      comparison_for(model)]
+  end
+end
+class Compare < Template
+  CONTENT = CompareComposite
+  def _title
+    super[0..-2].push(@model.origin.name.send(@session.language))
+  end
+end
+      end
+    end
+  end
+end

data/lib/oddb/html/view/drugs/download_export.rb

@@ -0,0 +1,28 @@
+#!/usr/bin/env ruby
+# Html::View::DownloadExport -- de.oddb.org -- 29.07.2008 -- hwyss@ywesee.com
+
+require 'htmlgrid/component'
+require 'oddb/export/csv'
+
+module ODDB
+  module Html
+    module View
+      module Drugs
+class DownloadExport < HtmlGrid::Component
+  def http_headers
+    {
+      "Content-Type"        => "text/csv",
+      "Cache-Control"       => "no-cache, max-age=3600, must-revalidate",
+      "Content-Disposition" => "attachment; filename=#{@model.filename}",
+      "Refresh"             => "0; URL=#{@lookandfeel._event_url(:home)}",
+    }
+  end
+  def to_html(context)
+    Export::Csv::Packages.new.export @model, @lookandfeel.csv_components,
+                                     @session.language
+  end
+end
+      end
+    end
+  end
+end

data/lib/oddb/html/view/drugs/downloads.rb

@@ -0,0 +1,128 @@
+require 'htmlgrid/errormessage'
+require 'htmlgrid/labeltext'
+require 'oddb/html/view/drugs/template'
+require 'oddb/html/view/list'
+require 'oddb/html/view/search'
+
+module ODDB
+  module Html
+    module View
+      module Drugs
+class DownloadList < View::List
+  include HtmlGrid::ErrorMessage
+  COMPONENTS = {
+    [0,0] => :name,
+    [1,0] => :price_1,
+    [2,0] => :price_12,
+    [3,0] => :download_description,
+    [4,0] => :download_example,
+    [5,0] => :download_howto,
+  }
+  DEFAULT_HEAD_CLASS = 'groupheader'
+  STRIPED_BG = true
+  SORT_HEADER = false
+  EXTERNAL_DATADESCS = {
+    'compendium_de.oddb.org.firefox.epub' => 'http://www.openebook.org/specs.htm',
+    'compendium_de.oddb.org.htc.prc' => 'http://www.mobipocket.com/dev/article.asp?BaseFolder=prcgen&File=mobiformat.htm',
+    'compendium_de.oddb.org.kindle.mobi' => 'http://www.mobipocket.com/dev/article.asp?BaseFolder=prcgen&File=mobiformat.htm',
+    'compendium_de.oddb.org.stanza.epub' => 'http://www.openebook.org/specs.htm',
+    'patinfos_de.oddb.org.firefox.epub' => 'http://www.openebook.org/specs.htm',
+    'patinfos_de.oddb.org.htc.prc' => 'http://www.mobipocket.com/dev/article.asp?BaseFolder=prcgen&File=mobiformat.htm',
+    'patinfos_de.oddb.org.kindle.mobi' => 'http://www.mobipocket.com/dev/article.asp?BaseFolder=prcgen&File=mobiformat.htm',
+    'patinfos_de.oddb.org.stanza.epub' => 'http://www.openebook.org/specs.htm',
+  }
+  def init
+    super
+    error_message
+  end
+  def download_description model
+    link = HtmlGrid::Link.new :download_description, model, @session, self
+    link.href = EXTERNAL_DATADESCS.fetch model.name do
+      path = File.join 'datadesc', model.name + '.txt'
+      @lookandfeel.resource_global(:downloads, path)
+    end
+    link
+  end
+  def download_example model
+    link = HtmlGrid::Link.new :download_example, model, @session, self
+    path = File.join 'examples', model.name
+    link.href = @lookandfeel.resource_global(:downloads, path)
+    link
+  end
+  def download_howto model
+    if url = @lookandfeel.lookup("download_howto_url_#{model.name}")
+      link = HtmlGrid::Link.new :download_howto, model, @session, self
+      link.href = url
+      link.value = @lookandfeel.lookup "download_howto_#{model.name}"
+      link
+    end
+  end
+  def name model
+    size = model.size
+    unit = 'B'
+    units = %w{KB MB GB TB}
+    while size > 1024 && unit = units.shift
+      size = (size / 1024.0).ceil
+    end
+    name = "#{model.name} (~ #{size} #{unit})"
+    box = HtmlGrid::InputCheckbox.new "downloads[#{model.name}]",
+                                      model, @session, self
+    [box, name]
+  end
+  def price_1 model
+    radio_price model, 1
+  end
+  def price_12 model
+    radio_price model, 12
+  end
+  def radio_price model, months
+    if price = model.price(months)
+      radio = HtmlGrid::InputRadio.new "months[#{model.name}]",
+                                       model, @session, self
+      radio.value = months
+      selected = @session.user_input(:months) || {}
+      radio.set_attribute 'checked', months == (selected[model.name] || 1).to_i
+      [radio, "EUR %4.2f" % price]
+    end
+  end
+end
+class DownloadsForm < HtmlGrid::DivForm
+  COMPONENTS = {
+    [0,0] => DownloadList,
+    [0,1] => :compression_label,
+    [0,2] => :compression,
+    [0,3] => :submit,
+  }
+  CSS_MAP = { 1 => 'padded', 2 => 'padded', 3 => 'padded' }
+  EVENT = :proceed_download
+  SYMBOL_MAP = {
+    :compression       => HtmlGrid::Select,
+  }
+  def compression_label model
+    label = HtmlGrid::LabelText.new :compression_label, model, @session, self
+    label.set_attribute 'for', :compression
+    label
+  end
+end
+class DownloadsComposite < HtmlGrid::DivComposite
+  COMPONENTS = {
+    [0,0] => InlineSearch,
+    [0,1] => "downloads",
+    [0,2] => :download_info,
+    [0,3] => DownloadsForm,
+  }
+  CSS_ID_MAP = [ 'result-search', 'title' ]
+  CSS_MAP = { 1 => 'result', 2 => 'explain' }
+  def download_info model
+    link = HtmlGrid::Link.new(:download_info, model, @session, self)
+    link.href = 'http://wiki.oddb.org/wiki.php?pagename=ODDB.Stammdaten'
+    link
+  end
+end
+class Downloads < Template
+  CONTENT = DownloadsComposite
+end
+      end
+    end
+  end
+end

data/lib/oddb/html/view/drugs/fachinfo.rb

@@ -0,0 +1,46 @@
+#!/usr/bin/env ruby
+# Html::View::Drugs::Fachinfo -- de.oddb.org -- 30.10.2007 -- hwyss@ywesee.com
+
+require 'oddb/html/view/document'
+require 'oddb/html/view/drugs/template'
+
+module ODDB
+  module Html
+    module View
+      module Drugs
+class FachinfoComposite < HtmlGrid::DivComposite
+  include Snapback
+  COMPONENTS = {
+    [0,0] => :snapback, 
+    [0,1] => InlineSearch, 
+    [0,2] => :name,
+    [0,3] => :chapters,
+    [0,4] => :document,
+  }
+  CSS_ID_MAP = [ 'snapback', 'result-search', 'title', 'chapters' ]
+  CSS_MAP = { 0 => 'before-searchbar' }
+  def document(model)
+    if((fi = model.fachinfo) && (doc = fi.send(@session.language)))
+      Document.new(doc, @session, self)
+    end
+  end
+  def chapters(model)
+    if((fi = model.fachinfo) && (doc = fi.send(@session.language)))
+      ChapterNames.new(:fachinfo, doc, @session, self)
+    end
+  end
+end
+class Fachinfo < Template
+  CONTENT = FachinfoComposite
+  def _title
+    name = @model.name.send(@session.language)
+    if name.nil? && @model.respond_to?(:product)
+      name = @model.product.name.send(@session.language)
+    end
+    super.push name
+  end
+end
+      end
+    end
+  end
+end

data/lib/oddb/html/view/drugs/feedback.rb

@@ -0,0 +1,235 @@
+#!/usr/bin/env ruby
+# Html::View::Drugs::Feedback -- de.oddb.org -- 06.12.2007 -- hwyss@ywesee.com
+
+require 'htmlgrid/errormessage'
+require 'htmlgrid/form'
+require 'htmlgrid/infomessage'
+require 'htmlgrid/inputradio'
+require 'htmlgrid/labeltext'
+require 'htmlgrid/textarea'
+require 'oddb/html/view/drugs/package'
+require 'oddb/html/view/drugs/template'
+require 'oddb/html/view/list'
+require 'oddb/html/view/search'
+require 'oddb/html/view/snapback'
+
+module ODDB
+  module Html
+    module View
+      module Drugs
+class FeedbackList < List
+  class << self
+    def boolean ypos, key
+      components.update( [0, ypos] => key ) 
+      define_method(key) { |model| boolean model.send(key) }
+    end
+    def components
+      @components ||= {}
+    end
+  end
+  COLSPAN_MAP = { [0,0] => 2 }
+  COMPONENTS = {
+    [0,0] => :name,
+    [0,1] => :email,
+    [0,2] => :message,
+  }
+  boolean 3, :item_good_experience
+  boolean 4, :item_recommended
+  boolean 5, :item_good_impression
+  boolean 6, :item_helps
+  CSS_MAP = {
+    [0,2] => 'top',
+  }
+  LABELS = true
+  LOOKANDFEEL_MAP = {
+    :message => :feedback,
+  }
+  OFFSET_STEP = [0,7]
+  OMIT_HEADER = true
+  def init
+    components.update self.class.components
+    super
+  end
+  def boolean(bool)
+    div = HtmlGrid::Div.new(bool, @session, self)
+    css = 'square '
+    if(bool)
+      div.value = '+'
+      css << 'plus'
+    else
+      div.value = '-'
+      css << 'minus'
+    end
+    div.css_class = css
+    div.label = true
+    div
+  end
+  def email(model)
+    value = HtmlGrid::Value.new(:email, model, @session, self)
+    if(!model.email_public)
+      value.value = @lookandfeel.lookup(:email_not_public)
+    end
+    value
+  end
+  def name(model)
+    @lookandfeel.lookup(:feedback_by, model.name, 
+                        model.time.strftime("%A, %d. %B %Y - %H:%M"))
+  end
+end
+class FeedbackForm < HtmlGrid::Form
+  class << self
+    def radio ypos, key
+      key = key.to_sym
+      truekey = "#{key}_true"
+      falsekey = "#{key}_false"
+      components.update( [0, ypos] => key, 
+                         [1, ypos, 0] => truekey.to_sym,
+                         [2, ypos, 1] => truekey,
+                         [1, ypos + 1, 0] => falsekey.to_sym,
+                         [2, ypos + 1, 1] => falsekey)
+      css_map.update( [1, ypos] => 'radio', [1, ypos + 1] => 'radio')
+      symbol_map.store(key, HtmlGrid::LabelText)
+      define_method(truekey) { |model| radio_true(key) }
+      define_method(falsekey) { |model| radio_false(key) }
+    end
+    def components
+      @components ||= {}
+    end
+    def css_map
+      @css_map ||= {}
+    end
+    def symbol_map
+      @symbol_map ||= {}
+    end
+  end
+  COMPONENTS = {
+    [0,0] => :name,
+    [0,1] => :email,
+    [0,4] => :message,
+  }
+  radio 2, :email_public
+  radio 5, :item_good_experience
+  radio 7, :item_recommended
+  radio 9, :item_good_impression
+  radio 11, :item_helps
+  include HtmlGrid::ErrorMessage
+  include HtmlGrid::InfoMessage
+  CSS_MAP = { 
+    [0,4] => 'top', 
+  }
+  COLSPAN_MAP = {
+    [1,0] => 2,
+    [1,1] => 2,
+    [1,4] => 2,
+    [1,13] => 2,
+  }
+  CSS_CLASS = 'composite top'
+  LABELS = true
+  LOOKANDFEEL_MAP = {
+    :message => :feedback_message,
+  }
+  EVENT = :update
+  LEGACY_INTERFACE = false
+  SYMBOL_MAP = {
+    :email_public => HtmlGrid::LabelText,
+  }
+  def init
+    components.update self.class.components
+    symbol_map.update self.class.symbol_map
+    css_map.update self.class.css_map
+    if(@session.passed_turing_test?)
+      components.update([1,13]=>:submit)
+    else
+      components.update([0,13]=>:captcha, [1,14]=>:captcha_image, [1,15]=>:submit)
+      colspan_map.update([1,14]=>2, [1,15]=>2)
+    end
+    super
+    error_message
+    info_message
+  end
+  def challenge
+    @challenge ||= @lookandfeel.generate_challenge
+  end
+  def captcha(model)
+    name = "captcha[#{challenge.id}]"
+    HtmlGrid::InputText.new(name, model, @session, self)
+  end
+  def captcha_image(model)
+    img = HtmlGrid::Image.new(:file, challenge, @session, self)
+    img.attributes["src"] = File.join('', 'captcha', challenge.file)
+    img
+  end
+  def email_public_false(model)
+    radio_false(:email_public)
+  end
+  def email_public_true(model)
+    radio_true(:email_public)
+  end
+  def radio_true(true_key)
+    radio = HtmlGrid::InputRadio.new(true_key, model, @session, self)
+    if(model.send(true_key) || @session.user_input(true_key))
+      radio.set_attribute('checked', true)
+    end
+    radio.value = '1'
+    radio.label = false
+    radio
+  end
+  def radio_false(false_key)
+    radio = HtmlGrid::InputRadio.new(false_key, model, @session, self)
+    if(model.send(false_key).eql?(false) \
+       || @session.user_input(false_key).eql?(false))
+      radio.set_attribute('checked', true)
+    end
+    radio.value = '0'
+    radio.label = false
+    radio
+  end
+  def message(model)
+    input = HtmlGrid::Textarea.new(:message, model, @session, self)
+    input.set_attribute('wrap', true)
+    js = "if(this.value.length > 400) { (this.value = this.value.substr(0,400))}" 
+    input.set_attribute('onKeypress', js)
+    input.label = true
+    input
+  end
+end
+class FeedbackComposite < HtmlGrid::DivComposite
+  include Snapback
+  include Drugs::PackageMethods
+  COMPONENTS = {
+    [0,0] => :snapback, 
+    [0,1] => InlineSearch, 
+    [0,2] => :feedback_for,
+    [0,3] => :feedbacks,
+    [0,4] => :feedback_form,
+  }
+  CSS_ID_MAP = [ 'snapback', 'result-search', 'title', 'feedbacks' ]
+  CSS_MAP = { 
+    0 => 'before-searchbar', 
+    3 => 'mezzo righthand', 
+    4 => 'mezzo lefthand', 
+  }
+  def feedbacks(model)
+    FeedbackList.new(model.feedbacks.reverse, @session, self)
+  end
+  def feedback_for(model)
+    if size = size(model)
+      @lookandfeel.lookup(:feedback_for, model.name, size)
+    else
+      @lookandfeel.lookup(:feedback_for_sequence, model.name)
+    end
+  end
+  def feedback_form(model)
+    FeedbackForm.new(model.current, @session, self)
+  end
+end
+class Feedback < Template
+  CONTENT = FeedbackComposite
+  def _title
+    super[0..-2].push(@model.name.send(@session.language))
+  end
+end
+      end
+    end
+  end
+end