ydim_html 1.0.0

data/lib/ydim/html/view/autoinvoices.rb

@@ -0,0 +1,41 @@
+#!/usr/bin/env ruby
+# Html::View::AutoInvoices -- de.oddb.org -- 13.12.2006 -- hwyss@ywesee.com
+
+require 'ydim/html/view/invoices'
+
+module YDIM
+  module Html
+    module View
+class AutoInvoiceList < InvoiceList
+  COMPONENTS = {
+    [0,0]  =>  :unique_id,
+    [1,0]  =>  :name,
+    [2,0]  =>  :email,
+    [3,0]  =>  :description,
+    [4,0]  =>  :formatted_date,
+    [5,0]  =>  :total_netto,
+    [6,0]  =>  :total_brutto,
+    [7,0]  =>  :currency,
+    [8,0]  =>  :generate_invoice,
+    [9,0]  =>  :delete,
+  }
+  CSS_ID = 'autoinvoices'
+  links :autoinvoice, :date, :unique_id, :description
+  def delete(model)
+    link = HtmlGrid::Link.new(:delete, model, @session, self)
+    url = @lookandfeel._event_url(:ajax_delete_autoinvoice,
+                                 [:unique_id, model.unique_id])
+    link.href = sprintf("javascript: reload_list('%s', '%s')", 
+                        css_id, url)
+    link
+  end
+  def generate_invoice(model)
+    link = HtmlGrid::Link.new(:generate_invoice, model, @session, self)
+    link.href = @lookandfeel._event_url(:generate_invoice, 
+                                        {:unique_id => model.unique_id})
+    link
+  end
+end
+    end
+  end
+end

data/lib/ydim/html/view/confirm.rb

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby
+# Html::View::Confirm -- ydim -- 18.01.2006 -- hwyss@ywesee.com
+
+require 'ydim/html/view/template'
+require 'htmlgrid/div'
+
+module YDIM
+	module Html
+		module View
+class ConfirmComponent < HtmlGrid::Div
+	CSS_ID = 'confirm'
+	def init
+		@value = @model
+	end
+end
+class Confirm < Template
+	CONTENT = ConfirmComponent
+	def http_headers
+		headers = super
+		url = @lookandfeel._event_url(:invoices)
+		headers.store('Refresh', "5; URL=#{url}")
+		headers
+	end
+end
+		end
+	end
+end

data/lib/ydim/html/view/debitor.rb

@@ -0,0 +1,111 @@
+#!/usr/bin/env ruby
+# Html::View::Debitor -- ydim -- 12.01.2006 -- hwyss@ywesee.com
+
+require 'ydim/html/view/template'
+require 'ydim/html/view/autoinvoices'
+require 'ydim/html/view/invoices'
+require 'htmlgrid/inputtext'
+require 'htmlgrid/inputdate'
+require 'htmlgrid/labeltext'
+require 'htmlgrid/select'
+require 'htmlgrid/textarea'
+
+module YDIM
+	module Html
+		module View
+class Textarea < HtmlGrid::Textarea
+	LABEL = true
+end
+class DebitorForm < HtmlGrid::Form
+	COMPONENTS = {
+		[0,0]	=> :unique_id,
+		[0,1]	=> :debitor_type,
+		[0,2]	=> :name,
+		[0,3]	=> :salutation,
+		[0,4]	=> :contact,
+		[0,5]	=> :contact_firstname,
+		[0,6]	=> :contact_title,
+		[0,7]	=> :address_lines,
+		[0,8]	=> :location,
+		[0,9]	=> :country,
+		[0,10]	=> :emails,
+		[0,11]	=>	:phone,
+		[1,12]	=> :submit,
+	}
+	FORM_ID = 'debitor'
+	EVENT = :update
+	SYMBOL_MAP = {
+    :debitor_type => HtmlGrid::Select,
+		:unique_id		=>	HtmlGrid::Value,
+		:salutation		=>	HtmlGrid::Select,
+	}
+  def emails(model, session=@session)
+    input = HtmlGrid::InputText.new(:emails, model, @session, self)
+    if error = @session.error(:emails)
+      input.value = error.value
+    else
+      input.value = model.emails.join(', ')
+    end
+    input.css_class = 'extralarge'
+    input
+  end
+	def hidden_fields(context)
+		super << context.hidden('unique_id', @model.unique_id)
+	end
+end
+class DebitorComposite < HtmlGrid::DivComposite
+	COMPONENTS = {
+		[0,0]	=>	DebitorForm,
+		[0,1]	=>	:is_open,
+		[1,1]	=>	:is_due,
+		[2,1]	=>	:is_paid,
+		[3,1]	=>	:is_trash,
+		[0,2]	=>	:invoices,
+		[0,3]	=>	:invoice_list,
+		[0,4]	=>	:create_invoice,
+		[0,5]	=>	:autoinvoices,
+		[0,6]	=>	:autoinvoice_list,
+		[0,7]	=>	:create_autoinvoice,
+	}
+	CSS_MAP = {
+		1	=>	'subnavigation',
+		2	=>	'padded',
+		4	=>	'padded',
+		5	=>	'padded',
+		7	=>	'padded',
+	}
+	SYMBOL_MAP = {
+		:invoices	    =>	HtmlGrid::LabelText,
+		:autoinvoices	=>	HtmlGrid::LabelText,
+	}
+  def autoinvoice_list(model)
+    AutoInvoiceList.new(@session.state.autoinvoice_infos, @session, self)
+  end
+  def button(key, model)
+  	if(model.unique_id)
+  		button = HtmlGrid::Button.new(key, model, @session, self)
+  		args = {:unique_id => model.unique_id}
+  		url = @lookandfeel._event_url(key, args)
+  		button.set_attribute('onClick', "document.location.href='#{url}'")
+  		button
+  	end
+  end
+  def create_autoinvoice(model)
+    button(:create_autoinvoice, model)
+  end
+  def create_invoice(model)
+    button(:create_invoice, model)
+  end
+	def invoice_list(model)
+		InvoiceList.new(@session.state.invoice_infos, @session, self)
+	end
+end
+class Debitor < Template
+	CONTENT = DebitorComposite
+	def subnavigation(model)
+		InvoicesSubnavigation.new(model, @session, self)
+	end
+end
+		end
+	end
+end

