bbmb 2.0.0

data/lib/bbmb/html/view/orders.rb

@@ -0,0 +1,50 @@
+#!/usr/bin/env ruby
+# Html::View::Orders -- bbmb.ch -- 27.09.2006 -- hwyss@ywesee.com
+
+require 'bbmb/html/view/template'
+
+module BBMB
+  module Html
+    module View
+class OrdersComposite < HtmlGrid::List
+  BACKGROUND_ROW = 'bg'
+  BACKGROUND_SUFFIX = ''
+  COMPONENTS = {
+    #[0,0] => :order_id,
+    [0,0] => :commit_time,
+    [1,0] => :size,
+    [2,0] => :item_count,
+    [3,0] => :total,
+  }
+  CSS_CLASS = 'list'
+  CSS_HEAD_MAP = {
+    [1,0] => 'right',
+    [2,0] => 'right',
+    [3,0] => 'right',
+  }
+  CSS_MAP = {
+    [1,0,2] => 'right',
+    [3,0]   => 'total',
+  }
+  LOOKANDFEEL_MAP = {
+    :total => :order_total,
+  }
+  SORT_DEFAULT = :commit_time
+  SORT_REVERSE = true
+  def commit_time(model)
+    link = HtmlGrid::Link.new(:commit_time, model, @session, self)
+    link.value = model.commit_time.strftime("%d.%m.%Y %H:%M")
+    link.href = @lookandfeel._event_url(:order, :order_id => model.order_id)
+    link.css_class = 'commit-time'
+    link
+  end
+  def items(model)
+    model.positions.inject(0) { |memo, pos| memo + pos.quantity }
+  end
+end
+class Orders < Template
+  CONTENT = OrdersComposite
+end
+    end
+  end
+end

data/lib/bbmb/html/view/result.rb

@@ -0,0 +1,107 @@
+#!/usr/bin/env ruby
+# Html::View::Result -- bbmb.ch -- 21.09.2006 -- hwyss@ywesee.com
+
+require 'bbmb/html/view/backorder'
+require 'bbmb/html/view/list_prices'
+require 'bbmb/html/view/multilingual'
+require 'bbmb/html/view/search'
+require 'bbmb/html/view/template'
+require 'htmlgrid/errormessage'
+require 'htmlgrid/formlist'
+
+module BBMB
+  module Html
+    module View
+class Products < HtmlGrid::FormList
+  include Backorder
+  include ListPrices
+  include Multilingual
+  include HtmlGrid::ErrorMessage
+  CSS_CLASS = 'list'
+  if BBMB.config.enable_price_levels
+    COMPONENTS = {
+      [0,0]	=>	:quantity,
+      [1,0]	=>	:description,
+      [2,0]	=>	:backorder,
+      [3,0] =>  :price,
+      [4,0] =>  :price_levels,
+      [5,0] =>  :price2,
+      [6,0] =>  :price3,
+      [4,1] =>  :price4,
+      [5,1] =>  :price5,
+      [6,1] =>  :price6
+    }
+    CSS_HEAD_MAP = {
+      [3,0] => 'right',
+      [4,0] => 'right',
+    }
+    CSS_MAP = {
+      [0,0]     => 'tiny',
+      [1,0]     => 'description',
+      [3,0,4,2] => 'right'
+    }
+    OFFSET_STEP = [0,2]
+    HEAD_OFFSET_STEP = [0,1]
+  else
+    COMPONENTS = {
+      [0,0]	=>	:quantity,
+      [1,0]	=>	:description,
+      [2,0]	=>	:backorder,
+      [3,0] =>  :price,
+    }
+    CSS_HEAD_MAP = {
+      [3,0] => 'right',
+    }
+    CSS_MAP = {
+      [0,0] => 'tiny',
+      [1,0] => 'description',
+      [3,0] => 'right'
+    }
+    OFFSET_STEP = [0,1]
+  end
+  EVENT = :order_product
+  FORM_NAME = 'products'
+  SORT_DEFAULT = :description
+  def init
+    super
+    error_message
+  end
+  def compose_footer(matrix)
+    super unless(@model.empty?)
+  end
+  def quantity(product)
+    name = "quantity[#{product.article_number}]"
+    input = HtmlGrid::InputText.new(name, product, @session, self)
+    input.value = @model.ordered_quantity(product)
+    input.css_class = 'tiny'
+    script = "if(this.value == '0') this.value = '';"
+    input.set_attribute('onFocus', script)
+    script = "if(this.value == '') this.value = '0';"
+    input.set_attribute('onBlur', script)
+    input
+  end
+end
+class ResultComposite < HtmlGrid::DivComposite
+  COMPONENTS = {
+    [0,0] => Search,
+    [1,0] => :product_count,
+    [0,1] => Products,
+  }
+  CSS_ID_MAP = ['toolbar']
+  def product_count(model)
+    span = HtmlGrid::Span.new(model, @session, self)
+    span.value = if(model.size == 1)
+      @lookandfeel.lookup(:product_found)
+    else
+      @lookandfeel.lookup(:products_found, model.size)
+    end
+    span.css_class = 'guide'
+    span
+  end
+end
+class Result < Template
+  CONTENT = ResultComposite
+end
+    end
+  end
+end

