ramaze.ch.oddb.org 1.0.0

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

@@ -0,0 +1,237 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+# Html::View::Drugs::Admin::Package -- de.oddb.org -- 29.10.2007 -- hwyss@ywesee.com
+
+require 'htmlgrid/errormessage'
+require 'htmlgrid/inputcheckbox'
+require 'htmlgrid/select'
+require 'oddb/html/view/drugs/package'
+
+module ODDB
+  module Html
+    module View
+      module Drugs
+        module Admin
+class CompositionSelect < HtmlGrid::AbstractSelect
+  def selection(context)
+    lang = @session.language
+    @selected ||= (comp = @model.composition) && comp.to_s(lang)
+    res = []
+    @model.sequence.compositions.each_with_index { |composition, idx|
+      comp = composition.to_s(lang)
+      attribs = { "value" => idx }
+      attribs.store("selected", 1) if(comp == selected)
+      res << context.option(attribs) { comp }
+    }
+    res
+  end
+end
+class SequenceSelect < HtmlGrid::AbstractSelect
+  def compositions(model)
+    lang = @session.language
+    res = model.compositions.collect { |comp|
+      comp.active_agents.collect { |act|
+        [act.substance.name.send(lang), act.dose].join(' ')
+      }.join(', ')
+    }.join(' + ')
+    if(res.length > 72)
+      res[0,69] << '...'
+    else
+      res
+    end
+  end
+  def selection(context)
+    lang = @session.language
+    @selected ||= (seq = @model.sequence) && seq.uid
+    res = []
+    @model.product.sequences.each_with_index { |sequence, idx|
+      uid = sequence.uid
+      attribs = { "value" => uid }
+      attribs.store("selected", 1) if(uid == selected)
+      res << context.option(attribs) { compositions(sequence) }
+    }
+    res
+  end
+end
+class Parts < List
+  class << self
+    def input_text(*keys)
+      keys.each { |key|
+        define_method(key) { |model| 
+          input = HtmlGrid::Input.new(name(key), model, @session, self)
+          input.value = model.send(key) if model
+          input
+        }
+      }
+    end
+  end
+  COMPONENTS = {
+    [0,0] => :delete,
+    [1,0] => :multi,
+    [2,0] => "x",
+    [3,0] => :size,
+    [4,0] => :unit,
+    [5,0] => "à",
+    [6,0] => :quantity,
+    [7,0] => :composition,
+  }
+  COMPONENT_CSS_MAP = { 
+    [1,0,3] => "short right",
+    [6,0]   => "short right",
+  }
+  CSS_ID = 'parts'
+  DEFAULT_CLASS = HtmlGrid::InputText
+  EMPTY_LIST = true
+  OMIT_HEADER = true
+  input_text :multi, :size, :unit, :quantity
+  def add(model)
+    if(@model.empty? || @model.last.saved?)
+      link = HtmlGrid::Link.new(:plus, model, @session, self)
+      link.set_attribute('title', @lookandfeel.lookup(:create_part))
+      link.css_class = 'create square'
+      args = [ :code_cid, @session.state.model.code(:cid) ]
+      url = @session.lookandfeel.event_url(:ajax_create_part, args)
+      link.onclick = "replace_element('#{css_id}', '#{url}');"
+      link
+    end
+  end
+  def compose_footer(offset)
+    if(@model.empty? || @model.last.saved?)
+      @grid.add add(@model), *offset
+    end
+  end
+  def composition(model)
+    CompositionSelect.new(name("composition"), model, @session, self)
+  end
+  def delete(model)
+    if(@model.size > 1)
+      link = HtmlGrid::Link.new(:minus, model, @session, self)
+      link.set_attribute('title', @lookandfeel.lookup(:delete))
+      link.css_class = 'delete square'
+      args = [ :code_cid, @session.state.model.code(:cid), :part, @list_index ]
+      url = @session.lookandfeel.event_url(:ajax_delete_part, args)
+      link.onclick = "replace_element('#{css_id}', '#{url}');"
+      link
+    end
+  end
+  def name(part)
+    "#{part}[#@list_index]"
+  end
+  def unsaved(model)
+    @lookandfeel.lookup(:unsaved) unless model.saved?
+  end
+end
+class PackageInnerForm < Drugs::PackageInnerComposite
+  class << self
+    def input_text(*keys)
+      keys.each { |key|
+        define_method(key) { |model|
+          input = HtmlGrid::InputText.new(key, model, @session, self)
+          value = super model
+          if(value.is_a? HtmlGrid::Component)
+            input.value = value.value
+          else
+            input.value = value
+          end
+          if input.value.to_s.empty?
+            input.value = @session.user_input key
+          end
+          input
+        }
+      }
+    end
+  end
+  include HtmlGrid::ErrorMessage
+  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] => :price_exfactory, 
+    [2,2] => :price_public,
+    [2,3] => :price_festbetrag,
+    [0,4] => :code_festbetragsstufe,
+    [2,4] => :code_festbetragsgruppe,
+    [0,5] => :code_zuzahlungsbefreit,
+    [2,5] => :sequence,
+    [0,6] => :code_prescription,
+    [1,7,0] => :submit, 
+    [1,7,1] => :delete, 
+  }
+  SYMBOL_MAP = {
+    :name   => HtmlGrid::InputText,
+  }
+  input_text :code_cid, :price_public, :price_festbetrag, :code_festbetragsstufe,
+             :code_festbetragsgruppe, :equivalence_factor, :price_exfactory
+  def init
+    super
+    error_message
+  end
+  def code_boolean(model, key)
+    box = HtmlGrid::InputCheckbox.new("code_#{key}", model, @session, self)
+    box.set_attribute('checked', (code = model.code(key)) && code.value)
+    box
+  end
+  def delete(model)
+    button = HtmlGrid::Button.new(:delete, model, @session, self)
+    script = "this.form.event.value = 'delete'; this.form.submit();" 
+    if(model.saved?)
+      confirm = @lookandfeel.lookup(:delete_package_confirm)
+      script = "if(confirm('#{confirm}')) { #{script} };"
+    end
+    button.onclick = script
+    button
+  end
+  def sequence(model)
+    SequenceSelect.new("sequence", model, @session, self)
+  end
+end
+class PackageForm < HtmlGrid::DivComposite
+  include HtmlGrid::FormMethods
+  EVENT = :update
+  COMPONENTS = {
+    [0,0] => PackageInnerForm,
+    [0,1] => :parts,
+    [0,2] => :parts_form
+  }
+  CSS_MAP = { 1 => 'divider' }
+  def parts(model)
+    key = model.parts.size > 1 ? :parts : :package_and_substances
+    @lookandfeel.lookup(key)
+  end
+  def parts_form(model)
+    Parts.new(model.parts, @session, self)
+  end
+end
+class PackageComposite < Drugs::PackageComposite
+  COMPONENTS = {
+    [0,0] => :snapback, 
+    [0,1] => InlineSearch, 
+    [0,2] => :name,
+    [0,3] => PackageForm,
+  }
+  CSS_MAP = { 0 => 'before-searchbar' }
+  def breadcrumbs(model)
+    div = @lookandfeel.lookup(:breadcrumb_divider)
+    seq = HtmlGrid::Link.new(:sequence, model, @session, self)
+    seq.href = @lookandfeel._event_url(:sequence, :uid => model.sequence.uid)
+    prd = HtmlGrid::Link.new(:product, model, @session, self)
+    prd.href = @lookandfeel._event_url(:product, :uid => model.product.uid)
+    [ prd, div, seq, div ].concat super
+  end
+  def partline(part, idx)
+    # here in the Admin-Section we want the parts displayed differently, through Parts
+  end
+end
+class Package < Drugs::Package
+  CONTENT = PackageComposite
+  JAVASCRIPTS = ['admin']
+end
+        end
+      end
+    end
+  end
+end

