de.oddb 2.0.0

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

@@ -0,0 +1,15 @@
+#!/usr/bin/env ruby
+# Html::View::Drugs::Template -- de.oddb.org -- 27.10.2006 -- hwyss@ywesee.com
+
+require 'oddb/html/view/template'
+
+module ODDB
+  module Html
+    module View
+      module Drugs
+class Template < View::Template
+end
+      end
+    end
+  end
+end

data/lib/oddb/html/view/foot.rb

@@ -0,0 +1,52 @@
+#!/usr/bin/env ruby
+# Html::View::Foot -- de.oddb.org -- 02.11.2006 -- hwyss@ywesee.com
+
+require 'htmlgrid/divcomposite'
+require 'oddb/html/view/navigation'
+
+module ODDB
+  module Html
+    module View
+class Foot < HtmlGrid::DivComposite
+  COMPONENTS = { 
+    [0,0] => HelpLinks, 
+    [0,1] => :copyright, 
+  }
+  CSS_MAP = ['navigation', 'links']
+  def copyright(model)
+    [ lgpl_license(model), ' ', Time.now.year, ', ',
+      ywesee_link(model), ', ', oddb_version(model) ]
+  end
+  def lgpl_license(model)
+    link = HtmlGrid::Link.new(:lgpl_license, model, @session, self)
+    link.href = 'http://www.gnu.org/copyleft/lesser.html'
+    link
+  end
+  def oddb_version(model)
+    link = HtmlGrid::Link.new(:oddb_version, model, @session, self)
+    link.href = 'http://scm.ywesee.com/?p=de.oddb.org;a=summary'
+    link.set_attribute('title', ODDB_VERSION)
+    link
+  end
+  def ywesee_link(model)
+    link = HtmlGrid::Link.new(:ywesee, model, @session, self)
+    link.href = 'http://www.ywesee.com'
+    link
+  end
+end
+class NavigationFoot < HtmlGrid::DivComposite
+  COMPONENTS = { 
+    [0,0] => Navigation, 
+    [0,1] => CountryLinks, 
+  }
+  CSS_MAP = ['navigation', 'links']
+  def init
+    if(@lookandfeel.disabled? :country_links)
+      components.update([0,1] => "&nbsp;")
+    end
+    super
+  end
+end
+    end
+  end
+end

data/lib/oddb/html/view/google.rb

@@ -0,0 +1,23 @@
+#!/usr/bin/env ruby
+# Html::View::Google -- de.oddb.org -- 21.02.2007 -- hwyss@ywesee.com
+
+module ODDB
+  module Html
+    module View
+module Google
+  def google(model)
+    @google_id ||= 0
+    @google_id += 1
+    link = HtmlGrid::Link.new(:google, model, @session, self)
+    link.css_id = "google_%i" % @google_id
+    name = model.name.send(@session.language)
+    link.href = "http://www.google.de/search?q=%s" % name
+    link.dojo_title = @lookandfeel.lookup(:google, name)
+    link.css_class = 'square google'
+    link.label = false
+    link
+  end
+end
+    end
+  end
+end

data/lib/oddb/html/view/google_ads.rb

@@ -0,0 +1,40 @@
+#!/usr/bin/env ruby
+# Html::View::GoogleAds -- de.oddb.org -- 28.02.2008 -- hwyss@ywesee.com
+
+require 'htmlgrid/component'
+
+module ODDB
+  module Html
+    module View
+class GoogleAds < HtmlGrid::Component
+  def initialize(opts = {:channel => '2298340258', :width => 250, :height => 250})
+    @channel = opts[:channel]
+    @width = opts[:width]
+    @height = opts[:height]
+    @format = "#{@width}x#{@height}_as"
+    super
+  end
+  def to_html(context)
+    <<-EOS
+<script type="text/javascript"><!--
+google_ad_client = "pub-6948570700973491";
+google_ad_width = "#{@width}";
+google_ad_height = "#{@height}";
+google_ad_format = "#{@format}";
+google_ad_channel ="#{@channel}";
+google_ad_type = "text_image";
+google_color_border = "DBE1D6";
+google_color_bg = "E6FFD6";
+google_color_link = "003366";
+google_color_url = "FF3300";
+google_color_text = "003399";
+//--></script>
+<script type="text/javascript"
+src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
+</script>
+    EOS
+  end
+end
+    end
+  end
+end

