From db61c90de910fcaa179ed764e8e588a23584a3a1 Mon Sep 17 00:00:00 2001 From: tetragon Date: Tue, 18 Sep 2007 02:53:07 +0000 Subject: More quoting (see bug 1795858) git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1631 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/ca.pl | 158 ++++++++++++++++++------------------- bin/cp.pl | 266 +++++++++++++++++++++++++++++++------------------------------- bin/pw.pl | 4 +- bin/rc.pl | 178 ++++++++++++++++++++--------------------- 4 files changed, 303 insertions(+), 303 deletions(-) (limited to 'bin') diff --git a/bin/ca.pl b/bin/ca.pl index e060b020..1c8a9121 100755 --- a/bin/ca.pl +++ b/bin/ca.pl @@ -87,15 +87,15 @@ sub chart_of_accounts { @column_index = qw(accno gifi_accno description debit credit); $column_header{accno} = - qq|| . $locale->text('Account') . qq|\n|; + qq|| . $locale->text('Account') . qq|\n|; $column_header{gifi_accno} = - qq|| . $locale->text('GIFI') . qq|\n|; + qq|| . $locale->text('GIFI') . qq|\n|; $column_header{description} = - qq|| . $locale->text('Description') . qq|\n|; + qq|| . $locale->text('Description') . qq|\n|; $column_header{debit} = - qq|| . $locale->text('Debit') . qq|\n|; + qq|| . $locale->text('Debit') . qq|\n|; $column_header{credit} = - qq|| . $locale->text('Credit') . qq|\n|; + qq|| . $locale->text('Credit') . qq|\n|; $form->{title} = $locale->text('Chart of Accounts'); @@ -106,10 +106,10 @@ sub chart_of_accounts { print qq| - - +

$form->{title}

+ - |; + |; for (@column_index) { print $column_header{$_} } @@ -128,27 +128,27 @@ qq|$form->{script}?path=$form->{path}&action=list&accno=$ca->{accno}&login=$form if ( $ca->{charttype} eq "H" ) { print qq||; for (qw(accno description)) { - $column_data{$_} = ""; + $column_data{$_} = qq||; } $column_data{gifi_accno} = - ""; + qq||; } else { $i++; $i %= 2; - print qq||; - $column_data{accno} = ""; + print qq||; + $column_data{accno} = qq||; $column_data{gifi_accno} = -""; +qq||; $column_data{description} = ""; } $column_data{debit} = - "\n"; $column_data{credit} = - "\n"; @@ -167,20 +167,20 @@ qq|$form->{script}?path=$form->{path}&action=list&accno=$ca->{accno}&login=$form } $column_data{debit} = - ""; $column_data{credit} = - ""; - print ""; + print ''; for (@column_index) { print "$column_data{$_}\n" } print qq| - +

$form->{title}
$ca->{$_}	$ca->{$_}	$ca->{gifi_accno}	$ca->{gifi_accno}
$ca->{accno}
$ca->{accno}	$ca->{gifi_accno}	$ca->{gifi_accno}	$ca->{description}	" + '	' . $form->format_amount( \%myconfig, $ca->{debit}, 2, " " ) . "	" + '	' . $form->format_amount( \%myconfig, $ca->{credit}, 2, " " ) . "	" + '	' . $form->format_amount( \%myconfig, $totaldebit, 2, 0 ) . "	" + '	' . $form->format_amount( \%myconfig, $totalcredit, 2, 0 ) . "

@@ -217,8 +217,8 @@ qq|