data/lib/oddb/html/view/drugs/admin/product.rb

@@ -0,0 +1,104 @@
+#!/usr/bin/env ruby
+# Html::View::Drugs::Admin::Package -- de.oddb.org -- 04.04.2008 -- hwyss@ywesee.com
+
+require 'htmlgrid/errormessage'
+require 'htmlgrid/form'
+require 'oddb/html/view/drugs/template'
+require 'oddb/html/view/list'
+
+module ODDB
+  module Html
+    module View
+      module Drugs
+        module Admin
+class Sequences < View::List
+  include HtmlGrid::FormMethods
+  COMPONENTS = {
+    [0,0] => :uid,
+    [1,0] => :compositions,
+  }
+  EVENT = :new_sequence
+  OMIT_HEADER = true
+  def compositions(model)
+    lang = @session.language
+    model.compositions.collect { |comp|
+      comp.active_agents.collect { |act|
+        [act.substance.name.send(lang), act.dose].join(' ')
+      }.join(', ')
+    }.join(' + ')
+  end
+  def compose_footer(offset)
+    @grid.add submit(@model), *offset
+  end
+  def hidden_fields(context)
+    super << context.hidden("uid", @container.model.uid)
+  end
+  def uid(model)
+    link = HtmlGrid::Link.new(:uid, model, @session, self)
+    link.href = @lookandfeel._event_url(:sequence, :uid => model.uid)
+    link.value = model.uid
+    link
+  end
+end
+class ProductForm < HtmlGrid::Form
+  include HtmlGrid::ErrorMessage
+  COMPONENTS = {
+    [0,0] => :name,
+    [0,1] => :company,
+    [1,2] => :submit, 
+  }
+  EVENT = :update
+  LABELS = true
+  LEGACY_INTERFACE = false
+  SYMBOL_MAP = {
+    # Product@name is used to identify imported Products 
+    # and should therefore not be modified
+    :name => HtmlGrid::Value,  
+  }
+  def init
+    super
+    error_message
+  end
+  def hidden_fields(context)
+    super << context.hidden("uid", @model.uid)
+  end
+end
+class ProductComposite < HtmlGrid::DivComposite
+  include Snapback
+  COMPONENTS = {
+    [0,0] => :snapback, 
+    [0,1] => InlineSearch, 
+    [0,2] => :name,
+    [0,3] => ProductForm,
+    [0,4] => "sequences",
+    [0,5] => :sequences,
+  }
+  CSS_ID_MAP = [ 'snapback', 'result-search', 'title' ]
+  CSS_MAP = { 0 => 'before-searchbar', 4 => 'divider' }
+  def name(model)
+    name = [model.name]
+    if(company = model.company)
+      name.push(' - ', company.name)
+    end
+    name
+  end
+  def sequences(model)
+    Sequences.new(model.sequences, @session, self)
+  end
+  def snapback(model)
+    [ super, @lookandfeel.lookup(:breadcrumb_divider),
+      @lookandfeel.lookup(:product_details_for, 
+                          model.name.send(@session.language)) ]
+  end
+end
+class Product < Template
+  CONTENT = ProductComposite
+  def _title
+    super.push(@model.uid)
+  end
+end
+        end
+      end
+    end
+  end
+end