data/lib/bbmb/html/view/search.rb

@@ -0,0 +1,28 @@
+#!/usr/bin/env ruby
+# Html::View::Search -- bbmb.ch -- 21.09.2006 -- hwyss@ywesee.com
+
+require 'htmlgrid/divform'
+
+module BBMB
+  module Html
+    module View
+class Search < HtmlGrid::DivForm
+  CSS_ID = 'search'
+  COMPONENTS = {
+    [0,0] => :query,
+    [1,0] => :submit,
+  }
+  EVENT = :search
+  FORM_NAME = 'search'
+  SYMBOL_MAP = {
+    :query => HtmlGrid::InputText
+  }
+  def init
+    super
+    url = @lookandfeel._event_url(event, :query => nil)
+    self.onsubmit = "document.location.href='#{url}'+this.query.value; return false"
+  end
+end
+    end
+  end
+end

data/lib/bbmb/html/view/show_pass.rb

@@ -0,0 +1,60 @@
+#!/usr/bin/env ruby
+# Html::View::ShowPass -- bbmb.ch -- 19.10.2006 -- hwyss@ywesee.com
+
+require 'bbmb/html/view/template'
+require 'htmlgrid/div'
+
+module BBMB
+  module Html
+    module View
+class ShowPassInnerComposite < HtmlGrid::Composite
+  COMPONENTS = {
+    [0,0] => :email,
+    [0,1] => :cleartext,
+  }
+  DEFAULT_CLASS = HtmlGrid::Value
+  LABELS = true
+end
+class Address < HtmlGrid::Composite
+  COMPONENTS = {
+    [0,0] => :to_str 
+  }
+end
+class ShowPassComposite < HtmlGrid::DivComposite
+  COMPONENTS = {
+    [0,0] => :admin_address,
+    [0,1] => :customer_address,
+    [0,2] => "&nbsp;",
+    [0,3] => ShowPassInnerComposite,
+  }
+  CSS_ID_MAP = {
+    0 => 'admin-address',
+    2 => 'divider',
+  }
+  CSS_MAP = ['address', 'address']
+  def admin_address(model)
+    #div = HtmlGrid::Div.new(model, @session, self)
+    #div.css_id = 'admin-address'
+    #div.value = 
+    BBMB.config.admin_address.gsub("\n", "<br>")
+  end
+  def customer_address(model)
+    model.address_lines.join('<br>')
+  end
+end
+class ShowPass < Template
+  COMPONENTS = {
+    [0,0]	 =>	:logo,
+    [0,1]	 =>	ShowPassComposite,
+  }
+  SYMBOL_MAP = {
+    :logo => HtmlGrid::Image, 
+  }
+  def init
+    super
+    self.onload = 'window.opener.location.reload();'
+  end
+end
+    end
+  end
+end

data/lib/bbmb/html/view/template.rb

