From 5da70051a987e2fa3fdfca153f364948de7398bc Mon Sep 17 00:00:00 2001 From: tetragon Date: Tue, 18 Sep 2007 01:02:06 +0000 Subject: More quoting fixes related to bug 1795858 git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1629 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/is.pl | 170 +++++++++++++++++++++++++++++++------------------------------- 1 file changed, 85 insertions(+), 85 deletions(-) (limited to 'bin') diff --git a/bin/is.pl b/bin/is.pl index 52e29a58..3322f695 100755 --- a/bin/is.pl +++ b/bin/is.pl @@ -313,12 +313,12 @@ sub form_header { $exchangerate = qq||; $exchangerate .= qq| - | . $locale->text('Currency') . qq| - + | . $locale->text('Currency') . qq| + | if $form->{defaultcurrency}; $exchangerate .= qq| - - {defaultcurrency}> + + |; if ( $form->{defaultcurrency} @@ -326,36 +326,36 @@ sub form_header { { if ( $form->{forex} ) { $exchangerate .= - qq|| + qq|| . $locale->text('Exchange Rate') - . qq|$form->{exchangerate}{exchangerate}>|; + . qq|$form->{exchangerate}|; } else { $exchangerate .= - qq|| + qq|| . $locale->text('Exchange Rate') - . qq|{exchangerate}>|; + . qq||; } } $exchangerate .= qq| -{forex}> + |; if ( $form->{selectcustomer} ) { - $customer = qq| - $form->{selectcustomer} + |; } else { - $customer = qq||; + $customer = qq||; } $department = qq| | . $locale->text('Department') . qq| - - + @@ -366,10 +366,10 @@ sub form_header { if ( $form->{business} ) { $business = qq| - | . $locale->text('Business') . qq| + | . $locale->text('Business') . qq| $form->{business} - - | . $locale->text('Trade Discount') . qq| + + | . $locale->text('Trade Discount') . qq| | . $form->format_amount( \%myconfig, $form->{tradediscount} * 100 ) . qq| % @@ -378,14 +378,14 @@ sub form_header { } $employee = qq| - + |; $employee = qq| - | . $locale->text('Salesperson') . qq| - - | . $locale->text('Salesperson') . qq| + + | if $form->{selectemployee}; @@ -398,7 +398,7 @@ sub form_header { print qq| -
+ |; $form->hide_form( @@ -406,34 +406,34 @@ sub form_header { ); print qq| - - - +
$form->{title}
+ +
$form->{title}
- - +
+
- - - {customer_id}> - + + + + - - @@ -518,9 +518,9 @@ sub form_footer { } $rows = ( $rows > $introws ) ? $rows : $introws; $notes = -qq||; +qq||; $intnotes = -qq||; +qq||; $form->{taxincluded} = ( $form->{taxincluded} ) ? "checked" : ""; @@ -529,8 +529,8 @@ qq|
| . $locale->text('Customer') . qq|$customer| . $locale->text('Customer') . qq|$customer
+ - + - - + + @@ -443,45 +443,45 @@ sub form_header { - - - + + + $department $exchangerate - - + + - - + +
| . $locale->text('Credit Limit') . qq|| . $locale->text('Credit Limit') . qq| | . $form->format_amount( \%myconfig, $form->{creditlimit}, 0, "0" ) . qq|| . $locale->text('Remaining') . qq|| . $locale->text('Remaining') . qq| | . $form->format_amount( \%myconfig, $form->{creditremaining}, 0, "0" ) . qq|
| . $locale->text('Record in') . qq|| . $locale->text('Record in') . qq|
| . $locale->text('Shipping Point') . qq|| . $locale->text('Shipping Point') . qq|
| . $locale->text('Ship via') . qq|| . $locale->text('Ship via') . qq|
+ $employee - - + + - - - + + + - - + + - - + + - - + +
| . $locale->text('Invoice Number') . qq|| . $locale->text('Invoice Number') . qq|
| . $locale->text('Order Number') . qq|| . $locale->text('Order Number') . qq|
| . $locale->text('Invoice Date') . qq|{transdate}>| . $locale->text('Invoice Date') . qq|{transdate}>
| . $locale->text('Due Date') . qq|{duedate}>| . $locale->text('Due Date') . qq|
| . $locale->text('PO Number') . qq|| . $locale->text('PO Number') . qq|