ramaze.ch.oddb.org 1.0.0

data/lib/oddb/html/state/drugs/ajax/explain_ddd_price.rb

@@ -0,0 +1,19 @@
+#!/usr/bin/env ruby
+# Html::State::Drugs::Ajax::ExplainDddPrice -- de.oddb.org -- 07.03.2007 -- hwyss@ywesee.com
+
+require 'oddb/html/view/drugs/ajax/explain_ddd_price'
+require 'oddb/html/state/drugs/ajax/global'
+
+module ODDB
+  module Html
+    module State
+      module Drugs
+        module Ajax
+class ExplainDddPrice < Global
+  VIEW = View::Drugs::Ajax::ExplainDddPrice
+end
+        end
+      end
+    end
+  end
+end

data/lib/oddb/html/state/drugs/ajax/explain_price.rb

@@ -0,0 +1,19 @@
+#!/usr/bin/env ruby
+# Html::State::Drugs::Ajax::ExplainPrice -- de.oddb.org -- 07.03.2007 -- hwyss@ywesee.com
+
+require 'oddb/html/view/drugs/ajax/explain_price'
+require 'oddb/html/state/drugs/ajax/global'
+
+module ODDB
+  module Html
+    module State
+      module Drugs
+        module Ajax
+class ExplainPrice < Global
+  VIEW = View::Drugs::Ajax::ExplainPrice
+end
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,18 @@
+#!/usr/bin/env ruby
+# Html::State::Drugs::Ajax::Global -- de.oddb.org -- 07.03.2007 -- hwyss@ywesee.com
+
+require 'oddb/html/state/drugs/global'
+
+module ODDB
+  module Html
+    module State
+      module Drugs
+        module Ajax
+class Global < Drugs::Global
+  VOLATILE = true
+end
+        end
+      end
+    end
+  end
+end

data/lib/oddb/html/state/drugs/ajax/package_infos.rb

@@ -0,0 +1,19 @@
+#!/usr/bin/env ruby
+# Html::State::Drugs::Ajax::PackageInfos -- de.oddb.org -- 05.03.2007 -- hwyss@ywesee.com
+
+require 'oddb/html/view/drugs/ajax/package_infos'
+require 'oddb/html/state/drugs/ajax/global'
+
+module ODDB
+  module Html
+    module State
+      module Drugs
+        module Ajax
+class PackageInfos < Global
+  VIEW = View::Drugs::Ajax::PackageInfos
+end
+        end
+      end
+    end
+  end
+end

data/lib/oddb/html/state/drugs/ajax/remote_infos.rb

@@ -0,0 +1,19 @@
+#!/usr/bin/env ruby
+# Drugs::Ajax::RemoteInfos -- de.oddb.org -- 06.03.2007 -- hwyss@ywesee.com
+
+require 'oddb/html/view/drugs/ajax/remote_infos'
+require 'oddb/html/state/drugs/ajax/global'
+
+module ODDB
+  module Html
+    module State
+      module Drugs
+        module Ajax
+class RemoteInfos < Global
+  VIEW = View::Drugs::Ajax::RemoteInfos
+end
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,39 @@
+#!/usr/bin/env ruby
+# Html::State::Drugs::AtcBrowser -- de.oddb.org -- 13.12.2007 -- hwyss@ywesee.com
+
+require 'oddb/html/state/global_predefine'
+require 'oddb/html/view/drugs/atc_browser'
+
+module ODDB
+  module Html
+    module State
+      module Drugs
+class AtcBrowser < Drugs::Global
+  DIRECT_EVENT = :atc_browser
+  LIMIT = true
+  VIEW = View::Drugs::AtcBrowser
+  def init
+    @model = ODDB::Drugs::Atc.search_by_level_and_code(1, '')
+    if(code = @session.user_input(:code))
+      parent = ODDB::Drugs::Atc.find_by_code(code)
+      level = parent.level.next
+      children = ODDB::Drugs::Atc.search_by_level_and_code(level, parent.code)
+      while(level < 5 && children.size == 1)
+        child = children.first
+        level = level.next
+        children = ODDB::Drugs::Atc.search_by_level_and_code(level, child.code)
+        @model.concat children
+      end 
+      parent.level.next.downto(2) { |level|
+        @model.concat ODDB::Drugs::Atc.search_by_level_and_code(level, 
+                                                                parent.code)
+        parent = parent.parent
+      }
+    end
+    @model.sort!
+  end
+end
+      end
+    end
+  end
+end

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

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

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

