de.oddb 2.0.0

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

@@ -0,0 +1,18 @@
+#!/usr/bin/env ruby
+# Html::State::Drugs::Init -- de.oddb.org -- 27.10.2006 -- hwyss@ywesee.com
+
+require 'oddb/html/state/global_predefine'
+require 'oddb/html/view/drugs/init'
+
+module ODDB
+  module Html
+    module State
+      module Drugs
+class Init < Drugs::Global
+  DIRECT_EVENT = :home
+  VIEW = View::Drugs::Init
+end
+      end
+    end
+  end
+end

data/lib/oddb/html/state/drugs/login.rb

@@ -0,0 +1,17 @@
+#!/usr/bin/env ruby
+# Html::State::Drugs::Login -- de.oddb.org -- 26.10.2007 -- hwyss@ywesee.com
+
+require 'oddb/html/state/global_predefine'
+require 'oddb/html/state/login'
+
+module ODDB
+  module Html
+    module State
+      module Drugs
+class Login < Global
+  include State::Login
+end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,32 @@
+#!/usr/bin/env ruby
+# Html::State::Drugs::Package -- de.oddb.org -- 11.12.2006 -- hwyss@ywesee.com
+
+require 'oddb/html/state/global_predefine'
+require 'oddb/html/view/drugs/package'
+
+module ODDB
+  module Html
+    module State
+      module Drugs
+class Package < Global
+  LIMIT = true
+  VIEW = View::Drugs::Package
+  def direct_event
+    direct_event = [:package]
+    if(code = @model.code(:cid, 'DE'))
+      direct_event.push([:pzn, code.value])
+    end
+    direct_event
+  end
+  def _package(code)
+    if(@model.code(:cid, 'DE') == code)
+      self
+    else
+      super
+    end
+  end
+end
+      end
+    end
+  end
+end

data/lib/oddb/html/state/drugs/patinfo.rb

@@ -0,0 +1,21 @@
+#!/usr/bin/env ruby
+# Html::State::Drugs::Patinfo -- de.oddb.org -- 30.10.2007 -- hwyss@ywesee.com
+
+require 'oddb/html/state/global_predefine'
+require 'oddb/html/view/drugs/patinfo'
+
+module ODDB
+  module Html
+    module State
+      module Drugs
+class Patinfo < Global
+  LIMIT = true
+  VIEW = View::Drugs::Patinfo
+  def direct_event
+    [:patinfo, [:uid, @model.uid]]
+  end
+end
+      end
+    end
+  end
+end

data/lib/oddb/html/state/drugs/products.rb

@@ -0,0 +1,51 @@
+#!/usr/bin/env ruby
+# Html::State::Drugs::Products -- de.oddb.org -- 07.12.2006 -- hwyss@ywesee.com
+
+require 'oddb/html/state/global_predefine'
+require 'oddb/html/util/sort'
+require 'oddb/html/view/drugs/products'
+
+module ODDB
+  module Html
+    module State
+      module Drugs
+class Products < Drugs::Global
+  include Util::Sort
+  DIRECT_EVENT = :products
+  LIMIT = true
+  VIEW = View::Drugs::Products
+  def init
+    sort_by(:product)
+    sort
+  end
+  def _products(query)
+    if(@model.query == query)
+      sort
+    else
+      super
+    end
+  end
+  def intervals
+    alpha, others = partitioned_keys(ODDB::Drugs::Product.name_keys(1))
+    keys = alpha.collect { |key| key.upcase }
+    keys.push('0-9') unless(others.empty?)
+    keys
+  end
+  def sort_proc(key)
+    case key
+    when :atc
+      Proc.new { |prod| 
+        prod.atcs.compact.uniq.collect { |atc| atc.code }.sort }
+    when :company
+      Proc.new { |prod| 
+        (multilingual = prod.send(key)) \
+          && multilingual.name.send(@session.language) || '' }
+    when :product
+      Proc.new { |prod| prod.name.send(@session.language) || '' }
+    end
+  end
+end
+      end
+    end
+  end
+end

data/lib/oddb/html/state/drugs/result.rb

