bbmb 2.0.0

data/lib/bbmb/html/state/customers.rb

@@ -0,0 +1,52 @@
+#!/usr/bin/env ruby
+# Html::State::Customers -- bbmb.ch -- 18.09.2006 -- hwyss@ywesee.com
+
+require 'bbmb/html/state/global'
+require 'bbmb/html/view/customers'
+require 'bbmb/model/customer'
+require 'ostruct'
+
+module BBMB
+  module Html
+    module State
+class Customers < Global
+  DIRECT_EVENT = :customers
+  VIEW = View::Customers
+  FILTER = [ :customer_id, :organisation, :plz, :city, :email ]
+  def init
+    start = Time.now
+    @model = BBMB.persistence.all(Model::Customer)
+    @sortby = [:organisation]
+    BBMB.logger.debug('State') { 
+      sprintf("Customers#init: loaded %i customers in %1.5fs", 
+              @model.size, Time.now - start)
+    }
+    @filter = Proc.new { |model|
+      if(filter = @session.event_bound_user_input(:filter))
+        pattern = Regexp.new(filter.gsub("*", ".*"), 'i')
+        model = model.select { |customer| 
+          FILTER.any? { |key| pattern.match(customer.send(key).to_s) }
+        }
+      end
+      get_sortby!
+      model.sort! { |a, b| compare_entries(a, b) }
+      @sort_reverse && model.reverse! 
+      page(model)
+    }
+  end
+  def page(model)
+    page = OpenStruct.new
+    index = @session.user_input(:index).to_i
+    step = @session.user.pagestep || BBMB.config.pagestep
+    page.index = index
+    page.first = index + 1
+    page.step = step
+    page.total = model.size
+    page.customers = model[index, step]
+    page.last = index + page.customers.size
+    page
+  end
+end
+    end
+  end
+end

data/lib/bbmb/html/state/favorites.rb

@@ -0,0 +1,19 @@
+#!/usr/bin/env ruby
+# Html::State::Favorites -- bbmb.ch -- 28.09.2006 -- hwyss@ywesee.com
+
+require 'bbmb/html/state/global'
+require 'bbmb/html/view/favorites'
+
+module BBMB
+  module Html
+    module State
+class Favorites < Global
+  DIRECT_EVENT = :favorites
+  VIEW = View::Favorites
+  def init
+    @model = _customer.favorites
+  end
+end
+    end
+  end
+end

data/lib/bbmb/html/state/favorites_result.rb

@@ -0,0 +1,21 @@
+#!/usr/bin/env ruby
+# Html::State::Result -- bbmb.ch -- 21.09.2006 -- hwyss@ywesee.com
+
+require 'bbmb/html/state/result'
+require 'bbmb/html/view/favorites_result'
+
+module BBMB
+  module Html
+    module State
+class FavoritesResult < Result
+  VIEW = View::FavoritesResult
+  def direct_event
+    [:search_favorites, {:query => @query}]
+  end
+  def _order 
+    _customer.favorites
+  end
+end
+    end
+  end
+end

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

@@ -0,0 +1,62 @@
+#!/usr/bin/env ruby
+# Html::State::Global -- bbmb.ch -- 18.09.2006 -- hwyss@ywesee.com
+
+require 'sbsm/state'
+require 'bbmb/html/state/login'
+require 'encoding/character/utf-8'
+
+module BBMB
+  module Html
+    module State
+class Global < SBSM::State
+  class << self
+    def mandatory(*keys)
+      define_method(:_mandatory) { keys }
+      define_method(:mandatory) { _mandatory }
+      define_method(:mandatory?) { |key| mandatory.include?(key) }
+    end
+  end
+  def logout
+    @session.logout
+    State::Login.new(@session, nil)
+  end
+  def direct_arguments
+    if(keys = direct_argument_keys)
+      keys.inject({}) { |memo, key|
+        memo.store(key, @session.user_input(key))
+        memo
+      }
+    end
+  end
+  def direct_argument_keys
+  end
+  def direct_request?(event)
+    requested_event(event) == direct_event
+  end
+  def requested_event(event)
+    if(args = direct_arguments)
+      [ event, args ]
+    else
+      event
+    end
+  end
+  def trigger(event)
+    if(direct_request?(event))
+      self
+    else
+      super
+    end
+  end
+  def user_input(*args)
+    data = super
+    data.each { |key, val|
+      if(val.is_a?(String))
+        data.store(key, val.empty? ? nil : u(val))
+      end
+    }
+    data
+  end
+end
+    end
+  end
+end

