de.oddb 2.0.0

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

@@ -0,0 +1,51 @@
+#!/usr/bin/env ruby
+# Html::View::Drugs::Init -- de.oddb.org -- 27.10.2006 -- hwyss@ywesee.com
+
+require 'oddb/html/view/drugs/template'
+require 'oddb/html/view/drugs/search'
+require 'oddb/html/view/google_ads'
+require 'oddb/html/view/rss_preview'
+
+module ODDB
+  module Html
+    module View
+      module Drugs
+class Init < Template
+  COMPONENTS = {
+    [0,0] => :head,
+    [0,1] => :sidebar_left,
+    [0,2] => :sidebar_right,
+    [0,3] => :content,  
+    [0,4] => NavigationFoot,  
+    [0,5] => :foot,
+  }
+  CONTENT = Search
+  CSS_MAP = { 1 => 'sidebar lefthand', 2 => 'sidebar righthand' }
+  CSS_ID_MAP = { 0 => 'head', 3 => 'home-search', 
+                 4 => 'navigation', 5 => 'foot' }
+  HEAD = WelcomeHead
+  def sidebar_left(model)
+    if(@lookandfeel.enabled?(:google_ads) && !@session.logged_in?)
+      GoogleAds.new 
+    end
+  end
+  def sidebar_right(model)
+    if(@lookandfeel.enabled?(:feedback_rss))
+      RssFeedbacks.new ODDB::Util::Feedback.newest, @session, self
+    end
+  end
+  def other_html_headers(context)
+    headers = super 
+    if(@lookandfeel.enabled?(:feedback_rss))
+      url = [ 'http:/', @session.server_name, 'rss', 
+              @session.language, "feedback.rss" ].join('/')
+      headers << context.link(:href => url, :type => "application/rss+xml",
+                              :title => 'feedback.rss', :rel => "alternate")
+    end
+    headers
+  end
+end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,24 @@
+#!/usr/bin/env ruby
+# Html::View::Drugs::Legend -- de.oddb.org -- 21.02.2007 -- hwyss@ywesee.com
+
+require 'htmlgrid/composite'
+
+module ODDB
+  module Html
+    module View
+      module Drugs
+class Legend < HtmlGrid::Composite
+  COMPONENTS = {}
+  LEGACY_INTERFACE = false
+  def init
+    @components = @lookandfeel.legend_components.dup
+    @components.each { |pos, key|
+      css_map.store(pos, key.to_s.gsub(/^explain_/, ""))
+    }
+    super
+  end
+end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,403 @@
+#!/usr/bin/env ruby
+# Html::View::Drugs::Package -- de.oddb.org -- 11.12.2006 -- hwyss@ywesee.com
+
+require 'oddb/html/view/drugs/template'
+require 'oddb/html/view/google'
+require 'oddb/html/view/list'
+require 'oddb/html/view/search'
+require 'oddb/html/view/snapback'
+
+module ODDB
+  module Html
+    module View
+      module Drugs
+module PackageMethods
+  def active_agents(model)
+    link = HtmlGrid::Link.new(:no_active_agents, model, @session, self)
+    if(code = model.code(:cid, 'DE'))
+      link.href = @lookandfeel._event_url(:package, [:pzn, code.value])
+    elsif model.is_a?(ODDB::Drugs::Sequence)
+      link.href = @lookandfeel._event_url(:sequence, [:uid, model.uid])
+    elsif model.is_a?(ODDB::Drugs::Product)
+      link.href = @lookandfeel._event_url(:product, [:uid, model.uid])
+    else
+      link = HtmlGrid::Value.new(:no_active_agents, model, @session ,self)
+    end
+    agents = model.active_agents.collect { |agent|
+      [
+        agent.substance.name.send(@session.language), ' ',
+        agent.dose, "\n",
+      ]
+    }
+    size = agents.size
+    if(size == 1)
+      link.value = agents.first
+    elsif size > 1
+      link.value = @lookandfeel.lookup(:active_agents, size)
+      link.css_id = "sub_#{model.atc}_#@list_index"
+      link.dojo_title = agents
+    end
+    link
+  end
+  def adjust_price(money)
+    money * @lookandfeel.price_factor if(money)
+  end
+  def code_boolean(model, key)
+    if code = model.code(key)
+      if code.value
+        @lookandfeel.lookup(:yes)
+      else
+        @lookandfeel.lookup(:no)
+      end
+    end
+  end
+  def code_festbetragsgruppe(model)
+    model.code(:festbetragsgruppe, 'DE')
+  end
+  def code_festbetragsstufe(model)
+    model.code(:festbetragsstufe)
+  end
+  def code_prescription(model)
+    code_boolean(model, :prescription)
+  end
+  def code_registration(model)
+    model.registration
+  end
+  def code_zuzahlungsbefreit(model)
+    code_boolean(model, :zuzahlungsbefreit)
+  end
+  def ddd_prices(model)
+    ddds = []
+    model.ddds.each_with_index { |ddd, idx|
+      if(price = adjust_price model.dose_price(ddd.dose))
+        span = HtmlGrid::Span.new(model, @session, self)
+        span.value = price
+        code = model.code(:cid)
+        span.css_id = "ddd_price_#{code}.#{idx}"
+        args = [:pzn, code, :offset, idx]
+        span.dojo_tooltip = @lookandfeel._event_url(:explain_ddd_price,
+                                                    args)
+                                                    
+        ddds.push span
+      end
+    }
+    val = HtmlGrid::Value.new(:ddd_prices, model, @session, self)
+    val.value = ddds.zip(Array.new([ddds.size - 1, 0].max, ' / '))
+    val
+  end
+  def fachinfo_link(model)
+    url = if model.respond_to?(:fachinfo) \
+            && model.fachinfo.send(@session.language)
+            @lookandfeel._event_url(:fachinfo, [:uid, model.sequence.uid])
+          elsif model.respond_to?(:fachinfo_url)
+            model.fachinfo_url
+          end
+    if url
+      link = HtmlGrid::Link.new(:square_fachinfo, model, @session, self)
+      link.css_class = 'square fachinfo'
+      link.href = url
+      link
+    end
+  end
+  def feedback(model)
+    if @lookandfeel.enabled?(:feedback)
+      link = HtmlGrid::Link.new(:feedback_short, model, @session, self)
+      if code = model.code(:cid, 'DE')
+        link.href = @lookandfeel._event_url(:feedback, [:pzn, code.value])
+      else
+        link.href = @lookandfeel._event_url(:feedback, [:uid, model.uid])
+      end
+      link.css_class = 'feedback square'
+      link.set_attribute('title', @lookandfeel.lookup(:feedback_alt, 
+        model.name.send(@session.language)))
+      link
+    end
+  end
+  def patinfo_link(model)
+    url = if model.respond_to?(:patinfo) && model.patinfo.send(@session.language)
+            @lookandfeel._event_url(:patinfo, [:uid, model.sequence.uid])
+          elsif model.respond_to?(:patinfo_url)
+            model.patinfo_url
+          end
+    if url
+      link = HtmlGrid::Link.new(:square_patinfo, model, @session, self)
+      link.css_class = 'square patinfo'
+      link.href = url
+      link
+    end
+  end
+  def price_festbetrag(model)
+    @price_id ||= 0
+    @price_id += 1
+    span = HtmlGrid::Span.new(model, @session, self)
+    span.css_id = "price_festbetrag#{@price_id}"
+    span.value = adjust_price model.price(:festbetrag)
+    span.dojo_title = sprintf("%s: %s",
+      @lookandfeel.lookup(:price_difference), price_difference(model))
+    span.label = true
+    span
+  end
+  def price_difference(model)
+    if((pf = model.price(:festbetrag)) && (pp = model.price(:public)))
+      sprintf("%+1.2f", adjust_price(pp - pf))
+    end
+  end
+  def price_exfactory(model)
+    adjust_price model.price(:exfactory)
+  end
+  def price_public(model)
+    price = adjust_price model.price(:public)
+    if(!@lookandfeel.enabled?(:explain_price, false) \
+       || model.is_a?(Remote::Drugs::Package))
+      price
+    elsif(price && (code = model.code(:cid)))
+      span = HtmlGrid::Span.new(model, @session, self)
+      span.value = price
+      span.css_id = "explain_price#{code}"
+      span.dojo_tooltip = @lookandfeel._event_url(:explain_price,
+                                                  [:pzn, code])
+      span.label = true
+      span
+    end
+  end
+  def price_zuzahlung(model)
+    adjust_price model.price(:zuzahlung)
+  end
+  def product(model)
+    if(model.is_a?(Remote::Drugs::Package))
+      product_remote(model)
+    else
+      product_local(model)
+    end
+  end
+  def product_local(model)
+    link = nil
+    if(model.atc && (code = model.code(:cid, 'DE')))
+      link = HtmlGrid::Link.new(:compare, model, @session, self)
+      link.href = @lookandfeel._event_url(:compare, [:pzn, code.value])
+    else
+      link = HtmlGrid::Span.new(model, @session, self)
+    end
+    link.value = model.name.send(@session.language) \
+      || ((prod = model.product) && prod.name.send(@session.language))
+    link.css_id = "cid_#{model.atc}_#@list_index"
+    link.dojo_title = @lookandfeel.lookup(:pzn, model.code(:cid, 'DE'))
+    link
+  end
+  def product_remote(model)
+    link = nil
+    atc = model.atc
+    if(atc && (model.active_agents.size == 1))
+      link = HtmlGrid::Link.new(:compare, model, @session, self)
+      link.href = @lookandfeel._event_url(:compare_remote, 
+                                          [:uid, model.uid])
+    else
+      link = HtmlGrid::Span.new(model, @session, self)
+    end
+    link.value = model.name.send(@session.language)
+    code = atc && atc.code
+    link.css_id = "cid_#{code}_#@list_index"#"cid_#@list_index"
+    link.dojo_title = @lookandfeel.lookup(:ean, model.code(:ean))
+    link
+  end
+  def row_css(model, bg_flag)
+    css = super
+    if(model.is_a?(Remote::Drugs::Package))
+      css = ['remote', css].compact.join(' ')
+    elsif((code = model.code(:zuzahlungsbefreit)) && code.value)
+      css = ['zuzahlungsbefreit', css].compact.join(' ')
+    end
+    css
+  end
+  def size(model)
+    return unless model.respond_to?(:parts)
+    model.parts.collect { |part|
+      parts = [] 
+      multi = part.multi.to_i
+      if(multi > 1)
+        parts.push multi, 'x'
+      end
+			size = part.size.to_i
+			if(size > 1)
+				parts.push(size)
+			end
+      if(unit = part.unit)
+        parts.push(unit.name.send(@session.language))
+      end
+      if(quantity = part.quantity)
+        parts.push 'à', quantity
+      end
+      parts.join(' ')
+    }.join(' + ')
+  end
+end
+class Parts < View::List
+  COMPONENTS = {
+    [0,0] => :size,
+    [1,0] => :active_agents,
+  }
+  CSS_MAP = { [0,0,2] => 'top' }
+  OMIT_HEADER = true
+  SORT_DEFAULT = nil
+  def active_agents(model)
+    if(comp = model.composition)
+      comp.active_agents.collect { |act| 
+        [ (sub = act.substance) && sub.name.send(@session.language), 
+          act.dose ].join(' ')
+      }.join("<BR>")
+    end
+  end
+  def size(model)
+    part = []
+    if(multi = model.multi)
+      part.push multi, 'x'
+    end
+    part.push model.size.to_i, model.unit
+    if(quantity = model.quantity)
+      part.push 'à', quantity
+    end
+    part.join(' ')
+  end
+end
+class PackageInnerComposite < HtmlGrid::Composite
+  include PackageMethods
+  include View::Google
+  COMPONENTS = {
+    [0,0] => :name, 
+    ## google's third parameter ensures that its link is written before 
+    #  the name - this allows a float: right in css to work correctly
+    [1,0,0] => :google,  
+    [2,0] => :code_cid, 
+    [0,1] => :company, 
+    [2,1] => :atc,
+    [0,2] => :code_registration,
+    [0,3] => :price_public,
+    [2,3] => :price_festbetrag,
+    [0,4] => :code_festbetragsstufe,
+    [2,4] => :code_festbetragsgruppe,
+    [0,5] => :code_zuzahlungsbefreit,
+    [2,5] => :price_zuzahlung,
+    [0,6] => :code_prescription,
+    [2,6] => :equivalence_factor,
+    [1,7,0] => :fachinfo_link,
+    [1,7,1] => :patinfo_link,
+  }
+  CSS_MAP = {
+    [1,0] => 'google',
+  }
+  LABELS = true
+  LEGACY_INTERFACE = false
+  DEFAULT_CLASS = HtmlGrid::Value
+  def atc(model)
+    if(atc = model.atc)
+      span = HtmlGrid::Span.new(model, @session, self)
+      span.value = [atc.code]
+      if(name = atc.name)
+        span.value.push('(', name, ')')
+      end
+      ddds = atc.ddds
+      unless(ddds.empty?)
+        span.css_id = "atc"
+        span.dojo_title = ddds.join("\n")
+      end
+			span.label = true
+      span
+    end
+  end
+  def code_festbetragsstufe(model)
+    if(code = super)
+      span = HtmlGrid::Span.new(model, @session, self)
+      span.value = code
+      link = HtmlGrid::Link.new(:festbetragsstufe, 
+                                model, @session, self)
+      link.href = @lookandfeel.lookup(:festbetragsstufe_url)
+      span.dojo_title = [
+        @lookandfeel.lookup("festbetragsstufe_#{code}"),
+        link, 
+      ]
+      span.css_id = "fb_#@list_index"
+      span.label = true
+      span
+    end
+  end
+  def code_cid(model)
+    model.code(:cid, 'DE')
+  end
+  def company(model)
+    if(company = model.company)
+      company.name
+    end
+  end
+  def equivalence_factor(model)
+    factors = model.parts.collect { |part| 
+      (comp = part.composition) && comp.equivalence_factor
+    }.compact
+    unless(factors.empty?)
+      link = HtmlGrid::Link.new(:equivalence_factor, model, 
+                                @session, self)
+      link.href = "http://www.gesetze-im-internet.de/fgnv/anlage_5.html"
+      link.value = factors
+      link.label = true
+      link
+    end
+  end
+  private
+  def label(component, key=nil)
+    if(component.respond_to?(:label?))
+      super
+    else
+      lablable = HtmlGrid::Value.new(key, component, @session, self)
+      lablable.value = component
+      super(lablable, key)
+    end
+  end
+end
+class PackageComposite < HtmlGrid::DivComposite
+  include Snapback
+  COMPONENTS = {
+    [0,0] => :snapback, 
+    [0,1] => InlineSearch, 
+    [0,2] => :name,
+    [0,3] => PackageInnerComposite,
+    [0,4] => :parts_heading,
+    [0,5] => :parts,
+  }
+  CSS_ID_MAP = [ 'snapback', 'result-search', 'title' ]
+  CSS_MAP = { 0 => 'before-searchbar', 4 => 'divider' }
+  def breadcrumbs(model)
+    [ @lookandfeel.lookup(:package_details_for, 
+                          model.cascading_name(@session.language)) ]
+  end
+  def name(model)
+    lang = @session.language
+    parts = [model.cascading_name lang]
+    if(company = model.company)
+      parts.push(' - ', company.name.send(lang))
+    end
+    parts
+  end
+  def parts(model)
+    Parts.new(model.parts, @session, self)
+  end
+  def parts_heading(model)
+    key = model.parts.size > 1 ? :parts : :package_and_substances
+    @lookandfeel.lookup(key)
+  end
+  def snapback(model)
+    [ super, @lookandfeel.lookup(:breadcrumb_divider) ].concat breadcrumbs(model)
+  end
+end
+class Package < Template
+  CONTENT = PackageComposite
+  def _title
+    if @model.saved?
+      super[0..-2].push(@model.cascading_name(@session.language))
+    else
+      super.push(@lookandfeel.lookup(:new_package))
+    end
+  end
+end
+      end
+    end
+  end
+end