@@ -0,0 +1,125 @@
+#!/usr/bin/env ruby
+# Html::State::Drugs::Result -- de.oddb.org -- 07.11.2006 -- hwyss@ywesee.com
+
+require 'oddb/html/state/global_predefine'
+require 'oddb/html/util/sort'
+require 'oddb/html/view/drugs/result'
+
+module ODDB
+  module Html
+    module State
+      module Drugs
+class Result < Drugs::Global
+  class Paginator
+    attr_accessor :page, :display
+    attr_reader :pages, :model
+    def initialize(model)
+      @model = model
+      @page = 0
+      @pages = [0]
+    end
+    def collect!(&block)
+      @model.collect!(&block)
+      self
+    end
+    def each(&block)
+      if(paged?)
+        paged_each(&block)
+      else
+        @model.each(&block)
+      end
+    end
+    def method_missing(key, *args, &block)
+      @model.send(key, *args, &block)
+    end
+    def next_page!
+      @page = @pages.size
+      @pages.push(@model.size)
+      @page
+    end
+    def overflow?
+      @pages.size > 1
+    end
+    def page_count
+      @pages.size
+    end
+    def paged?
+      @display == 'paged'
+    end
+    def paged_each(&block)
+      max = @pages.length - 1
+      range = if(@page >= max) 
+                @pages[max]..-1
+              else
+                @pages[@page]...@pages[@page.next]
+              end
+      @model[range].each(&block)
+    end
+    def show_details?
+      !overflow? || paged?
+    end
+  end
+  include Util::PackageSort
+  LIMIT = true
+  VIEW = View::Drugs::Result
+  def init
+    partition!
+    sort_by(:price_public, 0)
+    sort_by(:size, 0)
+    sort_by(:active_agents, [])
+    sort_by(:product, nil)
+    paginate
+    sort
+  end
+  def direct_event
+    [:search, :query, @model.query, :dstype, @model.dstype]
+  end
+  def paginate
+    if(@session.user_input(:page))
+      @session.set_cookie_input(:display, 'paged')
+    end
+    @model.display = @session.cookie_set_or_get(:display)
+    if(page = @session.user_input(:page))
+      @model.page = page
+    end
+  end
+  def partition!
+    atcs = {}
+    @model = Paginator.new(@model)
+    @model.total = @model.size
+    while(package = @model.shift)
+      code = (atc = package.atc) ? atc.code : 'X'
+      (atcs[code] ||= ODDB::Util::AnnotatedList.new(:atc => atc)).push(package)
+    end
+    count = 0
+    limit = @session.pagelength
+    atcs.sort.each { |code, array|
+      count += array.size
+      ## count > array.size: very large atc-classes may instantly get the count 
+      #                      to be > limit
+      if(count > array.size && count > limit)
+        @model.next_page!
+        count = array.size
+      end
+      @model.push(array)
+    }
+    @model.page = 0
+  end
+  def _search(query, dstype)
+    if(@model.query == query && @model.dstype == dstype)
+      paginate
+      sort
+    else
+      super
+    end
+  end
+  def _sort_by(model, reverse, &sorter)
+    model.collect! { |array|
+      super(array, reverse, &sorter)
+    }
+  end
+end
+      end
+    end
+  end
+end

data/lib/oddb/html/state/global.rb