data/lib/oddb/html/view/head.rb

@@ -0,0 +1,78 @@
+#!/usr/bin/env ruby
+# Html::View::Head -- de.oddb.org -- 02.11.2006 -- hwyss@ywesee.com
+
+require 'htmlgrid/divcomposite'
+require 'htmlgrid/image'
+require 'htmlgrid/link'
+require 'htmlgrid/span'
+require 'oddb/html/view/google_ads'
+
+module ODDB
+  module Html
+    module View
+class Head < HtmlGrid::DivComposite
+  COMPONENTS = {
+    [0,0] => :user,
+    [0,1] => :google_ads,
+    [0,2] => :logo,
+  }
+  CSS_ID_MAP = ["user", "google-ads"]
+  def google_ads(model)
+    if(@lookandfeel.enabled?(:google_ads) && !@session.logged_in?)
+      GoogleAds.new :width => 468, :height => 60, :channel => '6336403681'
+    end
+  end
+  def logo(model)
+    return if @lookandfeel.disabled? :logo
+    target = :home
+    logo = HtmlGrid::Image.new(:logo, model, @session, self)
+    if(@session.direct_event == target)
+      logo
+    else
+      link = HtmlGrid::Link.new(target, model, @session, self)
+      link.value = logo
+      link.href = @lookandfeel._event_url(target)
+      link
+    end
+  end
+  def user(model)
+    user = @session.user
+    if(user.is_a? Util::KnownUser)
+      @lookandfeel.lookup(:welcome_user, user.name)
+    end
+  end
+end
+class WelcomeHead < Head
+  COMPONENTS = {
+    [0,0] => :user,
+    [0,1] => :welcome,
+    [0,2] => :logo,
+  }
+  CSS_ID_MAP = ["user", "welcome"]
+  def welcome(model)
+    return unless @lookandfeel.enabled?(:welcome)
+    link = HtmlGrid::Link.new(:welcome_drugs, model, @session, self)
+    link.value.gsub!("\n", "<br>")
+    link.href = @lookandfeel.lookup(:screencast_url)
+    span = HtmlGrid::Span.new(model, @session, self)
+    span.css_id = "data_declaration"
+    span.value = @lookandfeel.lookup(:welcome_data_declaration)
+    span.dojo_title = [
+      @lookandfeel.lookup(:drugs_fixprices), "\n",
+      url_link("http://www.dimdi.de/static/de/amg/fbag/index.htm"),
+      "\n\n", @lookandfeel.lookup(:drugs_copay_free), "\n", 
+      url_link("https://www.gkv-spitzenverband.de/Befreiungsliste_Arzneimittel_Versicherte.gkvnet"),
+      "\n\n", @lookandfeel.lookup(:drugs_atc_codes), "\n",
+      url_link("http://www.whocc.no/atcddd/"),
+    ]
+    [ link, span ]
+  end
+  def url_link(url)
+    link = HtmlGrid::Link.new(:none, model, @session, self)
+    link.href = link.value = url
+    link
+  end
+end
+    end
+  end
+end

data/lib/oddb/html/view/limit.rb