@@ -0,0 +1,61 @@
+#!/usr/bin/env ruby
+# Html::View::Template -- bbmb.ch -- 15.09.2006 -- hwyss@ywesee.com
+
+require 'bbmb/html/view/head'
+require 'bbmb/html/view/foot'
+require 'htmlgrid/divtemplate'
+require 'time'
+
+module HtmlGrid
+  class Composite
+    LEGACY_INTERFACE = false
+  end
+end
+module BBMB
+  module Html
+    module View
+class Template < HtmlGrid::DivTemplate
+  COMPONENTS = {
+    [0,0]    =>  :head,
+    [0,1]    =>  :content,
+    [0,2]    =>  :foot,
+  }
+  CSS_ID_MAP = ['head', 'content', 'foot']
+	CSS_FILES = ['bbmb.css']
+  HEAD = Head
+  HTTP_HEADERS = {
+    "Content-Type"  =>  "text/html; charset=utf-8",
+    "Cache-Control" =>  "private, no-store, no-cache, must-revalidate, post-check=0, pre-check=0",
+    "Pragma"        =>  "no-cache",
+    "Expires"       =>  Time.now.httpdate,
+    "P3P"           =>  "CP='OTI NID CUR OUR STP ONL UNI PRE'",
+  }
+  FOOT = Foot
+  META_TAGS = [
+    {
+      "http-equiv"  =>  "robots",
+      "content"     =>  "nofollow, noindex",
+    },
+  ]
+  def css_links(context)
+    if(@lookandfeel.enabled?(:external_css, false))
+      css_link(context, @lookandfeel.resource_external(:external_css))
+    else
+      super
+    end
+  end
+  def http_headers(*args)
+    headers = super
+    headers.store('Refresh', 
+      "#{BBMB.config.session_timeout}; URL=#{@lookandfeel._event_url(:logout)}")
+    headers
+  end
+  def title(context)
+    parts = [:html_title, *@session.state.direct_event].collect { |key| 
+      @lookandfeel.lookup(key) }.compact
+    context.title { parts.join(' | ') }
+  end
+end
+    end
+  end
+end

data/lib/bbmb/model/customer.rb

@@ -0,0 +1,96 @@
+#!/usr/bin/env ruby
+# Model::Customer -- bbmb.ch -- 14.09.2006 -- hwyss@ywesee.com
+
+require 'thread'
+require 'bbmb/model/order'
+
+module BBMB
+  module Model
+class Customer
+  attr_reader :customer_id, :email, :archive, :quotas
+  attr_accessor :address1, :address2, :address3, :canton, :city,
+    :drtitle, :ean13, :fax, :firstname, :language, :lastname,
+    :organisation, :phone_business, :phone_mobile, :phone_private, :plz,
+    :status, :title, :terms_last_accepted, :order_confirmation
+  def initialize(customer_id, email=nil)
+    @archive = {}
+    self.customer_id = customer_id if customer_id
+    @email = email
+    @favorites = Order.new(self)
+    @protected = {}
+    @quotas = []
+  end
+  def add_quota(quota)
+    @quotas.push(quota).uniq!
+    quota
+  end
+  def address_lines
+    [
+      @organisation,
+      [@drtitle, @firstname, @lastname].compact.join(' '),
+      @address1,
+      @address2,
+      @address3,
+      [@plz, @city].compact.join(' '),
+    ].compact
+  end
+  def commit_order!(commit_time = Time.now)
+    Thread.exclusive {
+      id = @archive.keys.max.to_i.next
+      order = current_order
+      order.commit!(id, commit_time)
+      @archive.store(id, order)
+      @current_order = nil
+      order
+    }
+  end
+  def current_order
+    @current_order ||= Order.new(self)
+  end
+  def customer_id=(customer_id)
+    if other = Customer.find_by_customer_id(customer_id)
+      raise "Duplicate customer_id #{customer_id}"
+    else
+      @customer_id = customer_id
+    end
+  end
+  def quota(article_id)
+    @quotas.find { |quota| quota.article_number == article_id }
+  end
+  def email=(email)
+    if(@email || email)
+      raise "Invalid email address: nil" unless email
+      ## notify the server of this change, as it affects the user-data
+      BBMB.server.rename_user(@email, email)
+      @email = email
+    end
+  end
+  def favorites 
+    @favorites ||= Order.new(self)
+  end
+  def inject_order(order, commit_time = Time.now)
+    Thread.exclusive {
+      id = @archive.keys.max.to_i.next
+      order.commit!(id, commit_time)
+      @archive.store(id, order)
+      order
+    }
+  end
+  def order(commit_id)
+    @archive[commit_id.to_i]
+  end
+  def orders
+    @archive.values
+  end
+  def protect!(key)
+    @protected.store(key, true)
+  end
+  def protects?(key)
+    @protected.fetch(key, false)
+  end
+  def turnover
+    orders.inject(0) { |memo, order| order.total + memo }
+  end
+end
+  end
+end