data/lib/ydim/html/view/debitors.rb

@@ -0,0 +1,44 @@
+#!/usr/bin/env ruby
+# Html::View::Debitors -- ydim -- 12.01.2006 -- hwyss@ywesee.com
+
+require 'ydim/html/view/template'
+require 'htmlgrid/formlist'
+
+module YDIM
+	module Html
+		module View
+class DebitorList < HtmlGrid::FormList
+	COMPONENTS = {
+		[0,0]	=>	:unique_id,
+		[1,0]	=>	:name,
+		[2,0]	=>	:email,
+		[3,0]	=>	:phone,
+		[4,0]	=>	:next_invoice_date,
+		[5,0]	=>	:debitor_type,
+	}
+	EVENT = :create_debitor
+	SORT_DEFAULT = nil
+	def debitor_type(model)
+		@lookandfeel.lookup(model.debitor_type)
+	end
+	def next_invoice_date(model)
+		if(date = model.next_invoice_date)
+			@lookandfeel.format_date(date)
+		end
+	end
+	def phone(model)
+		if(phone = model.phone)
+			link = HtmlGrid::Link.new(:phone, model, @session, self)
+			link.href = "callto://#{phone.delete(' ')}"
+			link.value = phone
+			link
+		end
+	end
+	links :debitor, :name, :unique_id
+end
+class Debitors < Template
+	CONTENT = DebitorList
+end
+		end
+	end
+end

data/lib/ydim/html/view/htmlgrid.rb

@@ -0,0 +1,103 @@
+#!/usr/bin/env ruby
+# HtmlGrid -- ydim -- 13.01.2006 -- hwyss@ywesee.com
+
+require 'htmlgrid/component'
+require 'htmlgrid/composite'
+require 'htmlgrid/errormessage'
+require 'htmlgrid/form'
+require 'htmlgrid/input'
+require 'htmlgrid/inputtext'
+require 'htmlgrid/list'
+require 'htmlgrid/pass'
+
+module HtmlGrid
+	class Component
+    HTTP_HEADERS = {
+			"Cache-Control"	=>	"no-cache, max-age=3600, must-revalidate",
+      'Content-Type'	=>	'text/html; charset=ISO-8859-1',
+    }
+		class << self
+			def escaped(*names)
+				names.each { |name|
+					define_method(name) { |model| 
+						number_format escape(model.send(name))
+					}
+				}
+			end
+			def links(event, *names)
+				names.each { |name|
+					define_method(name) { |model| 
+						link = HtmlGrid::Link.new(name, model, @session, self)
+						args = {:unique_id => model.unique_id}
+						link.href = @lookandfeel._event_url(event, args)
+						link.value = model.send(name)
+						link
+					}
+				}
+			end
+		end
+		def escape(value)
+			CGI.escape(format(value))
+		end
+		def format(value)
+			case value
+			when Float
+				sprintf("%1.#{self.precision}f", value)
+			else 
+				value.to_s
+			end
+		end
+    def number_format(string)
+      string.reverse.gsub(/\d{3}(?=\d)(?!\d*\.)/) do |match|
+        match << "'"
+      end.reverse
+    end
+		def precision
+			mdl = @session.state.model
+			if(mdl.respond_to?(:precision))
+				mdl.precision
+			else
+				2
+			end
+		end
+	end
+	class Composite 
+		LEGACY_INTERFACE = false
+	end
+	class Form 
+		include HtmlGrid::ErrorMessage
+		DEFAULT_CLASS = HtmlGrid::InputText
+		LABELS = true
+		def init
+			super
+			error_message
+		end
+	end
+	class InputText
+		CSS_CLASS = 'large'
+	end
+	class List
+		STRIPED_BG = false
+		def List.ajax_inputs(*keys)
+			keys.each { |key|
+				define_method(key) { |model|
+					name = "#{key}[#{model.index}]"
+					input = HtmlGrid::InputText.new(name, model, @session, self)
+					input.value = format(model.send(key))
+					input.css_id = name
+					args = [
+						:unique_id,	@session.state.model.unique_id,
+						:index,			model.index, 
+						key,				nil,
+					]
+					url = @lookandfeel.event_url(:ajax_item, args)
+					input.set_attribute('onChange', "reload_data('#{url}' + sbsm_encode(this.value))")
+					input
+				}
+			}
+		end
+	end
+	class Pass
+		CSS_CLASS = 'large'
+	end
+end

