D1565.id3993.diff
No OneTemporary
Actions

Size

569 B

Referenced Files

None

Subscribers

None

D1565.id3993.diff
View Options

	diff --git a/Daeghrefn/Bureautique.tcl b/Daeghrefn/Bureautique.tcl
	--- a/Daeghrefn/Bureautique.tcl
	+++ b/Daeghrefn/Bureautique.tcl
	@@ -186,6 +186,17 @@
	# Paypal calculation
	#

	+proc dcc:paypal {handle idx arg} {
	+ set net [::paypal::gross2net $arg]
	+ set gross [::paypal::net2gross $arg]
	+ set len [strlen $gross]
	+
	+ if {[isnumber $arg]} {
	+ putdcc $idx "Net: [format %${len}s $net]"
	+ putdcc $idx "Gross: [format %${len}s $gross]"
	+ }
	+}
	+
	namespace eval ::paypal {
	# -rate% - 0.35 €
	# Default rate: 3.4% for EU