@@ -0,0 +1,52 @@
+#!/usr/bin/env ruby
+# Html::State::Drugs::Comparison -- de.oddb.org -- 14.02.2007 -- hwyss@ywesee.com
+
+require 'oddb/util/comparison'
+require 'oddb/html/state/global_predefine'
+require 'oddb/html/util/sort'
+require 'oddb/html/view/drugs/compare'
+
+module ODDB
+  module Html
+    module State
+      module Drugs
+class Compare < Global
+  include Util::PackageSort
+  LIMIT = true
+  VIEW = View::Drugs::Compare
+  def init
+    original = @model.origin
+    @model.collect! { |package| 
+      ODDB::Util::Comparison.new(package, original) }
+    sort_by(:product)
+    sort_by(:difference)
+    sort
+  end
+  def _compare(code)
+    if(code == @model.query)
+      sort
+    else
+      super
+    end
+  end
+  def direct_event
+    direct_event = [:compare]
+    if(code = @model.query)
+      direct_event.push(:query, code)
+    end
+    direct_event
+  end
+end
+class CompareRemote < Compare
+  def direct_event
+    direct_event = [:compare_remote]
+    if((origin = @model.origin) && (uid = origin.uid))
+      direct_event.push(:uid, uid)
+    end
+    direct_event
+  end
+end
+      end
+    end
+  end
+end

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

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

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

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

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