data/lib/oddb/html/view/drugs/admin/sequence.rb

@@ -0,0 +1,312 @@
+#!/usr/bin/env ruby
+# Html::View::Drugs::Admin::Package -- de.oddb.org -- 04.04.2008 -- hwyss@ywesee.com
+
+require 'htmlgrid/errormessage'
+require 'htmlgrid/button'
+require 'htmlgrid/divlist'
+require 'htmlgrid/form'
+require 'oddb/html/view/drugs/template'
+require 'oddb/html/view/drugs/package'
+require 'oddb/html/view/list'
+
+module ODDB
+  module Html
+    module View
+      module Drugs
+        module Admin
+class ActiveAgents < View::List
+  COMPONENTS = {
+    [0,0] => :delete,
+    [1,0] => :substance,
+    [2,0,0] => :dose,
+    [2,0,1] => :unsaved,
+  }
+  COMPONENT_CSS_MAP = { [2,0] => 'short right' }
+  DEFAULT_CLASS = HtmlGrid::InputText
+  EMPTY_LIST = true
+  STRIPED_BG = false
+  def add(model)
+    link = HtmlGrid::Link.new(:plus, model, @session, self)
+    link.set_attribute('title', @lookandfeel.lookup(:create_active_agent))
+    link.css_class = 'create square'
+    args = [ :uid, @session.state.model.uid, :composition, composition ]
+    url = @session.lookandfeel.event_url(:ajax_create_active_agent, args)
+    link.onclick = "replace_element('#{css_id}', '#{url}');"
+    link
+  end
+  def compose_footer(offset)
+    if(@model.empty? || @model.last)
+      @grid.add add(@model), *offset
+      offset[0] += 1
+      @grid.add delete_composition(@model), *offset
+      @grid.add_style 'right', *offset
+      @grid.set_colspan offset.at(0), offset.at(1)
+    end
+  end
+  def compose_header(offset)
+    comp = if act = @model.first
+             act.composition
+           end
+    input = galenic_form(comp)
+    label = HtmlGrid::SimpleLabel.new(:galenic_form, input, @session, self)
+    pos = *offset.dup
+    pos[0] += 1
+    @grid.add [label, input], *pos
+    pos.push 2
+    @grid.set_colspan *pos
+    offset[1] += 1
+    offset
+  end
+  def composition
+    @container ? @container.list_index : @session.user_input(:composition)
+  end
+  def css_id
+    @css_id ||= "active-agents-#{composition}"
+  end
+  def delete(model)
+    unless(@model.first.nil?)
+      link = HtmlGrid::Link.new(:minus, model, @session, self)
+      link.set_attribute('title', @lookandfeel.lookup(:delete))
+      link.css_class = 'delete square'
+      args = [ :uid, @session.state.model.uid, :composition, composition, 
+               :active_agent, @list_index ]
+      url = @session.lookandfeel.event_url(:ajax_delete_active_agent, args)
+      link.onclick = "replace_element('#{css_id}', '#{url}');"
+      link
+    end
+  end
+  def delete_composition(model)
+    link = HtmlGrid::Link.new(:delete_composition, model, @session, self)
+    link.css_class = 'ajax'
+    args = [ :uid, @session.state.model.uid, :composition, composition ]
+    url = @session.lookandfeel.event_url(:ajax_delete_composition, args)
+    link.onclick = "replace_element('composition-list', '#{url}');"
+    link
+  end
+  def dose(model)
+    input = HtmlGrid::InputText.new(name("dose"), model, @session, self)
+    input.value = model.dose.to_s if model
+    input
+  end
+  def galenic_form(model)
+    input = HtmlGrid::InputText.new("galenic_form[#{composition}]", 
+                                    model, @session, self)
+    if model && gf = model.galenic_form
+      input.value = gf.description.send @session.language
+    end
+    input
+  end
+  def name(part)
+    "#{part}[#{composition}][#@list_index]"
+  end
+  def substance(model)
+    input = HtmlGrid::InputText.new(name("substance"), model, @session, self)
+    input.value = model.substance.name.send(@session.language) if model
+    input
+  end
+  def unsaved(model)
+    @lookandfeel.lookup(:unsaved) if model.nil?
+  end
+end
+class CompositionList < HtmlGrid::DivList
+  COMPONENTS = { [0,0] => :composition }
+  OFFSET_STEP = [1,0]
+  OMIT_HEADER = true
+  attr_reader :list_index
+  def add(model)
+    link = HtmlGrid::Link.new(:create_composition, model, @session, self)
+    link.css_class = 'ajax'
+    args = [ :uid, @session.state.model.uid ]
+    url = @session.lookandfeel.event_url(:ajax_create_composition, args)
+    link.onclick = "replace_element('composition-list', '#{url}');"
+    link
+  end
+  def compose
+    super
+    comp = @model.last
+    @grid.push [add(@model)] if comp.nil? || !comp.active_agents.compact.empty?
+  end
+  def composition(model)
+    ActiveAgents.new(model.active_agents, @session, self)
+  end
+end
+class Compositions < HtmlGrid::DivComposite
+  COMPONENTS = { [0,0] => CompositionList }
+  CSS_ID = 'composition-list'
+end
+class Packages < View::List
+  include HtmlGrid::FormMethods
+  include PackageMethods
+  COMPONENTS = {
+    [0,0] => :cid,
+    [1,0] => :name,
+    [2,0] => :size,
+  }
+  EVENT = :new_package
+  OMIT_HEADER = true
+  def compose_footer(offset)
+    @grid.add submit(@model), *offset
+  end
+  def hidden_fields(context)
+    super << context.hidden("uid", @container.model.uid)
+  end
+  def cid(model)
+    code = model.code(:cid)
+    link = HtmlGrid::Link.new(:cid, model, @session, self)
+    link.href = @lookandfeel._event_url(:package, :cid => code)
+    link.value = code
+    link
+  end
+end
+class SequenceInnerForm < HtmlGrid::Composite
+  include HtmlGrid::ErrorMessage
+  COLSPAN_MAP = {
+=begin ## temporarily disabled: this should be recoded to work with swiss infos
+       #  in 2.0
+    [1,3] => 3,
+    [1,4] => 3,
+=end
+  }
+  COMPONENTS = {
+    [0,0] => :atc,
+    [2,0] => :show_atc_name,
+    [0,1] => :registration,
+    [1,2,0] => :submit,
+    [1,2,1] => :delete,
+=begin ## temporarily disabled: this should be recoded to work with swiss infos
+       #  in 2.0
+    [1,2,0] => :fachinfo_link,
+    [1,2,1] => :patinfo_link,
+    [0,3] => :fachinfo_url,
+    [0,4] => :patinfo_url,
+    [1,5,0] => :submit, 
+    [1,5,1] => :delete, 
+=end
+  }
+  COMPONENT_CSS_MAP = {
+=begin ## temporarily disabled: this should be recoded to work with swiss infos
+       #  in 2.0
+    [1,3] => 'url',
+    [1,4] => 'url',
+=end
+  }
+  LABELS = true
+  LEGACY_INTERFACE = false
+  def init
+    if(@session.errors.any? { |err| err.message == "e_unknown_atc" })
+      components.store([2,0], :atc_name)
+    end
+    super
+    error_message
+  end
+  def atc_name(model)
+    HtmlGrid::InputText.new(:atc_name, model, @session, self)
+  end
+  def delete(model)
+    button = HtmlGrid::Button.new(:delete, model, @session, self)
+    script = "this.form.event.value = 'delete'; this.form.submit();" 
+    if(model.saved?)
+      confirm = @lookandfeel.lookup(:delete_sequence_confirm)
+      script = "if(confirm('#{confirm}')) { #{script} };"
+    end
+    button.onclick = script
+    button
+  end
+  def fachinfo_link(model)
+    url = if model.respond_to?(:fachinfo) \
+             && model.fachinfo.send(@session.language)
+            @lookandfeel._event_url(:fachinfo, [:uid, model.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 patinfo_link(model)
+    url = if model.respond_to?(:patinfo) && model.patinfo.send(@session.language)
+            @lookandfeel._event_url(:patinfo, [:uid, model.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 show_atc_name(model)
+    if(atc = model.atc)
+      value = HtmlGrid::Value.new(:atc_name, atc, @session, self)
+      value.value = atc.name.de
+      value
+    end
+  end
+end
+class SequenceForm < HtmlGrid::DivForm
+  COMPONENTS = {
+    [0,0] => SequenceInnerForm,
+    [0,1] => "compositions",
+    [0,2] => :compositions,
+  }
+  CSS_ID_MAP = { 2 => 'compositions' }
+  CSS_MAP = { 1 => 'divider' }
+  EVENT = :update
+  def compositions(model)
+    Compositions.new(model.compositions, @session, self)
+  end
+  def hidden_fields(context)
+    super << context.hidden("uid", @model.uid)
+  end
+end
+class SequenceComposite < HtmlGrid::DivComposite
+  include Snapback
+  COMPONENTS = {
+    [0,0] => :snapback, 
+    [0,1] => InlineSearch, 
+    [0,2] => :name,
+    [0,3] => SequenceForm,
+    [0,4] => "packages_admin",
+    [0,5] => :packages,
+  }
+  CSS_ID_MAP = [ 'snapback', 'result-search', 'title' ]
+  CSS_MAP = { 0 => 'before-searchbar', 4 => 'divider' }
+  def name(model)
+    name = [model.name]
+    if(company = model.company)
+      name.push(' - ', company.name)
+    end
+    name
+  end
+  def packages(model)
+    Packages.new(model.packages, @session, self) if(@model.saved?)
+  end
+  def snapback(model)
+    div = @lookandfeel.lookup(:breadcrumb_divider)
+    prd = HtmlGrid::Link.new(:product, model, @session, self)
+    prd.href = @lookandfeel._event_url(:product, :uid => model.product.uid)
+    [ super, div, prd, div,
+      @lookandfeel.lookup(:sequence_details_for, 
+                          model.name.send(@session.language)) ]
+  end
+end
+class Sequence < Template
+  CONTENT = SequenceComposite
+  JAVASCRIPTS = ['admin']
+  def _title
+    if @model.saved?
+      super.push(@model.uid)
+    else
+      super.push(@lookandfeel.lookup(:new_sequence))
+    end
+  end
+end
+        end
+      end
+    end
+  end
+end