ramaze.ch.oddb.org 1.0.0

data/data/fulltext/redist/german_stem.h

@@ -0,0 +1,16 @@
+
+/* This file was generated automatically by the Snowball to ANSI C compiler */
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern struct SN_env * german_create_env(void);
+extern void german_close_env(struct SN_env * z);
+
+extern int german_stem(struct SN_env * z);
+
+#ifdef __cplusplus
+}
+#endif
+

data/lib/fixes/ruby19.rb

@@ -0,0 +1,21 @@
+#!/usr/bin/env ruby
+# Fixes::Ruby19 -- de.oddb.org -- 19.06.2009 -- hwyss@ywesee.com
+
+begin
+  require 'encoding/character/utf-8'
+rescue LoadError
+  begin
+    class Encoding
+      class Character
+        class UTF8 < String
+          module Methods
+          end
+        end
+      end
+    end
+    def u str
+      str
+    end
+  rescue TypeError # Ruby 1.8
+  end
+end

data/lib/fixes/selenium.rb

@@ -0,0 +1,20 @@
+#!/usr/bin/env ruby
+
+require 'selenium/client'
+
+module Selenium
+  module Client
+    module Protocol
+      def remote_control_command(verb, args=[])
+        timeout(@default_timeout_in_seconds) do
+          status, response = http_post(http_request_for(verb, args))
+          if response && encoding = Encoding.default_external
+            response.force_encoding encoding
+          end
+          raise Selenium::CommandError, response unless status == "OK"          
+          response
+        end
+      end
+    end
+  end
+end

data/lib/fixes/singular.rb

@@ -0,0 +1,8 @@
+#!/usr/bin/env ruby
+# Fix for String#singular -- de.oddb.org -- 20.11.2006 -- hwyss@ywesee.com
+
+require 'facet/string/singular'
+
+class String
+  inflection_rule '', 'e', 'es'
+end

data/lib/fixes/yaml.rb

@@ -0,0 +1,13 @@
+#!/usr/bin/env ruby
+# Fix for Yaml -- de.oddb.org -- 01.11.2007 -- hwyss@ywesee.com
+
+require 'yaml'
+
+## FIXME: the following works around Character::Encoding::UTF8 hanging when 
+#         yaml's String#is_binary_data? calls self.count("\x00")
+class String
+  def is_binary_data?
+    ( self.count( "^ -~", "^\r\n" ) / self.size > 0.3 \
+     || self.include?( "\x00" ) ) unless empty?
+  end
+end

data/lib/oddb.rb

@@ -0,0 +1,11 @@
+#!/usr/bin/env ruby
+# ODDB -- de.oddb.org -- 27.10.2006 -- hwyss@ywesee.com
+
+module ODDB
+  VERSION = '1.0.0'
+#    File.read(File.expand_path('../.git/refs/heads/master',
+#                               File.dirname(__FILE__)))
+  class << self
+    attr_accessor :auth, :config, :logger, :persistence, :server, :exporter
+  end
+end

data/lib/oddb/business/company.rb

@@ -0,0 +1,18 @@
+#!/usr/bin/env ruby
+# ODDB::Business::Company -- de.oddb.org -- 22.11.2006 -- hwyss@ywesee.com
+
+require 'oddb/model'
+
+module ODDB
+  module Business
+    class Company < Model
+      has_many :products, delegates(:packages)
+      multilingual :name
+      def packages
+        products.inject([]) { |memo, prod|
+          memo.concat(prod.packages)
+        }
+      end
+    end
+  end
+end

data/lib/oddb/business/invoice.rb

@@ -0,0 +1,75 @@
+#!/usr/bin/env ruby
+# Util::Invoice -- de.oddb.org -- 21.01.2008 -- hwyss@ywesee.com
+
+require 'oddb/model'
+
+module ODDB
+  module Business
+    class Invoice < Model
+      has_many :items
+      attr_accessor :yus_name, :ydim_id, :status, :ipn, :currency
+      attr_reader :time
+      class Item
+        attr_reader :type, :text, :quantity, :price, :vat, :time
+        attr_accessor :expiry_time
+        def initialize(type, text, quantity, unit, price)
+          @type, @text, @quantity, @unit, @price \
+            = type, text, quantity.to_i, unit.to_s, price.to_f
+          @time = Time.now
+        end
+        def expired?
+          @expiry_time && @expiry_time < Time.now
+        end
+        def total_brutto
+          total_netto + vat
+        end
+        def total_netto
+          @price * @quantity
+        end
+        def vat
+          total_netto * ODDB.config.vat / 100
+        end
+        def ydim_data
+          {
+            :expiry_time	=>	@expiry_time,
+            :price				=>	@price,
+            :quantity			=>	@quantity,
+            :text					=>	@text,
+            :time					=>	@time,
+            :unit					=>	@unit,
+          }
+        end
+      end
+      def initialize
+        @items = []
+        @salt = generate_salt
+        @time = Time.now
+        @yus_name = ''
+        @currency = 'EUR'
+      end
+      def add(*args)
+        add_item Item.new(*args)
+      end
+      def id
+        @id ||= Digest::MD5.hexdigest @time.strftime("%c") << @salt << @yus_name
+      end
+      def paid_for?(text)
+        @status == 'completed' && @items.any? { |item| item.text == text }
+      end
+      def total_brutto
+        @items.inject(Util::Money.new(0)) { |memo, item| 
+          memo + item.total_brutto
+        }
+      end
+      def types
+        @items.collect { |item| item.type }.compact.uniq
+      end
+      private
+      def generate_salt
+        salt = '' 
+        8.times { salt << rand(255).chr }
+        salt
+      end
+    end
+  end
+end