@@ -0,0 +1,206 @@
+#!/usr/bin/env ruby
+# Html::State::Drugs::Global -- de.oddb.org -- 27.10.2006 -- hwyss@ywesee.com
+
+require 'oddb/html/state/global_predefine'
+require 'oddb/html/state/download'
+require 'oddb/html/state/drugs/atc_browser'
+require 'oddb/html/state/drugs/download_export'
+require 'oddb/html/state/drugs/init'
+require 'oddb/html/state/drugs/login'
+require 'oddb/html/state/limit'
+require 'oddb/html/state/register_download'
+require 'oddb/html/state/register_export'
+require 'oddb/html/state/register_poweruser'
+require 'oddb/html/state/paypal/checkout'
+require 'oddb/business/invoice'
+
+module ODDB
+  module Html
+    module State
+class Global < SBSM::State
+  include PayPal::Checkout
+  attr_reader :passed_turing_test
+  LIMIT = false
+  GLOBAL_MAP = {
+    :atc_browser => Drugs::AtcBrowser,
+    :downloads   => Drugs::Downloads,
+    :login       => Drugs::Login,
+  }
+  def compare
+    if(code = @session.user_input(:pzn))
+      _compare(code)
+    end
+  end
+  def grant_download
+    email = @session.user_input(:email)
+    file = @session.user_input(:file)
+    if email && file && user = ODDB::Business::GrantDownload.find_by_email(email)
+      unless user.expired?(@session.user_input(:file))
+        _download(@session.user_input(:file))
+      end
+    end
+  end
+  def _download(file)
+    path = File.join ODDB.config.export_dir, file
+    if File.exist?(path)
+      Download.new(@session, path)
+    elsif match = /(.+)_(.+).csv/.match(file)
+      packages = _search_local match[1].tr('-', ' '), match[2]
+      packages.filename = file
+      Drugs::DownloadExport.new(@session, packages)
+    end
+  end
+  def explain_ddd_price
+    if((code = @session.user_input(:pzn)) \
+       && (idx = @session.user_input(:offset)))
+      _explain_ddd_price(code, idx.to_i)
+    end
+  end
+  def explain_price
+    if(code = @session.user_input(:pzn))
+      _explain_price(code)
+    end
+  end
+  def fachinfo
+    if(uid = @session.user_input(:uid))
+      _fachinfo(uid)
+    end
+  end
+  def feedback
+    if(code = @session.user_input(:pzn) || @session.user_input(:uid))
+      _feedback(code)
+    end
+  end
+  def home
+    State::Drugs::Init.new @session, nil
+  end
+  def limited?
+    self.class.const_get(:LIMIT)
+  end
+  def limit_state
+    State::Limit.new(@session, nil)
+  end
+  def logout
+    @session.logout
+    home
+  end
+  def package
+    if(code = @session.user_input(:pzn))
+      _package(code)
+    end
+  end
+  def package_infos
+    if(code = @session.user_input(:pzn))
+      _package_infos(code)
+    end
+  end
+  def partitioned_keys(keys)
+    keys.partition { |key|
+      /^[a-z]$/.match(key)
+    }
+  end
+  def patinfo
+    if(uid = @session.user_input(:uid))
+      _patinfo(uid)
+    end
+  end
+  def proceed_download
+    keys = [:downloads, :months, :compression]
+    input = user_input keys, keys
+    compression = input[:compression][/[^_]+$/]
+    unless error?
+      invoice = ODDB::Business::Invoice.new
+      input[:downloads].each do |filename, status|
+        if status == '1'
+          months = input[:months][filename]
+          prices = ODDB.config.prices["org.oddb.de.download.#{months}"] || {}
+          price = prices[filename].to_f / months.to_i
+          item = invoice.add :download, filename, months, '', price,
+                             :compression => compression
+          unless price > 0
+            @errors.store "months[#{filename}]",
+                          create_error(:e_empty_result, :months, '0')
+          end
+        end
+      end
+    end
+    if error?
+      self
+    else
+      State::RegisterDownload.new(@session, invoice)
+    end
+  end
+  def proceed_export
+    query = @session.persistent_user_input(:query)
+    dstype = @session.persistent_user_input(:dstype) || ODDB.config.default_dstype
+    result = _search_local(query, dstype)
+    filename = sprintf('%s_%s.csv', query.tr(' ', '-'), dstype)
+    if @session.allowed?('download', "#{ODDB.config.auth_domain}.#{filename}")
+      result.filename = filename
+      Drugs::DownloadExport.new @session, result
+    else
+      lines = result.size
+      price = ODDB.config.prices["org.oddb.de.export.csv"].to_f
+      unless(lines > 0 && price > 0)
+        @errors.store :days, create_error(:e_empty_result, :query, query)
+        self
+      else
+        invoice = ODDB::Business::Invoice.new
+        item = invoice.add(:export, filename, lines, '', price)
+        State::RegisterExport.new(@session, invoice)
+      end
+    end
+  end
+  def proceed_poweruser
+    days = @session.user_input(:days).to_i
+    total = ODDB.config.prices["org.oddb.de.view.#{days}"].to_f 
+    unless(days > 0 && total > 0)
+      @errors.store :days, create_error(:e_missing_days, :days, 0)
+      self
+    else
+      invoice = ODDB::Business::Invoice.new
+      item = invoice.add(:poweruser, "unlimited access", days, 
+                         @session.lookandfeel.lookup(:days), total / days)
+      State::RegisterPowerUser.new(@session, invoice)
+    end
+=begin
+      if(usr = @session.user_input(:pointer))
+        State::User::RenewPowerUser.new(@session, invoice)
+      else
+        State::User::RegisterPowerUser.new(@session, invoice)
+      end
+    end
+=end
+  end
+  def product
+    if(uid = @session.user_input(:uid))
+      _product(uid)
+    end
+  end
+  def products
+    _products(@session.persistent_user_input(:range))
+  end
+  def remote_infos
+    if(id = @session.user_input(:uid))
+      _remote_infos(id)
+    end
+  end
+  def sequence
+    if(uid = @session.user_input(:uid))
+      _sequence(uid)
+    end
+  end
+  def navigation
+    []
+  end
+  def method_missing(mth, *args)
+    if(mth.to_s[0] == ?_)
+      self
+    else
+      super
+    end
+  end
+end
+    end
+  end
+end