@@ -0,0 +1,94 @@
+#!/usr/bin/env ruby
+# Html::State::Drugs::Feedback -- de.oddb.org -- 06.12.2007 -- hwyss@ywesee.com
+
+require 'delegate'
+require 'oddb/html/state/global_predefine'
+require 'oddb/html/util/need_all_input'
+require 'oddb/html/view/drugs/feedback'
+require 'oddb/util/feedback'
+
+module ODDB
+  module Html
+    module State
+      module Drugs
+class Feedback < Global
+  include Util::NeedAllInput
+  class Feedbackable < SimpleDelegator
+    INDEX_STEP = 10
+    attr_accessor :index
+    attr_reader :current, :item
+    def initialize(item)
+      @item = item
+      @index = 0
+      @current = ODDB::Util::Feedback.new
+      super
+    end
+    def created?
+      @item.feedbacks.include? @current
+    end
+  end
+  LIMIT = true
+  VIEW = View::Drugs::Feedback
+  attr_reader :passed_turing_test
+  def init
+    ## disable captcha
+    @passed_turing_test = true
+    ##
+    @model = Feedbackable.new(@model)
+    super
+  end
+  def direct_event
+    direct_event = [:feedback]
+    if(code = @model.code(:cid, ODDB.config.country))
+      direct_event.push([:cid, code.value])
+    end
+    direct_event
+  end
+  def _feedback(code)
+    if(@model.code(:cid, ODDB.config.country) == code)
+      self
+    else
+      super
+    end
+  end
+  def update
+    mandatory = [:name, :email, :email_public, :item_good_experience, 
+      :item_recommended, :item_good_impression, :item_helps]
+    unless @passed_turing_test
+      mandatory.push :captcha
+    end
+    keys = mandatory + [:message]
+    hash = user_input(keys, mandatory)
+    if(@passed_turing_test)
+      # do nothing
+    elsif((candidates = hash[:captcha]) && candidates.any? { |key, word| 
+      @session.lookandfeel.captcha.valid_answer? key, word })
+      @passed_turing_test = true
+    else
+      @errors.store(:captcha, create_error('e_failed_turing_test', 
+        :captcha, nil))
+    end
+    unless(error?)
+      feedback = @model.current
+      info_key = (@model.created?) ? :feedback_changed : :feedback_saved
+      
+      hash.each { |key, value|
+        writer = "#{key}="
+        if(feedback.respond_to? writer)
+          feedback.send writer, value
+        end
+      }
+      feedback.time = Time.now
+      feedback.item = @model.item
+      feedback.save
+
+      @session.update_feedback_rss_feed
+      @infos = [info_key]
+    end
+    self
+  end
+end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,266 @@
+#!/usr/bin/env ruby
+# Html::State::Drugs::Global -- de.oddb.org -- 27.10.2006 -- hwyss@ywesee.com
+
+require 'oddb/business/company'
+require 'oddb/drugs/package'
+require 'oddb/remote/drugs/package'
+require 'oddb/html/state/global'
+require 'oddb/html/state/drugs/ajax/explain_price'
+require 'oddb/html/state/drugs/ajax/explain_ddd_price'
+require 'oddb/html/state/drugs/ajax/package_infos'
+require 'oddb/html/state/drugs/ajax/remote_infos'
+require 'oddb/html/state/drugs/atc_guidelines'
+require 'oddb/html/state/drugs/compare'
+require 'oddb/html/state/drugs/init'
+require 'oddb/html/state/drugs/login'
+require 'oddb/html/state/drugs/fachinfo'
+require 'oddb/html/state/drugs/feedback'
+require 'oddb/html/state/drugs/package'
+require 'oddb/html/state/drugs/patinfo'
+require 'oddb/html/state/drugs/products'
+require 'oddb/html/state/drugs/result'
+require 'oddb/html/util/know_it_all'
+require 'oddb/util/annotated_list'
+require 'ostruct'
+
+module ODDB
+  module Html
+    module State
+      module Drugs
+module Events
+  def compare_remote
+    if((uid = @session.user_input(:uid)) \
+       && (package = _remote_package(uid)))
+      result = ODDB::Util::AnnotatedList.new(package.comparables)
+      result.origin = package
+      result.query = uid
+      CompareRemote.new(@session, result)
+    end
+  end
+  def _compare(code)
+    if(package = _package_by_code(code))
+      result = ODDB::Util::AnnotatedList.new(package.comparables)
+      if(@session.lookandfeel.enabled?(:remote_databases, false))
+        result.concat(_remote_comparables(package))
+      end
+      result.origin = package
+      result.query = code
+      Compare.new(@session, result)
+    end
+  end
+  def _complete(result)
+    atcs = {}
+    result.dup.each { |package|
+      if((atc = package.atc) && !atcs[atc])
+        atcs.store(atc, true)
+        result.concat(atc.packages)
+      end
+    }
+    result.uniq!
+  end
+  def ddd
+    if((code = @session.user_input(:code)) \
+       && (atc = ODDB::Drugs::Atc.find_by_code(code)))
+      AtcGuidelines.new(@session, atc)
+    end
+  end
+  def _explain_ddd_price(code, idx)
+    if((package = _package_by_code(code)) \
+       && (ddd = package.ddds.at(idx)))
+      Ajax::ExplainDddPrice.new(@session, 
+                                :ddd => ddd, :package => package)
+    end
+  end
+  def _explain_price(code)
+    if(package = _package_by_code(code))
+      Ajax::ExplainPrice.new(@session, package.price(:public))
+    end
+  end
+  def _fachinfo(uid)
+    if(sequence = ODDB::Drugs::Sequence.find_by_uid(uid))
+      Fachinfo.new(@session, sequence)
+    end
+  end
+  def _feedback(code)
+    if(package = _package_by_code(code))
+      Feedback.new(@session, package)
+    end
+  end
+  def limited?(*args)
+    super && !@session.allowed?('view', ODDB.config.auth_domain)
+  end
+  def navigation
+    [:products, :atc_browser].concat(super)
+  end
+  def _package(code)
+    if(package = _package_by_code(code))
+      Package.new(@session, package)
+    end
+  end
+  def _package_by_code(code)
+    ODDB::Drugs::Package.find_by_code(:type => 'cid', 
+                                      :value   => code, 
+                                      :country => ODDB.config.country)
+  end
+  def _package_infos(code)
+    if(package = _package_by_code(code))
+      Ajax::PackageInfos.new(@session, package)
+    end
+  end
+  def _patinfo(uid)
+    if(sequence = ODDB::Drugs::Sequence.find_by_uid(uid))
+      Patinfo.new(@session, sequence)
+    end
+  end
+  def _products(query)
+    result = ODDB::Util::AnnotatedList.new
+    result.query = query
+    if(query)
+      if(query == '0-9')
+        alpha, others = partitioned_keys(ODDB::Drugs::Product.name_keys(1))
+        others.each { |key|
+          result.concat(ODDB::Drugs::Product.search_by_name(key))
+        }
+      else
+        result.concat(ODDB::Drugs::Product.search_by_name(query.downcase))
+      end
+    end
+    Products.new(@session, result)
+  end
+  def _remote(uri, &block)
+    block.call DRbObject.new(nil, uri)
+  rescue StandardError => e
+    warn e.message 
+  end
+  def _remote_comparables(package)
+    if(atc = package.atc)
+      _remote_packages { |remote| 
+        remote.remote_comparables(ODBA::DRbWrapper.new(package))
+      }
+    end
+  end
+  def _remote_infos(uid)
+    if(pac = _remote_package(uid))
+      Ajax::RemoteInfos.new(@session, pac)
+    end
+  end
+  def _remote_package(id)
+    source, ref = id.split('.', 2)
+    uri = ODDB.config.remote_databases.at(source.to_i)
+    if(pac = DRbObject._load(Marshal.dump([uri, ref])))
+      rate = _remote(uri) { |remote| 
+        remote.get_currency_rate("EUR") }
+      Remote::Drugs::Package.new(source, pac, rate, _tax_factor)
+    end
+  end
+  def _remote_packages(&block)
+    result = []
+    ODDB.config.remote_databases.each_with_index { |uri, source|
+      _remote(uri) { |remote|
+        rate = remote.get_currency_rate("EUR")
+        block.call(remote).each { |pac|
+          result.push Remote::Drugs::Package.new(source, pac, rate, 
+                                                 _tax_factor)
+        }
+      }
+    }
+    result
+  end
+  def _tax_factor
+    @session.lookandfeel.tax_factor
+  end
+  def search
+    _search(@session.persistent_user_input(:query),
+            @session.persistent_user_input(:dstype) || ODDB.config.default_dstype)
+  end
+  def _search(query, dstype)
+    result = _search_local(query, dstype)
+    if(@session.lookandfeel.enabled?(:remote_databases, false))
+      result.concat(_search_remote(query))
+    end
+    Result.new(@session, result)
+  end
+  def _search_append_products(query, result)
+    table = {}
+    result.each do |package|
+      table.store package.product.uid, true
+    end
+    products = ODDB::Drugs::Product.search_by_name(query)
+    products.reject! do |prod| table[prod.uid] end
+    products.collect! do |prod|
+      Util::KnowItAll.new prod, :active_agents => [], :parts => [], :ddds => []
+    end
+    result.concat products
+  end
+  def _search_append_sequences(query, result)
+    table = {}
+    result.each do |package|
+      table.store package.sequence.uid, true
+    end
+    sequences = ODDB::Drugs::Sequence.search_by_product(query)
+    sequences.reject! do |seq| table[seq.uid] end
+    sequences.collect! do |seq|
+      parts = seq.compositions.collect do |comp|
+        Util::KnowItAll.new nil, :unit => comp.galenic_form
+      end
+      Util::KnowItAll.new seq, :active_agents => [], :parts => parts,
+                               :ddds => [], :sequence => seq
+    end
+    result.concat sequences
+  end
+  def _search_by(key, query, result)
+    result.concat ODDB::Drugs::Package.send("search_by_#{key}", query)
+  end
+  def _search_local(query, dstype)
+    result = ODDB::Util::AnnotatedList.new
+    result.query = query
+    result.dstype = dstype || ODDB.config.default_dstype
+    if(query.length < 3)
+      result.error = :e_query_short
+    else
+      case dstype
+      when 'company'
+        _search_by(:company, query, result)
+      when 'substance'
+        _search_by(:substance, query, result)
+      when 'compare'
+        _search_by(:atc, query, result)
+        _search_by(:company, query, result) if result.empty?
+        _search_by(:substance, query, result) if result.empty?
+        _complete(_search_by(:name, query, result)) if result.empty?
+        _complete(_search_by(:product, query, result)) if result.empty?
+      when 'indication'
+        seqs = ODDB::Drugs::Sequence.search_by_fachinfo_indications_de(query)
+        seqs.each { |seq| result.concat seq.packages }
+      else
+        _search_by(:name, query, result)
+        _search_by(:product, query, result) if result.empty?
+        _search_append_sequences(query, result)
+        _search_append_products(query, result)
+      end
+    end
+    result
+  end
+  def _search_remote(query)
+    _remote_packages { |remote| remote.remote_packages(query) }
+  end
+end
+class Global < State::Global
+  class << self
+    def transparent_login(*events)
+      events.each { |event|
+        define_method(event) {
+          state = trigger(:login)
+          state.desired_input = @session.valid_input.dup
+          state
+        }
+      }
+    end
+  end
+  include Events
+  transparent_login :_product, :_sequence
+end
+      end
+    end
+  end
+end