data/lib/ydim/html/view/init.rb

@@ -0,0 +1,29 @@
+#!/usr/bin/env ruby
+# Html::View::Init -- ydim -- 12.01.2006 -- hwyss@ywesee.com
+
+require 'ydim/html/view/template'
+require 'htmlgrid/pass'
+require 'htmlgrid/inputtext'
+
+module YDIM
+	module Html
+		module View
+class InitForm < HtmlGrid::Form
+	COMPONENTS = {
+		[0,0]	=> :email,
+		[0,1]	=> :pass,
+		[1,2]	=> :submit,
+	}
+	EVENT = :login
+	SYMBOL_MAP = {
+		:email	=>	HtmlGrid::InputText,
+		:pass		=>	HtmlGrid::Pass,
+	}
+end
+class Init < Template
+	CONTENT = InitForm
+	FOOT = nil
+end
+		end
+	end
+end

data/lib/ydim/html/view/invoice.rb

@@ -0,0 +1,217 @@
+#!/usr/bin/env ruby
+# Html::View::Invoice -- ydim -- 16.01.2006 -- hwyss@ywesee.com
+
+require 'ydim/html/view/template'
+require 'htmlgrid/form'
+require 'htmlgrid/inputcheckbox'
+require 'htmlgrid/inputdate'
+require 'htmlgrid/errormessage'
+require 'htmlgrid/select'
+require 'htmlgrid/textarea'
+
+module YDIM
+	module Html
+		module View
+class SpanValue < HtmlGrid::Value
+	def init
+		super
+		@attributes.store('id', @name)
+	end
+	def to_html(context)
+		context.span(@attributes) { number_format escape(@value) }
+	end
+end
+class ItemList < HtmlGrid::List
+	COMPONENTS = {
+		[0,0]	=>	:time,
+		[1,0]	=>	:text,
+		[2,0]	=>	:quantity,
+		[3,0]	=>	:unit,
+		[4,0]	=>	:price,
+		[5,0]	=>	:total_netto,
+		[6,0]	=>	:delete,
+	}
+	CSS_ID = 'items'
+	CSS_MAP = {
+		[0,0]	=>	'standard-width',
+		[5,0]	=>	'right',
+	}
+	COMPONENT_CSS_MAP = {
+		[1,0]	=>	'extralarge',
+		[2,0]	=>	'small',
+		[3,0]	=>	'medium',
+		[4,0]	=>	'medium',
+	}
+	DEFAULT_CLASS = HtmlGrid::InputText
+	SORT_DEFAULT = nil
+	ajax_inputs :text, :quantity, :unit, :price
+	def compose_footer(offset)
+		link = HtmlGrid::Button.new(:create_item, @model, @session, self)
+		args = { :unique_id => @session.state.model.unique_id }
+		url = @lookandfeel.event_url(:ajax_create_item, args)
+		link.set_attribute('onClick', "reload_list('items', '#{url}');")
+		@grid.add(link, *offset)
+	end
+	def delete(model)
+		link = HtmlGrid::Link.new(:delete, model, @session, self)
+		args = {
+			:unique_id	=>	@session.state.model.unique_id,
+			:index			=>	model.index,
+		}
+		url = @lookandfeel.event_url(:ajax_delete_item, args)
+		link.href = "javascript: reload_list('items', '#{url}')"
+		link
+	end
+	def time(model)
+		if(time = model.time)
+			@lookandfeel.format_time(model.time)
+		end
+	end
+	def total_netto(model)
+		val = SpanValue.new(:total_netto, model, @session, self)
+		val.css_id = "total_netto#{model.index}"
+		val
+	end
+end
+class InvoiceTotalComposite < HtmlGrid::Composite
+	COMPONENTS = {
+		[0,0]	=>	:total_netto,
+		[0,1]	=>	:vat,
+		[0,2]	=>	:total_brutto,
+	}
+	CSS_ID = 'total'
+	CSS_MAP = {
+		[1,0,1,3]	=>	'right',
+	}
+	DEFAULT_CLASS = SpanValue
+	LABELS = true
+end
+class InvoiceInnerComposite < HtmlGrid::Composite
+	include HtmlGrid::ErrorMessage
+	links :debitor, :name, :email
+  COMPONENTS = {
+    [0,0]		=>	:unique_id,
+    [0,1,0]	=>	:debitor_name,
+    [1,1,1]	=>	'dash',
+    [1,1,2]	=>	:debitor_email,
+    [0,2]		=>	:description,
+    [0,3]		=>	:date,
+    [1,3]		=>	:payment_period,
+    [0,4]		=>	:currency,
+    [0,5]		=>	:precision,
+    [0,6]   =>  :suppress_vat,
+  }
+	COMPONENT_CSS_MAP = {
+		[0,2]	=>	'extralarge',
+		[0,5]	=>	'small',
+	}
+	DEFAULT_CLASS = HtmlGrid::Value
+	LABELS = true
+	SYMBOL_MAP = {
+		:date					      =>	HtmlGrid::InputDate,
+		:description	      =>	HtmlGrid::InputText,
+    :invoice_interval   =>  HtmlGrid::Select,
+    :reminder_subject   =>  HtmlGrid::InputText,
+	}
+	def init
+		super
+		error_message
+	end
+	def currency(model)
+		select = HtmlGrid::Select.new(:currency, model, @session, self)
+		if(model.unique_id)
+			select.set_attribute('onChange', "reload_form('invoice', 'ajax_invoice');")
+		end
+		select
+	end
+	def debitor_email(model)
+		email(model.debitor)
+	end
+	def debitor_name(model)
+		link = name(model.debitor)
+		link.label = true
+		link
+	end
+  def payment_period(model)
+    @lookandfeel.lookup(:payment_period, model.payment_period.to_i)
+  end
+	def precision(model)
+		input = HtmlGrid::InputText.new(:precision, model, @session, self)
+		if(model.unique_id)
+			input.set_attribute('onChange', "reload_form('invoice', 'ajax_invoice');")
+		end
+		input
+	end
+  def suppress_vat(model)
+    input = HtmlGrid::InputCheckbox.new(:suppress_vat, model, @session, self)
+		if(model.unique_id)
+			input.set_attribute('onClick', "reload_form('invoice', 'ajax_invoice');")
+		end
+    input
+  end
+end
+class InvoiceComposite < HtmlGrid::DivComposite
+	include HtmlGrid::FormMethods
+	FORM_ID = 'invoice'
+	COMPONENTS = {
+		[0,0]	=>	InvoiceInnerComposite,
+		[0,1]	=>	:items,
+		[0,2]	=>	InvoiceTotalComposite,
+		[0,3]	=>	:submit,
+		[1,3]	=>	:pdf,
+		[2,3]	=>	:send_invoice,
+	}
+	CSS_MAP = {
+		3	=>	'padded'
+	}
+	EVENT = :update
+	def init
+		if(@model.unique_id.nil?)
+			@components = {
+				[0,0]	=>	components[[0,0]],
+				[0,1]	=>	:submit,
+			}
+			@css_map = { 1 => 'padded' }
+		elsif(@model.items.empty?)
+			@components = {
+				[0,0]	=>	components[[0,0]],
+				[0,1]	=>	:items,
+				[0,2]	=>	:submit,
+			}
+			@css_map = { 2 => 'padded' }
+		end
+		super
+	end
+	def hidden_fields(context)
+		super << context.hidden('unique_id', @model.unique_id)
+	end
+	def items(model)
+		ItemList.new(model.items, @session, self)
+	end
+	def pdf(model)
+		button = HtmlGrid::Button.new(:pdf, model, @session, self)
+		url = @lookandfeel._event_url(:pdf, {:unique_id => model.unique_id})
+		button.set_attribute('onClick', "document.location.href='#{url}'")
+		button
+	end
+	def send_invoice(model)
+    button(:send_invoice, model)
+  end
+  def button(key, model)
+		button = HtmlGrid::Button.new(key, model, @session, self)
+		url = @lookandfeel._event_url(key, {:unique_id => model.unique_id})
+		button.set_attribute('onClick', 
+      "this.form.event.value='#{key}'; this.form.submit()")
+		button
+	end
+end
+class Invoice < Template
+	CONTENT = InvoiceComposite
+	def init
+		css_map[1] = @model.status
+		super
+	end
+end
+		end
+	end
+end