From c1ccbe59533c208e0769ccd58478db58c34f1aaf Mon Sep 17 00:00:00 2001 From: tetragon Date: Tue, 18 Sep 2007 01:43:40 +0000 Subject: More quoting fixes related to 1795858 git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1630 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/arapprn.pl | 40 ++++++++++++++++++++-------------------- 1 file changed, 20 insertions(+), 20 deletions(-) (limited to 'bin/arapprn.pl') diff --git a/bin/arapprn.pl b/bin/arapprn.pl index 2d5bf189..d55cef58 100755 --- a/bin/arapprn.pl +++ b/bin/arapprn.pl @@ -589,7 +589,7 @@ sub select_payment { $title = $locale->text('Select payment'); - $column_data{ndx} = qq| |; + $column_data{ndx} = qq| |; $column_data{datepaid} = qq|| . $locale->text('Date') . qq||; $column_data{source} = qq|| . $locale->text('Source') . qq||; $column_data{memo} = qq|| . $locale->text('Memo') . qq||; @@ -600,17 +600,17 @@ sub select_payment { print qq| -
{script}> + - +
- + - + |; print qq|
- + |; if ($ok) { @@ -697,8 +697,8 @@ sub print_options { $form->{"selectlanguage"} =~ s/ selected//; $form->{"selectlanguage"} =~ s/(
$title$title
- - |; +
+ |; for (@column_index) { print "\n$column_data{$_}" } @@ -629,8 +629,8 @@ sub select_payment { $ok = 1; $column_data{ndx} = -qq||; - $column_data{paid} = qq||; +qq||; + $column_data{paid} = qq||; $checked = ""; @@ -652,7 +652,7 @@ qq||; - +
$paid$paid
|; @@ -664,7 +664,7 @@ qq|
-
$type $lang $format $media + |; if ( $form->{printed} =~ /$form->{formname}/ ) { -- cgit v1.2.3