data/lib/bbmb/html/state/history.rb

@@ -0,0 +1,95 @@
+#!/usr/bin/env ruby
+# Html::State::History -- bbmb.ch -- 03.10.2006 -- hwyss@ywesee.com
+
+require 'bbmb/html/state/global'
+require 'bbmb/html/view/history'
+
+module BBMB
+  module Html
+    module State
+class History < Global
+  VIEW = View::History
+  class PositionFacade
+    attr_reader :quantity, :total
+    def initialize
+      @positions = []
+      @quantity = 0
+      @prices = []
+      @total = 0
+    end
+    def add(position)
+      @positions.push(position)
+      @quantity += position.quantity
+      @prices.push(position.price)
+      @total = position.total + @total
+    end
+    def order_count
+      @positions.size
+    end
+    def price_extremes
+      [@prices.min, @prices.max]
+    end
+    def respond_to?(key)
+      super || @positions.last.respond_to?(key)
+    end
+    def method_missing(key, *args, &block)
+      @positions.last.send(key, *args, &block)
+    end
+  end
+  class HistoryFacade
+    include Enumerable
+    attr_accessor :sorted
+    def initialize
+      @map = {}
+      @positions = []
+    end
+    def add(order)
+      order.each { |position|
+        add_position(position)
+      }
+    end
+    def add_position(position)
+      key = position.article_number
+      pos = @map.fetch(key) { 
+        pos = @map.store(key, PositionFacade.new)
+        @positions = @map.values
+        pos
+      }
+      pos.add(position)
+    end
+    def each(&block)
+      @positions.each(&block)
+    end
+    def empty?
+      @positions.empty?
+    end
+    def reverse!
+      @positions.reverse!
+    end
+    def sort!(*args, &block)
+      @positions.sort!(*args, &block)
+    end
+    def turnover
+      @positions.inject(0) { |inj, position| 
+        position.total + inj
+      }
+    end
+  end
+  def init
+    @model = HistoryFacade.new
+    if(@customer = _customer)
+      @customer.orders.sort_by { |order| order.commit_time }.each { |order|
+        @model.add(order)
+      }
+    end
+  end
+  def direct_argument_keys
+    [:customer_id]
+  end
+  def direct_event
+    [:history, {:customer_id => @customer.customer_id}]
+  end
+end
+    end
+  end
+end

data/lib/bbmb/html/state/info.rb

@@ -0,0 +1,23 @@
+#!/usr/bin/env ruby
+# Html::State::Info -- bbmb.ch -- 30.11.2006 -- hwyss@ywesee.com
+
+require 'bbmb/html/state/global'
+require 'bbmb/html/view/info'
+require 'ostruct'
+
+module BBMB
+  module Html
+    module State
+class Info < Global
+  VIEW = Html::View::Info
+  def init
+    model = OpenStruct.new
+    model.event = @model[:event]
+    model.message = @model[:message]
+    @model = model
+    super
+  end
+end
+    end
+  end
+end

data/lib/bbmb/html/state/json.rb

@@ -0,0 +1,16 @@
+#!/usr/bin/env ruby
+# Html::State::Json -- bbmb.ch -- 26.09.2006 -- hwyss@ywesee.com
+
+require 'bbmb/html/view/json'
+require 'sbsm/state'
+
+module BBMB
+  module Html
+    module State
+class Json < SBSM::State
+  VIEW = View::Json
+  VOLATILE = true
+end
+    end
+  end
+end

data/lib/bbmb/html/state/login.rb