data/lib/bbmb/model/order.rb

@@ -0,0 +1,255 @@
+#!/usr/bin/env ruby
+# Model::Order -- bbmb.ch -- 22.09.2006 -- hwyss@ywesee.com
+
+require 'encoding/character/utf-8'
+require 'bbmb/config'
+require 'bbmb/util/numbers'
+require 'csv'
+
+module BBMB
+  module Model
+class Order
+  class Info
+    include Util::Numbers
+    attr_accessor :ean13, :pcode, :description
+    int_accessor :quantity
+  end
+  class Position
+    include Util::Numbers
+    attr_reader :product
+    int_accessor :quantity
+    money_accessor :price_effective
+    def initialize(quantity, product)
+      @quantity = quantity
+      @product = product
+    end
+    def commit!
+      @product = @product.to_info
+    end
+    def freebies
+      if(promo = @product.current_promo)
+        promo.freebies(@quantity)
+      end
+    end
+    def method_missing(name, *args, &block)
+      @product.send(name, *args, &block)
+    end
+    def price
+      @price_effective || price_effective
+    end
+    def price_effective(qty = @quantity)
+      @product.price_effective(qty)
+    end
+    def price_qty(qty = @quantity)
+      @product.price_qty(qty)
+    end
+    def total
+      price * @quantity
+    end
+    def respond_to?(name)
+      super || @product.respond_to?(name)
+    end
+  end
+  include Enumerable
+  include Util::Numbers
+  attr_reader :commit_id, :commit_time, :customer, :positions, :unavailable
+  attr_accessor :comment, :reference
+  int_accessor :priority
+  money_accessor :shipping
+  def initialize(customer)
+    @customer = customer
+    @positions = []
+    @unavailable = []
+  end
+  def add(quantity, product)
+    pos = nil
+    if(pos = position(product))
+      if(quantity.zero?)
+        @positions.delete(pos)
+      else
+        pos.quantity = quantity
+      end
+    elsif(quantity.nonzero?)
+      pos = Position.new(quantity, product)
+      @positions.push(pos)
+    end
+    if(pos && quantity.nonzero?)
+      pos.price_effective = price_effective(pos)
+    end
+    pos
+  end
+  def additional_info
+    info = {}
+    [ :comment, :priority, :reference ].each { |key|
+      if(value = self.send(key))
+        info.store(key, value)
+      end
+    }
+    info
+  end
+  def calculate_effective_prices
+    @positions.each { |pos| 
+      pos.price_effective = price_effective(pos)
+    }
+  end
+  def clear
+    @positions.clear
+    @unavailable.clear
+  end
+  def commit!(commit_id, commit_time)
+    raise "can't commit empty order" if(empty?)
+    calculate_effective_prices
+    @positions.each { |pos| 
+      pos.commit!
+    }
+    @unavailable.clear
+    @commit_time = commit_time
+    @commit_id = commit_id
+  end
+  def each(&block)
+    @positions.each(&block)
+  end
+  def empty?
+    @positions.empty?
+  end
+  def filename
+    sprintf("%s-%s.txt", order_id, @commit_time.strftime('%Y%m%d%H%M%S'))
+  end
+  def increment(quantity, product)
+    if(pos = position(product))
+      quantity += pos.quantity
+    end
+    add(quantity, product)
+  end
+  def item_count
+    @positions.inject(0) { |memo, pos| memo + pos.quantity }
+  end
+  def i2_body
+    lines = []
+    offset = 1
+    @positions.each_with_index { |position, idx|
+      lines.push *i2_position(idx + offset, position, position.quantity)
+      if(freebies = position.freebies)
+        offset += 1
+        lines.push *i2_position(idx + offset, position, freebies)
+        lines.push "603:21"
+      end
+    }
+    lines.join("\n")
+  end
+  def i2_header
+    lines = [
+      "001:7601001000681",
+      "002:ORDERX",
+      "003:220",
+      "010:%s" % filename,
+      "100:%s" % BBMB.config.i2_100,
+      "101:%s" % @reference,
+      "201:CU",
+      "202:%s" % @customer.customer_id,
+      "201:BY",
+      "202:1075",
+      "231:%s" % @customer.organisation,
+    ]
+    if(@comment && !@comment.empty?)
+      lines.push "236:%s" % _formatted_comment
+    end
+    lines.push "237:61"
+    if(@priority)
+      lines.push "238:%i" % @priority
+    end
+    lines.push "250:ADE", 
+                sprintf("251:%i%05i", @customer.customer_id, @commit_id), 
+                "300:4", "301:%s" % @commit_time.strftime('%Y%m%d')
+    lines.join("\n")
+  end
+  def i2_position(line, position, quantity)
+    ["500:%i" % line,
+      "501:%s" % position.ean13,
+      "502:%s" % position.article_number,
+      "520:%s" % quantity,
+      "521:PCE", "540:2", "541:%s" % @commit_time.strftime('%Y%m%d')]
+  end
+  def order_id
+    sprintf "%s-%s", @customer.customer_id, @commit_id
+  end
+  def position(product)
+    @positions.find { |pos| pos.product == product }
+  end
+  def price_effective(pos)
+    ((quota = quota(pos.article_number)) && quota.price) \
+      || pos.price_effective
+  end
+  def quantity(product)
+    if(pos = position(product))
+      pos.quantity
+    else
+      0
+    end
+  end
+  def quota(article_number)
+    @customer.quota(article_number)
+  end
+  def reverse!
+    @positions.reverse!
+  end
+  def size
+    @positions.size
+  end
+  def sort!(*args, &block)
+    @positions.sort!(*args, &block)
+  end
+  def sort_by(*args, &block)
+    twin = dup
+    twin.positions.replace @positions.sort_by(*args, &block)
+    twin
+  end
+  def total
+    @positions.inject(@shipping) { |memo, pos| pos.total + memo }
+  end
+  def total_incl_vat
+    if rate = BBMB.config.vat_rate
+      total * (100 + rate.to_f) / 100
+    end
+  end
+  def to_csv
+    result = ''
+    CSV::Writer.generate(result, 
+                         BBMB.config.target_format_fs,
+                         BBMB.config.target_format_rs) { |writer|
+      @positions.each { |position|
+        writer << [
+          @customer.customer_id,
+          @customer.ean13,
+          @commit_time.strftime('%d%m%Y'),
+          @commit_id, 
+          position.pcode,
+          position.ean13,
+          position.article_number,
+          position.quantity,
+          position.price,
+          @reference,
+          _formatted_comment(' '),
+        ]
+      }
+    }
+    result
+  end
+  def to_i2
+    i2_header << "\n" << i2_body << "\n"
+  end
+  def to_target_format
+    self.send("to_#{BBMB.config.target_format}")
+  end
+  def vat
+    if rate = BBMB.config.vat_rate
+      total * rate.to_f / 100
+    end
+  end
+  private
+  def _formatted_comment(replacement=';')
+    u(@comment.to_s.gsub(/[\r\n]+/, replacement))[0,60] if @comment
+  end
+end
+  end
+end