data/lib/oddb/business/price.rb

@@ -0,0 +1,60 @@
+#!/usr/bin/env ruby
+# Business::Price -- ch.oddb.org -- 24.07.2009 -- hwyss@ywesee.com
+
+module ODDB
+  module Business
+class Price
+  include Comparable
+  attr_reader :country, :type, :values
+  def initialize type=nil, country=nil, amount=nil
+    @country = country.to_s.upcase
+    @type = type.to_s.downcase
+    @values = []
+    self.value = amount if amount
+  end
+  def at time=Time.now
+    @values.find do |price| price.valid_from <= time end
+  end
+  def country=(country)
+    @country = country.to_s.upcase
+  end
+  def current
+    at Time.now
+  end
+  def is_for? type, country
+    @type == type.to_s.downcase && @country == country.to_s.upcase
+  end
+  def method_missing *args, &block
+    current.send *args, &block
+  end
+  def to_f
+    current.to_f
+  end
+  def to_s
+    current.to_s
+  end
+  def type=(type)
+    @type = type.to_s.downcase
+  end
+  def value=(args)
+    money, valid_from, _ = args
+    if money.is_a?(Numeric)
+      money = Util::Money.new money.to_f
+      if valid_from.is_a?(Time)
+        money.valid_from = valid_from
+      end
+    elsif !money.is_a?(Util::Money)
+      raise ArgumentError,
+        "Cannot set the value of a Price to '#{money}'. Only Numeric or Money are allowed"
+    end
+    cur = at(money.valid_from)
+    return cur if cur == money
+    @values = @values.push(money).sort_by(&:valid_from).reverse
+    money
+  end
+  def <=>(other)
+    current <=> other
+  end
+end
+  end
+end

data/lib/oddb/config.rb

@@ -0,0 +1,73 @@
+#!/usr/bin/env ruby
+# @config -- de.oddb.org -- 08.09.2006 -- hwyss@ywesee.com
+
+require 'rclconf'
+require 'oddb'
+
+module ODDB
+  oddb_dir = File.expand_path('..', ENV['DOCUMENT_ROOT'] || './doc')
+  default_dir = File.expand_path('etc', oddb_dir)
+  default_config_files = [
+    File.join(default_dir, 'oddb.yml'),
+    '/etc/oddb/oddb.yml',
+  ]
+  defaults = {
+    'admins'              => [],
+    'auth_domain'         => 'org.oddb.de',
+    'auth_server'         => 'drbssl://localhost:9997',
+    'config'			        => default_config_files,
+    'country'             => 'CH',
+    'credentials'         => {},
+    'currency_rates'      => 'druby://localhost:10999',
+    'data_dir'            => File.expand_path('data', oddb_dir),
+    'db_name'             => 'oddb',
+    'db_user'             => 'oddb',
+    'db_auth'             => 'oddb',
+    'db_backend'          => :psql,
+    'debug_recipients'    => [],
+    'dojo_debug'          => false,
+    'default_dstype'      => 'compare',
+    'export_hour'         => 4,
+    'invoice_server'      => 'druby://localhost:12375',
+    'pharmacy_percentage' => 3,
+    'pharmacy_premium'    => 8.1,
+    'http_server'         => 'http://localhost',
+    'log_file'            => STDERR,
+    'log_file_export'     => STDERR,
+    'log_level'           => 'INFO',
+    'log_level_export'    => 'INFO',
+    'mail_charset'        => 'utf8',
+    'mail_from'           => 'update@oddb.org',
+    'mail_invoice_from'   => 'ch.ODDB.org" ipn@oddb.org',
+    'mail_invoice_smtp'   => 'ipn@oddb.org',
+    'oddb_dir'            => oddb_dir,
+    'query_limit'         => 5,
+    'query_limit_phase'   => 24 * 60 * 60,
+    'payment_period'      => 30,
+    'paypal_server'       => 'www.paypal.com',
+    'paypal_receiver'     => nil,
+    'persistence'         => 'odba',
+    'prices'              => { 
+      'org.oddb.de.export.cvs'  => 0.16,
+      'org.oddb.de.view.365'    => 400,
+      'org.oddb.de.view.30'     =>  50,
+      'org.oddb.de.view.1'      =>   5,
+    },
+    'remote_databases'    => [],
+    'run_exporter'        => true,
+    'run_updater'         => true,
+    'server_name'         => 'ch.oddb.org',
+    'server_url'          => 'druby://localhost:11000',
+    'server_url_export'   => 'druby://localhost:11001',
+    'session_timeout'     => 3600,
+    'smtp_from'           => 'update@oddb.org',
+    'smtp_server'         => 'localhost',
+    'update_hour'         => 2,
+    'var'                 => File.expand_path('var', oddb_dir),
+    'vat'                 => 19,
+  }
+
+  config = RCLConf::RCLConf.new(ARGV, defaults)
+  config.load(config.config)
+  @config = config
+end

