From 487bf0557f2d93be1679ca571b832b1ee6e80a7a Mon Sep 17 00:00:00 2001 From: tetragon Date: Mon, 5 Nov 2007 15:11:03 +0000 Subject: Templating the pricelist, needs more testing git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1851 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/ct.pl | 297 +++++++++++++++++++++++++++----------------------------------- 1 file changed, 128 insertions(+), 169 deletions(-) (limited to 'bin') diff --git a/bin/ct.pl b/bin/ct.pl index 8244738b..91f13eb4 100644 --- a/bin/ct.pl +++ b/bin/ct.pl @@ -1524,9 +1524,10 @@ sub pricelist { # currencies @curr = split /:/, $form->{currencies}; - for (@curr) { $form->{selectcurrency} .= "