@@ -0,0 +1,109 @@
+#!/usr/bin/env ruby
+# Html::View::Limit -- de.oddb.org -- 20.12.2007 -- hwyss@ywesee.com
+
+require 'htmlgrid/divcomposite'
+require 'htmlgrid/errormessage'
+require 'oddb/html/view/template'
+require 'oddb/html/view/login'
+
+module ODDB
+  module Html
+    module View
+class LimitForm < HtmlGrid::Form
+  include HtmlGrid::ErrorMessage
+  COMPONENTS = {
+    [0,0]  =>  :query_limit_poweruser_365,
+    [2,0]  =>  :query_limit_poweruser_a,
+    [0,1]  =>  :query_limit_poweruser_30,
+    [2,1]  =>  :query_limit_poweruser_b,
+    [0,2]  =>  :query_limit_poweruser_1,
+    [2,2]  =>  :query_limit_poweruser_c,
+    [2,3]  =>  :submit,
+  }
+  LABELS = true
+  LEGACY_INTERFACE = false
+  EVENT = :proceed_poweruser
+  def init
+    super
+    error_message
+  end
+  def query_limit_poweruser_a(model)
+    query_limit_poweruser_txt(:query_limit_poweruser_a, 365)
+  end
+  def query_limit_poweruser_b(model)
+    @lookandfeel.lookup(:query_limit_poweruser_b, ODDB.config.query_limit,
+      ODDB::Util::Money.new(ODDB.config.prices["org.oddb.de.view.30"]))
+  end
+  def query_limit_poweruser_c(model)
+    query_limit_poweruser_txt(:query_limit_poweruser_c, 1)
+  end
+  def query_limit_poweruser_txt(key, duration)
+    price = ODDB::Util::Money.new ODDB.config.prices["org.oddb.de.view.#{duration}"]
+    @lookandfeel.lookup(key, price)
+  end
+  def query_limit_poweruser_1(model)
+    query_limit_poweruser_radio(1)
+  end
+  def query_limit_poweruser_30(model)
+    query_limit_poweruser_radio(30)
+  end
+  def query_limit_poweruser_365(model)
+    query_limit_poweruser_radio(365)
+  end
+  def query_limit_poweruser_radio(value)
+    radio = HtmlGrid::InputRadio.new('days', @model, @session, self)
+    radio.value = value
+    radio
+  end
+end
+class LimitComposite < HtmlGrid::DivComposite
+  COMPONENTS = {
+    [0,0] => InlineSearch, 
+    [0,1] => :query_limit,
+    [0,2] => 'query_limit_welcome',
+    [0,2] => 'query_limit_new_user',
+    [1,2] => :query_limit_more_info,
+    [0,3] => :query_limit_explain,
+    [0,4] => 'query_limit_poweruser',
+    [0,5] =>  LimitForm,
+    [0,6] => 'query_limit_login',
+    [0,7] => LoginForm,
+    [0,8] => 'query_limit_thanks',
+    [0,9] => 'query_limit_thanks0',
+    [1,9] => :query_limit_email,
+    [2,9] => 'query_limit_thanks1',
+  }
+  CSS_ID_MAP = ['result-search', 'title']
+  CSS_MAP = { 1 => 'heading', 2 => 'divider', 3 => 'explain',
+              4 => 'explain', 6 => 'divider', 8 => 'divider', 9 => 'explain' }
+  def query_limit(model)
+    @lookandfeel.lookup(:query_limit, ODDB.config.query_limit)
+  end
+  def query_limit_download(model)
+    link = HtmlGrid::Link.new(:query_limit_download, 
+      model, @session, self)
+    link.value = link.href = @lookandfeel._event_url(:download_export)
+    link
+  end
+  def query_limit_email(model)
+    link = HtmlGrid::Link.new(:ywesee_contact_email, 
+      model, @session, self)
+    link.href = @lookandfeel.lookup(:ywesee_contact_href)
+    link
+  end
+  def query_limit_explain(model)
+    @lookandfeel.lookup(:query_limit_explain, @session.remote_ip,
+                        ODDB.config.query_limit)
+  end
+  def query_limit_more_info(model)
+    link = HtmlGrid::Link.new(:query_limit_more_info, model, @session, self)
+    link.href = "http://wiki.oddb.org/wiki.php/Main/DeODDB"
+    link
+  end
+end
+class Limit < Template
+  CONTENT = LimitComposite
+end
+    end
+  end
+end

data/lib/oddb/html/view/list.rb