data/lib/oddb/drugs.rb

@@ -0,0 +1,16 @@
+#!/usr/bin/env ruby
+# Drugs -- de.oddb.org -- 21.11.2006 -- hwyss@ywesee.com
+
+require "oddb/drugs/active_agent"
+require "oddb/drugs/atc"
+require "oddb/drugs/composition"
+require "oddb/drugs/ddd"
+require "oddb/drugs/dose"
+require "oddb/drugs/galenic_form"
+require "oddb/drugs/package"
+require "oddb/drugs/part"
+require "oddb/drugs/product"
+require "oddb/drugs/sequence"
+require "oddb/drugs/substance"
+require "oddb/drugs/substance_group"
+require "oddb/drugs/unit"

data/lib/oddb/drugs/active_agent.rb

@@ -0,0 +1,37 @@
+#!/usr/bin/env ruby
+# Drugs::ActiveAgent -- de.oddb.org -- 07.11.2006 -- hwyss@ywesee.com
+
+require 'oddb/model'
+require 'oddb/drugs/dose'
+
+module ODDB
+  module Drugs
+    class ActiveAgent < Model
+      include Comparable
+      belongs_to :substance
+      belongs_to :composition, delegates(:packages)
+      attr_accessor :dose, :chemical_equivalence
+      def initialize(substance, dose, unit="mg")
+        @substance = substance
+        if(dose.is_a?(Dose))
+          @dose = dose
+        else
+          @dose = Dose.new(dose, unit)
+        end
+      end
+      def to_s(language=:de)
+        [@substance.name.send(language), @dose].join(' ')
+      end
+      def <=>(other)
+        [@substance, @dose] <=> [other.substance, other.dose]
+      end
+      def ==(other)
+        other.is_a?(ActiveAgent) \
+          && ([@substance, @dose] == [other.substance, other.dose] \
+              || @chemical_equivalence == other \
+              || ((other = other.chemical_equivalence) && self == other)) \
+          || false
+      end
+    end
+  end
+end

data/lib/oddb/drugs/atc.rb

@@ -0,0 +1,53 @@
+#!/usr/bin/env ruby
+# Drugs::Atc -- de.oddb.org -- 17.11.2006 -- hwyss@ywesee.com
+
+require 'oddb/model'
+
+module ODDB
+  module Drugs
+    class Atc < Model
+      has_many :ddds, on_delete(:cascade)
+      has_many :sequences, delegates(:packages)
+      attr_reader :code
+      multilingual :name
+      multilingual :guidelines
+      multilingual :ddd_guidelines
+      def initialize(code)
+        @code = code
+      end
+      def interesting?
+        !(ddds.empty? && guidelines.empty? && ddd_guidelines.empty?)
+      end
+      def level
+        case len = @code.length
+        when 7
+          5
+        when 1
+          len
+        else
+          len - 1
+        end
+      end
+      def parent
+        Atc.find_by_code(parent_code)
+      end
+      def parent_code
+        case level
+        when 2
+          @code[0,1]
+        when 3..5
+          @code[0,level]
+        end
+      end
+      def products
+        sequences.collect { |sequence| sequence.product }.uniq
+      end
+      def to_s
+        @code.to_s
+      end
+      def <=>(other)
+        @code <=> other.code
+      end
+    end
+  end
+end

data/lib/oddb/drugs/composition.rb

@@ -0,0 +1,41 @@
+#!/usr/bin/env ruby
+# Drugs::Composition -- de.oddb.org -- 01.09.2006 -- hwyss@ywesee.com
+
+require 'oddb/model'
+require 'oddb/drugs/dose'
+
+module ODDB
+  module Drugs
+    class Composition < Model
+      attr_accessor :galenic_form, :equivalence_factor
+      belongs_to :sequence, delegates(:packages)
+      has_many :active_agents, on_delete(:cascade)
+      has_many :parts
+      def active_agent(substance)
+        active_agents.find { |agent| agent.substance == substance }
+      end
+      def doses
+        active_agents.collect { |agent| agent.dose }
+      end
+      def include?(substance, dose, unit=nil)
+        unless(dose.is_a?(Drugs::Dose))
+          dose = Drugs::Dose.new(dose, unit)
+        end
+        active_agents.any? { |act|
+          act.substance == substance && act.dose == dose
+        }
+      end
+      def substances
+        active_agents.collect { |agent| agent.substance }
+      end
+      def to_s(language=:de)
+        active_agents.collect { |agent| agent.to_s(language) }.join(', ')
+      end
+      def ==(other)
+        other.is_a?(Composition) \
+          && @galenic_form == other.galenic_form \
+          && active_agents.sort == other.active_agents.sort
+      end
+    end
+  end
+end