@@ -0,0 +1,76 @@
+#!/usr/bin/env ruby
+# Html::State::Login -- bbmb.ch -- 15.09.2006 -- hwyss@ywesee.com
+
+require 'bbmb/html/state/info'
+require 'bbmb/html/state/viral/admin'
+require 'bbmb/html/state/viral/customer'
+require 'bbmb/html/view/login'
+require 'bbmb/util/mail'
+require 'sbsm/state'
+require 'yus/session'
+
+module BBMB
+  module Html
+    module State
+class Login < SBSM::State
+  VIEW = View::Login
+  def login
+    reconsider_permissions(@session.login)
+    trigger(:home)
+  rescue Yus::UnknownEntityError
+    @errors.store(:email, create_error(:e_authentication_error, :email, nil))
+    self
+  rescue Yus::AuthenticationError
+    @errors.store(:pass, create_error(:e_authentication_error, :pass, nil))
+    self
+  end
+  def home
+    self
+  end
+  def request_access
+    lnf = @session.lookandfeel
+    if(lnf.enabled?(:request_access, false))
+      keys = [ :firstname, :lastname, :organisation, :address1, :plz, :city,
+        :phone_business, :email, :customer_id, ]
+      input = user_input(keys, keys)
+      if(error?)
+        @errors.clear
+        @errors.store(:all, create_error(:e_need_all_fields, :all, nil))
+        self
+      else
+        body = <<-EOS
+Vorname:        #{input[:firstname]}
+Name:           #{input[:lastname]}
+Tierarztpraxis: #{input[:organisation]}
+Strasse / Nr.:  #{input[:address1]}
+PLZ:            #{input[:plz]}
+Ort:            #{input[:city]}
+Tel. Praxis:    #{input[:phone_business]}
+E-Mail Adresse: #{input[:email]}
+TVS/Virbac-Nr:  #{input[:customer_id]}
+        EOS
+        BBMB::Util::Mail.send_request(input[:email], input[:organisation], body)
+        Info.new(@session, :message => :request_sent, :event => :logout)
+      end
+    end
+  end
+  private
+  def reconsider_permissions(user)
+    viral_modules(user) { |mod|
+      self.extend(mod)
+    }
+  end
+  def viral_modules(user)
+    [ 
+      ['.Admin', State::Viral::Admin],
+      ['.Customer', State::Viral::Customer],
+    ].each { |key, mod|
+      if(user.allowed?("login", BBMB.config.auth_domain + key))
+        yield mod
+      end
+    }
+  end
+end
+    end
+  end
+end

data/lib/bbmb/html/state/order.rb

@@ -0,0 +1,21 @@
+#!/usr/bin/env ruby
+# Html::State::Order -- bbmb.ch -- 27.09.2006 -- hwyss@ywesee.com
+
+require 'bbmb/html/state/global'
+require 'bbmb/html/view/order'
+
+module BBMB
+  module Html
+    module State
+class Order < Global
+  VIEW = View::Order
+  def direct_argument_keys
+    [:order_id]
+  end
+  def direct_event
+    [:order, {:order_id => @model.order_id}]
+  end
+end
+    end
+  end
+end

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

@@ -0,0 +1,19 @@
+#!/usr/bin/env ruby
+# Html::State::Orders -- bbmb.ch -- 27.09.2006 -- hwyss@ywesee.com
+
+require 'bbmb/html/state/global'
+require 'bbmb/html/view/orders'
+
+module BBMB
+  module Html
+    module State
+class Orders < Global
+  DIRECT_EVENT = :orders
+  VIEW = View::Orders
+  def init
+    @model = _customer.orders
+  end
+end
+    end
+  end
+end

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

@@ -0,0 +1,64 @@
+#!/usr/bin/env ruby
+# Html::State::Result -- bbmb.ch -- 21.09.2006 -- hwyss@ywesee.com
+
+require 'bbmb/html/state/global'
+require 'bbmb/html/view/result'
+
+module BBMB
+  module Html
+    module State
+class Result < Global
+  class Result 
+    include Enumerable
+    attr_reader :order, :products
+    def initialize(order, products)
+      @order, @products = order, products
+    end
+    def each(&block)
+      @products.each(&block)
+    end
+    def empty?
+      @products.empty?
+    end
+    def ordered_quantity(article_number)
+      @order.quantity(article_number)
+    end
+    def quota(article_id)
+      @order.quota(article_id)
+    end
+    def reverse!
+      @products.reverse!
+    end
+    def size
+      @products.size
+    end
+    def sort_by(&block)
+      @products = @products.sort_by(&block)
+      self
+    end
+    def sort!(*args, &block)
+      @products.sort!(*args, &block)
+    end
+  end
+  VIEW = View::Result
+  def init
+    @query = @session.persistent_user_input(:query)
+    products = Model::Product.search_by_description(@query)
+    unless(@session.lookandfeel.enabled? :free_products, false)
+      products = products.select { |product| product.price }
+    end
+    @model = Result.new _order, products
+  end
+  def direct_argument_keys
+    [:query]
+  end
+  def direct_event
+    [:search, {:query => @query}]
+  end
+  def _order
+    _customer.current_order
+  end
+end
+    end
+  end
+end