@@ -0,0 +1,59 @@
+#!/usr/bin/env ruby
+# Html::View::List -- de.oddb.org -- 12.12.2006 -- hwyss@ywesee.com
+
+require 'htmlgrid/list'
+
+module ODDB
+  module Html
+    module View
+class List < HtmlGrid::List
+  BACKGROUND_ROW = 'bg'
+  BACKGROUND_SUFFIX = ''
+  LEGACY_INTERFACE = false
+  SORT_DEFAULT = nil
+  def query_args
+    []
+  end
+  def query_key 
+    :query
+  end
+  def sort_link(thkey, matrix, component)
+    sortlink = HtmlGrid::Link.new(thkey, @model, @session, self)
+    args = [ query_key, model.query ]
+    args.concat query_args
+    args.push('sortvalue', component.to_s)
+    sortlink.href = @lookandfeel._event_url(@session.event, args)
+    sortlink.css_class = css_head_map[matrix]
+    sortlink.css_id = thkey
+    titlekey = thkey.sub(/^th/, "tt")
+    if(title = @lookandfeel.lookup(titlekey))
+      ## Inefficient - if there are performance problems, remove the
+      #  next two lines and set dojo_title only where necessary
+      link = HtmlGrid::Link.new(titlekey, @model, @session, self)
+      sortlink.dojo_title = link
+      # TODO: make the hrefs dynamic (latest update)
+      case titlekey
+      when "tt_active_agents"
+        link.value = @lookandfeel.lookup(:tt_active_agents_link)
+        link.href = "ftp://ftp.dimdi.de/pub/amg/darform_011006.txt"
+        sortlink.dojo_title = [ title, link ]
+      when "tt_atc"
+        link.href = "http://www.whocc.no/atcddd/atcsystem.html"
+      when "tt_company"
+        link.href = "https://www.gkv-spitzenverband.de/Befreiungsliste_Arzneimittel_Versicherte.gkvnet"
+      when "tt_price_festbetrag"
+        link.href = "http://www.dimdi.de/static/de/amg/fbag/index.htm"
+      when "tt_price_public", "tt_price_difference"
+        link.href = "ftp://ftp.dimdi.de/pub/amg/satzbeschr_010108.pdf"
+      when "tt_price_exfactory"
+        link.href = "http://wiki.oddb.org/uploads/Main/Aenderung_der_AMPVo_per_1.1.2004_-_632.pdf"
+      else
+        sortlink.dojo_title = title
+      end
+    end
+    sortlink
+  end
+end
+    end
+  end
+end

data/lib/oddb/html/view/login.rb

@@ -0,0 +1,38 @@
+#!/usr/bin/env ruby
+# Html::View::Login -- de.oddb.org -- 26.10.2007 -- hwyss@ywesee.com
+
+require 'htmlgrid/pass'
+require 'oddb/html/view/drugs/template'
+require 'oddb/html/view/snapback'
+
+module ODDB
+  module Html
+    module View
+class LoginForm < HtmlGrid::Form
+  COMPONENTS = {
+    [0,0] =>  :email,
+    [0,1] =>  :pass,
+    [1,2] =>  :submit,
+  }
+  EVENT = :login_
+  FORM_NAME = 'login'
+  LABELS = true
+  SYMBOL_MAP = {
+    :pass =>  HtmlGrid::Pass, 
+  }
+end
+class LoginComposite < HtmlGrid::DivComposite
+  include Snapback
+  COMPONENTS = {
+    [0,0] => :snapback, 
+    [0,1] => "login", 
+    [0,2] => LoginForm,
+  }
+  CSS_ID_MAP = [ 'snapback', 'title' ]
+end
+class Login < Template
+  CONTENT = LoginComposite
+end
+    end
+  end
+end

data/lib/oddb/html/view/navigation.rb

@@ -0,0 +1,67 @@
+#!/usr/bin/env ruby
+# Html::View::Navigation -- de.oddb.org -- 06.11.2006 -- hwyss@ywesee.com
+
+require 'htmlgrid/div'
+
+module ODDB
+  module Html
+    module View
+class Links < HtmlGrid::Component
+  def init
+    super
+    @value = links(link_keys)
+  end
+  def links(keys)
+    current = @session.direct_event
+    keys.collect { |event|
+      link = HtmlGrid::Link.new(event, @model, @session, self) 
+      if(self.respond_to?(event))
+        self.send(event, link)
+      elsif(current != event)
+        link.href = @lookandfeel._event_url(event)
+      end
+      link
+    }
+  end
+end
+class CountryLinks < Links
+  def link_keys
+    country, = @session.server_name.split('.')
+    ptrn = /_#{country}$/
+    [:oddb_ch, :oddb_de, :oddb_chde].reject { |key| 
+      ptrn.match(key.to_s) }
+  end
+  def oddb_ch(link)
+    link.href = "http://ch.oddb.org/de/"
+  end
+  def oddb_chde(link)
+    link.href = "http://chde.oddb.org/"
+  end
+  def oddb_de(link)
+    link.href = "http://de.oddb.org/"
+  end
+end
+class HelpLinks < Links
+  def contact(link)
+    link.href = @lookandfeel.lookup(:contact_url)
+  end
+  def link_keys
+    user_navigation.concat [:contact, :home]
+  end
+  def user_navigation
+    nav = @session.user.navigation 
+    if(nav.empty?)
+      [:login]
+    else
+      nav
+    end
+  end
+end
+class Navigation < Links
+  def link_keys
+    @lookandfeel.navigation
+  end
+end
+    end
+  end
+end