ydim-html 1.0.1

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

@@ -0,0 +1,104 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+# 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=UTF-8',
+    }
+		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,30 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+# 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,218 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+# 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

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

@@ -0,0 +1,159 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+# Html::View::Invoices -- ydim -- 13.01.2006 -- hwyss@ywesee.com
+
+require 'htmlgrid/list'
+require 'ydim/html/view/template'
+
+module YDIM
+	module Html
+		module View
+class InvoiceList < HtmlGrid::List
+	COMPONENTS = {
+		[0,0]		=>	:unique_id,
+		[1,0]		=>	:name,
+		[2,0]		=>	:email,
+		[3,0]		=>	:description,
+		[4,0]		=>	:formatted_date,
+		[5,0]		=>	:toggle_payment_received,
+		[6,0]		=>	:total_netto,
+		[7,0]		=>	:total_brutto,
+		[8,0]		=>	:currency,
+		[9,0]		=>	:send_invoice,
+		[10,0]	=>	:pdf,
+		[11,0]	=>	:toggle_deleted,
+	}
+	CSS_ID = 'invoices'
+	CSS_MAP = {
+		[6,0,2]	=>	'right',
+	}
+	SORT_DEFAULT = nil
+	class << self
+		def debitor_links(*names)
+			names.each { |name|
+				define_method(name) { |model|
+					link = HtmlGrid::Link.new(name, model, @session, self)
+					link.href = @lookandfeel._event_url(:debitor, 
+																							{:unique_id => model.debitor_id})
+					str = model.send("debitor_#{name}").to_s
+					if(str.length > 30)
+						str = str[0,27] << '...'
+					end
+					link.value = str
+					link
+				}
+			}
+		end
+		def toggle(name, on, off)
+			define_method("toggle_#{name}") { |model|
+				current = model.send(name)
+				key = current ? off : on
+				link = HtmlGrid::Link.new(key, model, @session, self)
+				args = {
+					:unique_id				=>	model.unique_id,
+					name							=>	!current,
+				}
+				url = @lookandfeel._event_url("ajax_#{css_id}", args)
+				link.href = "javascript: reload_list('#{css_id}', '#{url}')"
+				link
+			}
+		end
+	end
+	links :invoice, :date, :unique_id, :description
+	debitor_links :name, :email
+	escaped :total_netto, :total_brutto
+	toggle :deleted, :toggle_deleted, :toggle_recovered
+	toggle :payment_received, :toggle_paid, :toggle_unpaid
+	def row_css(model, bg_flag)
+    [super, model.status].compact.join(' ')
+	end
+	def compose_footer(offset)
+		garbage = false
+		netto = 0.0
+		brutto = 0.0
+		total = @model.each { |invoice|
+			garbage = true if(invoice.deleted)
+			netto += invoice.total_netto
+			brutto += invoice.total_brutto
+		}
+		if(garbage)
+			button = HtmlGrid::Button.new(:collect_garbage, @model, @session, self)
+			url = @lookandfeel._event_url(:ajax_collect_garbage)
+			button.set_attribute('onClick', "reload_list('invoices', '#{url}');")
+			@grid.add(button, *offset)
+			@grid.set_colspan(*offset)
+		else
+			label = HtmlGrid::LabelText.new(:total, @model, @session, self)
+			lpos = column_position(:name, offset)
+			@grid.add(label, *lpos)
+			@grid.set_colspan(*lpos.push(2))
+			total(:total_netto, netto, offset)
+			total(:total_brutto, brutto, offset)
+			lpos = column_position(:currency, offset)
+			@grid.add(Html.config.currency, *lpos)
+		end
+	end
+	def total(key, total, offset)
+		tpos = column_position(key, offset)
+		@grid.add(number_format(format(total)), *tpos)
+		@grid.add_attribute('class', 'right total', *tpos)
+	end
+	def column_position(key, offset)
+		pos = components.key(key)
+		[pos.at(0) + offset.at(0), pos.at(1) + offset.at(1)]
+	end
+	def formatted_date(model)
+		if(date = model.date)
+			link = date(model)
+			link.value = @lookandfeel.format_date(date)
+			link
+		end
+	end
+	def pdf(model)
+		link = HtmlGrid::Link.new(:pdf, model, @session, self)
+		link.href = @lookandfeel._event_url(:pdf, {:unique_id => model.unique_id})
+		link
+	end
+	def send_invoice(model)
+		if(model.status == 'is_due')
+			link = HtmlGrid::Link.new(:send_invoice, model, @session, self)
+			link.href = @lookandfeel._event_url(:send_invoice, 
+																					{:unique_id => model.unique_id})
+			link
+		end
+	end
+end
+class InvoicesSubnavigation < HtmlGrid::DivComposite
+	def InvoicesSubnavigation.status_links(*names)
+		names.each { |name|
+			define_method(name) { |model|
+				link = HtmlGrid::Link.new(name, model, @session, self)
+				url = @lookandfeel._event_url(:ajax_status, {:status => name })
+				link.href =	"javascript:reload_list('invoices', '#{url}');"
+				link
+			}
+		}
+	end
+	status_links :is_open, :is_paid, :is_due, :is_trash
+	COMPONENTS = {
+		[0,0]	=>	:is_open,
+		[1,0]	=>	:is_due,
+		[2,0]	=>	:is_paid,
+		[3,0]	=>	:is_trash,
+	}
+	CSS_ID_MAP = ['subnavigation']
+end
+class InvoicesComposite < HtmlGrid::DivComposite
+	COMPONENTS = {
+		[0,0]	=>	InvoiceList,
+	}
+end
+class Invoices < Template
+	CONTENT = InvoicesComposite
+	def subnavigation(model)
+		InvoicesSubnavigation.new(model, @session, self)
+	end
+end
+		end
+	end
+end