summaryrefslogtreecommitdiff
path: root/bin/cp.pl
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-09-18 02:53:07 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-09-18 02:53:07 +0000
commitdb61c90de910fcaa179ed764e8e588a23584a3a1 (patch)
tree18e129b785e8ea81ba089453e9d817eb76f98660 /bin/cp.pl
parentc1ccbe59533c208e0769ccd58478db58c34f1aaf (diff)
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
Diffstat (limited to 'bin/cp.pl')
-rwxr-xr-xbin/cp.pl266
1 files changed, 133 insertions, 133 deletions
diff --git a/bin/cp.pl b/bin/cp.pl
index 8dc10f06..4c9b1c86 100755
--- a/bin/cp.pl
+++ b/bin/cp.pl
@@ -262,10 +262,10 @@ sub payments_header {
if ( $form->{defaultcurrency} ) {
$exchangerate = qq|
<tr>
- <th align=right nowrap>| . $locale->text('Currency') . qq|</th>
- <td><select name=currency>$form->{selectcurrency}</select></td>
- <input type=hidden name=selectcurrency value="$form->{selectcurrency}">
- <input type=hidden name=oldcurrency value=$form->{oldcurrency}>
+ <th align="right" nowrap>| . $locale->text('Currency') . qq|</th>
+ <td><select name="currency">$form->{selectcurrency}</select></td>
+ <input type="hidden" name="selectcurrency" value="$form->{selectcurrency}">
+ <input type="hidden" name="oldcurrency" value="$form->{oldcurrency}">
</tr>
|;
}
@@ -277,16 +277,16 @@ sub payments_header {
if ( $form->{forex} ) {
$exchangerate .= qq|
<tr>
- <th align=right nowrap>| . $locale->text('Exchange Rate') . qq|</th>
- <td colspan=3><input type=hidden name=exchangerate size=10 value=$form->{exchangerate}>$form->{exchangerate}</td>
+ <th align="right" nowrap>| . $locale->text('Exchange Rate') . qq|</th>
+ <td colspan="3"><input type="hidden" name="exchangerate" size="10" value="$form->{exchangerate}">$form->{exchangerate}</td>
</tr>
|;
}
else {
$exchangerate .= qq|
<tr>
- <th align=right nowrap>| . $locale->text('Exchange Rate') . qq|</th>
- <td colspan=3><input name=exchangerate size=10 value=$form->{exchangerate}></td>
+ <th align="right" nowrap>| . $locale->text('Exchange Rate') . qq|</th>
+ <td colspan="3"><input name="exchangerate" size="10" value="$form->{exchangerate}"></td>
</tr>
|;
}
@@ -295,8 +295,8 @@ sub payments_header {
$department = qq|
<tr>
<th align="right" nowrap>| . $locale->text('Department') . qq|</th>
- <td><select name=department>$form->{selectdepartment}</select>
- <input type=hidden name=selectdepartment value="|
+ <td><select name="department">$form->{selectdepartment}</select>
+ <input type="hidden" name="selectdepartment" value="|
. $form->escape( $form->{selectdepartment}, 1 ) . qq|">
</td>
</tr>
@@ -307,7 +307,7 @@ sub payments_header {
print qq|
<body>
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
|;
$form->hide_form(
@@ -315,48 +315,48 @@ sub payments_header {
);
print qq|
-<table width=100%>
+<table width="100%">
<tr>
- <th class=listtop>$form->{title}</th>
+ <th class="listtop">$form->{title}</th>
</tr>
<tr height="5"></tr>
<tr>
<td>
- <table width=100%>
- <tr valign=top>
+ <table width="100%">
+ <tr valign="top">
<td>
<table>
<tr>
- <th align=right>|
+ <th align="right">|
. $locale->text('Due Date')
. qq|&nbsp;|
. $locale->text('From')
. qq|</th>
- <td><input name=duedatefrom value="$form->{duedatefrom}" title="$myconfig{dateformat}" size=11></td>
- <th align=right>| . $locale->text('To') . qq|</th>
- <td><input name=duedateto value="$form->{duedateto}" title="$myconfig{dateformat}" size=11></td>
+ <td><input name="duedatefrom" value="$form->{duedatefrom}" title="$myconfig{dateformat}" size="11"></td>
+ <th align="right">| . $locale->text('To') . qq|</th>
+ <td><input name="duedateto" value="$form->{duedateto}" title="$myconfig{dateformat}" size="11"></td>
</tr>
</table>
</td>
</td>
- <td align=right>
+ <td align="right">
<table>
$department
<tr>
- <th align=right nowrap>| . $locale->text( $form->{ARAP} ) . qq|</th>
- <td colspan=3><select name=$form->{ARAP}>$form->{"select$form->{ARAP}"}</select>
+ <th align="right" nowrap>| . $locale->text( $form->{ARAP} ) . qq|</th>
+ <td colspan="3"><select name="$form->{ARAP}">$form->{"select$form->{ARAP}"}</select>
</td>
- <input type=hidden name="select$form->{ARAP}" value="$form->{"select$form->{ARAP}"}">
+ <input type="hidden" name="select$form->{ARAP}" value="$form->{"select$form->{ARAP}"}">
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('Account') . qq|</th>
- <td colspan=3><select name=account>$form->{selectaccount}</select>
- <input type=hidden name=selectaccount value="$form->{selectaccount}">
+ <th align="right" nowrap>| . $locale->text('Account') . qq|</th>
+ <td colspan="3"><select name="account">$form->{selectaccount}</select>
+ <input type="hidden" name="selectaccount" value="$form->{selectaccount}">
</td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('Date') . qq|</th>
- <td><input name=datepaid value="$form->{datepaid}" title="$myconfig{dateformat}" size=11></td>
+ <th align="right" nowrap>| . $locale->text('Date') . qq|</th>
+ <td><input name="datepaid" value="$form->{datepaid}" title="$myconfig{dateformat}" size="11"></td>
</tr>
$exchangerate
</table>
@@ -381,12 +381,12 @@ sub invoices_due {
$vclabel = $locale->text($vclabel);
print qq|
- <input type=hidden name=column_index value="id @column_index">
+ <input type="hidden" name="column_index" value="id @column_index">
<tr>
<td>
- <table width=100%>
+ <table width="100"%>
<tr>
- <th class=listheading colspan=$colspan>$invoice</th>
+ <th class="listheading" colspan="$colspan">$invoice</th>
</tr>
|;
@@ -435,20 +435,20 @@ sub invoices_due {
}
$column_data{invnumber} = qq|<td>$form->{"invnumber_$i"}</td>
- <input type=hidden name="invnumber_$i" value="$form->{"invnumber_$i"}">
- <input type=hidden name="id_$i" value=$form->{"id_$i"}>|;
+ <input type="hidden" name="invnumber_$i" value="$form->{"invnumber_$i"}">
+ <input type="hidden" name="id_$i" value="$form->{"id_$i"}">|;
$column_data{transdate} = qq|<td>$form->{"transdate_$i"}</td>
- <input type=hidden name="transdate_$i" value=$form->{"transdate_$i"}>|;
- $column_data{amount} = qq|<td align=right>$form->{"amount_$i"}</td>
- <input type=hidden name="amount_$i" value=$form->{"amount_$i"}>|;
- $column_data{due} = qq|<td align=right>$form->{"due_$i"}</td>
- <input type=hidden name="due_$i" value=$form->{"due_$i"}>|;
+ <input type="hidden" name="transdate_$i" value="$form->{"transdate_$i"}">|;
+ $column_data{amount} = qq|<td align="right">$form->{"amount_$i"}</td>
+ <input type="hidden" name="amount_$i" value="$form->{"amount_$i"}">|;
+ $column_data{due} = qq|<td align="right">$form->{"due_$i"}</td>
+ <input type="hidden" name="due_$i" value="$form->{"due_$i"}">|;
if ( $form->{"paid_$i"} =~ /NaN/ ) {
$form->{"paid_$i"} = '';
}
$column_data{paid} =
-qq|<td align=right><input name="paid_$i" size=10 value=$form->{"paid_$i"}></td>|;
+qq|<td align="right"><input name="paid_$i" size="10" value="$form->{"paid_$i"}"></td>|;
if ( $same_id eq $form->{"$form->{vc}_id_$i"} ) {
for (qw(name memo source language)) {
@@ -458,9 +458,9 @@ qq|<td align=right><input name="paid_$i" size=10 value=$form->{"paid_$i"}></td>|
else {
$column_data{name} = qq|<td>$form->{"name_$i"}</td>|;
$column_data{memo} =
-qq|<td align=right><input name="memo_$i" size=10 value="$form->{"memo_$i"}"></td>|;
+qq|<td align="right"><input name="memo_$i" size="10" value="$form->{"memo_$i"}"></td>|;
$column_data{source} =
-qq|<td align=right><input name="source_$i" size=10 value="$form->{"source_$i"}"></td>|;
+qq|<td align="right"><input name="source_$i" size="10" value="$form->{"source_$i"}"></td>|;
if ( $form->{selectlanguage} ) {
$selectlanguage = $form->{selectlanguage};
@@ -473,17 +473,17 @@ qq|<td><select name="language_code_$i">$selectlanguage</select></td>|;
}
$column_data{name} .= qq|
- <input type=hidden name="name_$i" value="$form->{"name_$i"}">
- <input type=hidden name="$form->{vc}_id_$i" value="$form->{"$form->{vc}_id_$i"}">|;
+ <input type="hidden" name="name_$i" value="$form->{"name_$i"}">
+ <input type="hidden" name="$form->{vc}_id_$i" value="$form->{"$form->{vc}_id_$i"}">|;
$form->{"checked_$i"} = ( $form->{"checked_$i"} ) ? "checked" : "";
$column_data{checked} =
-qq|<td align=center><input name="checked_$i" type=checkbox class=checkbox $form->{"checked_$i"}></td>|;
+qq|<td align="center"><input name="checked_$i" type="checkbox" class="checkbox" $form->{"checked_$i"}></td>|;
$j++;
$j %= 2;
print qq|
- <tr class=listrow$j>
+ <tr class="listrow$j">
|;
for (@column_index) { print "$column_data{$_}\n" }
print qq|
@@ -497,20 +497,20 @@ qq|<td align=center><input name="checked_$i" type=checkbox class=checkbox $form-
for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
$column_data{amount} =
- qq|<th class=listtotal align=right>|
+ qq|<th class="listtotal" align="right">|
. $form->format_amount( \%myconfig, $totalamount, 2, "&nbsp;" )
. qq|</th>|;
$column_data{due} =
- qq|<th class=listtotal align=right>|
+ qq|<th class="listtotal" align="right">|
. $form->format_amount( \%myconfig, $totaldue, 2, "&nbsp;" )
. qq|</th>|;
$column_data{paid} =
- qq|<th class=listtotal align=right>|
+ qq|<th class="listtotal" align="right">|
. $form->format_amount( \%myconfig, $totalpaid, 2, "&nbsp;" )
. qq|</th>|;
print qq|
- <tr class=listtotal>
+ <tr class="listtotal">
|;
for (@column_index) { print "$column_data{$_}\n" }
print qq|
@@ -518,7 +518,7 @@ qq|<td align=center><input name="checked_$i" type=checkbox class=checkbox $form-
</table>
</td>
</tr>
-<input type=hidden name=selectlanguage value="|
+<input type="hidden" name="selectlanguage" value="|
. $form->escape( $form->{selectlanguage}, 1 ) . qq|">
|;
@@ -533,8 +533,8 @@ sub payments_footer {
if ( ${LedgerSMB::Sysconfig::latex} ) {
- $media = qq|<select name=media>
- <option value=screen>| . $locale->text('Screen');
+ $media = qq|<select name="media">
+ <option value="screen">| . $locale->text('Screen');
if ( %{LedgerSMB::Sysconfig::printer} ) {
for ( sort keys %{LedgerSMB::Sysconfig::printer} ) {
@@ -544,17 +544,17 @@ sub payments_footer {
}
$media .= qq|</select>|;
- $format = qq|<select name=format>
- <option value=postscript $form->{DF}{postscript}>|
+ $format = qq|<select name="format">
+ <option value="postscript" $form->{DF}{postscript}>|
. $locale->text('Postscript') . qq|
- <option value=pdf $form->{DF}{pdf}>|
+ <option value="pdf" $form->{DF}{pdf}>|
. $locale->text('PDF')
. qq|</select>|;
}
print qq|
<tr>
- <td><hr size=3 noshade></td>
+ <td><hr size="3" noshade></td>
</tr>
</table>
|;
@@ -940,10 +940,10 @@ sub payment_header {
if ( $form->{defaultcurrency} ) {
$exchangerate = qq|
<tr>
- <th align=right nowrap>| . $locale->text('Currency') . qq|</th>
- <td><select name=currency>$form->{selectcurrency}</select></td>
- <input type=hidden name=selectcurrency value="$form->{selectcurrency}">
- <input type=hidden name=oldcurrency value=$form->{oldcurrency}>
+ <th align="right" nowrap>| . $locale->text('Currency') . qq|</th>
+ <td><select name="currency">$form->{selectcurrency}</select></td>
+ <input type="hidden" name="selectcurrency" value="$form->{selectcurrency}">
+ <input type="hidden" name="oldcurrency" value="$form->{oldcurrency}">
</tr>
|;
}
@@ -955,16 +955,16 @@ sub payment_header {
if ( $form->{forex} ) {
$exchangerate .= qq|
<tr>
- <th align=right nowrap>| . $locale->text('Exchange Rate') . qq|</th>
- <td colspan=3><input type=hidden name=exchangerate size=10 value=$form->{exchangerate}>$form->{exchangerate}</td>
+ <th align="right" nowrap>| . $locale->text('Exchange Rate') . qq|</th>
+ <td colspan="3"><input type="hidden" name="exchangerate" size="10" value="$form->{exchangerate}">$form->{exchangerate}</td>
</tr>
|;
}
else {
$exchangerate .= qq|
<tr>
- <th align=right nowrap>| . $locale->text('Exchange Rate') . qq|</th>
- <td colspan=3><input name=exchangerate size=10 value=$form->{exchangerate}></td>
+ <th align="right" nowrap>| . $locale->text('Exchange Rate') . qq|</th>
+ <td colspan="3"><input name="exchangerate" size="10" value="$form->{exchangerate}"></td>
</tr>
|;
}
@@ -972,8 +972,8 @@ sub payment_header {
$vc =
( $form->{"select$form->{vc}"} )
- ? qq|<select name=$form->{vc}>$form->{"select$form->{vc}"}\n</select>|
- : qq|<input name=$form->{vc} size=35 value="$form->{$form->{vc}}">|;
+ ? qq|<select name="$form->{vc}">$form->{"select$form->{vc}"}\n</select>|
+ : qq|<input name="$form->{vc}" size="35" value="$form->{$form->{vc}}">|;
if ( $form->{all_vc} ) {
$allvc = "checked";
@@ -988,8 +988,8 @@ sub payment_header {
$department = qq|
<tr>
<th align="right" nowrap>| . $locale->text('Department') . qq|</th>
- <td><select name=department>$form->{selectdepartment}</select>
- <input type=hidden name=selectdepartment value="|
+ <td><select name="department">$form->{selectdepartment}</select>
+ <input type="hidden" name="selectdepartment" value="|
. $form->escape( $form->{selectdepartment}, 1 ) . qq|">
</td>
</tr>
@@ -1000,7 +1000,7 @@ sub payment_header {
print qq|
<body>
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
|;
$form->hide_form(
@@ -1009,34 +1009,34 @@ sub payment_header {
print qq|
-<table width=100%>
+<table width="100%">
<tr>
- <th class=listtop>$form->{title}</th>
+ <th class="listtop">$form->{title}</th>
</tr>
<tr height="5"></tr>
<tr>
<td>
- <table width=100%>
- <tr valign=top>
+ <table width="100%">
+ <tr valign="top">
<td>
<table>
<tr>
- <td align=right>
- <input name=all_vc type=checkbox class=checkbox value=Y $allvc>
- <input type=hidden name="oldall_vc" value="$form->{all_vc}"></td>
- <th align=left>| . $locale->text('All') . qq|</th>
+ <td align="right">
+ <input name="all_vc" type="checkbox" class="checkbox" value="Y" $allvc>
+ <input type="hidden" name="oldall_vc" value="$form->{all_vc}"></td>
+ <th align="left">| . $locale->text('All') . qq|</th>
</tr>
<tr>
- <th align=right>$vclabel</th>
+ <th align="right">$vclabel</th>
<td>$vc</td>
- <input type=hidden name="select$form->{vc}" value="|
+ <input type="hidden" name="select$form->{vc}" value="|
. $form->escape( $form->{"select$form->{vc}"}, 1 ) . qq|">
- <input type=hidden name="$form->{vc}_id" value=$form->{"$form->{vc}_id"}>
- <input type=hidden name="old$form->{vc}" value="$form->{"old$form->{vc}"}">
+ <input type="hidden" name="$form->{vc}_id" value="$form->{"$form->{vc}_id"}">
+ <input type="hidden" name="old$form->{vc}" value="$form->{"old$form->{vc}"}">
</tr>
- <tr valign=top>
- <th align=right nowrap>| . $locale->text('Address') . qq|</th>
- <td colspan=2>
+ <tr valign="top">
+ <th align="right" nowrap>| . $locale->text('Address') . qq|</th>
+ <td colspan="2">
<table>
<tr>
<td>$form->{address1}</td>
@@ -1057,16 +1057,16 @@ sub payment_header {
</tr>
</table>
</td>
- <input type=hidden name=address1 value="$form->{address1}">
- <input type=hidden name=address2 value="$form->{address2}">
- <input type=hidden name=city value="$form->{city}">
- <input type=hidden name=state value="$form->{state}">
- <input type=hidden name=zipcode value="$form->{zipcode}">
- <input type=hidden name=country value="$form->{country}">
+ <input type="hidden" name="address1" value="$form->{address1}">
+ <input type="hidden" name="address2" value="$form->{address2}">
+ <input type="hidden" name="city" value="$form->{city}">
+ <input type="hidden" name="state" value="$form->{state}">
+ <input type="hidden" name="zipcode" value="$form->{zipcode}">
+ <input type="hidden" name="country" value="$form->{country}">
</tr>
<tr>
- <th align=right>| . $locale->text('Memo') . qq|</th>
- <td colspan=2><input name="memo" size=30 value="$form->{memo}"></td>
+ <th align="right">| . $locale->text('Memo') . qq|</th>
+ <td colspan="2"><input name="memo" size="30" value="$form->{memo}"></td>
</tr>
</table>
</td>
@@ -1074,33 +1074,33 @@ sub payment_header {
<table>
$department
<tr>
- <th align=right nowrap>| . $locale->text( $form->{ARAP} ) . qq|</th>
- <td colspan=3><select name=$form->{ARAP}>$form->{"select$form->{ARAP}"}</select>
+ <th align="right" nowrap>| . $locale->text( $form->{ARAP} ) . qq|</th>
+ <td colspan="3"><select name="$form->{ARAP}">$form->{"select$form->{ARAP}"}</select>
</td>
- <input type=hidden name="select$form->{ARAP}" value="$form->{"select$form->{ARAP}"}">
+ <input type="hidden" name="select$form->{ARAP}" value="$form->{"select$form->{ARAP}"}">
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('Account') . qq|</th>
- <td colspan=3><select name=account>$form->{selectaccount}</select>
- <input type=hidden name=selectaccount value="$form->{selectaccount}">
+ <th align="right" nowrap>| . $locale->text('Account') . qq|</th>
+ <td colspan="3"><select name="account">$form->{selectaccount}</select>
+ <input type="hidden" name="selectaccount" value="$form->{selectaccount}">
</td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('Date') . qq|</th>
- <td><input name=datepaid value="$form->{datepaid}" title="$myconfig{dateformat}" size=11></td>
- <input type=hidden name=olddatepaid value=$form->{olddatepaid}>
+ <th align="right" nowrap>| . $locale->text('Date') . qq|</th>
+ <td><input name="datepaid" value="$form->{datepaid}" title="$myconfig{dateformat}" size="11"></td>
+ <input type="hidden" name="olddatepaid" value="$form->{olddatepaid}">
</tr>
$exchangerate
<tr>
- <th align=right nowrap>| . $locale->text('Source') . qq|</th>
- <td colspan=3><input name=source value="$form->{source}" size=10></td>
+ <th align="right" nowrap>| . $locale->text('Source') . qq|</th>
+ <td colspan="3"><input name="source" value="$form->{source}" size="10"></td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('Amount') . qq|</th>
- <td colspan=3><input name=amount size=10 value=|
+ <th align="right" nowrap>| . $locale->text('Amount') . qq|</th>
+ <td colspan="3"><input name="amount" size="10" value="|
. $form->format_amount( \%myconfig, $form->{amount}, 2 )
- . qq|></td>
- <input type=hidden name=oldamount value=$form->{amount}>
+ . qq|"></td>
+ <input type="hidden" name="oldamount" value="$form->{amount}">
</tr>
</table>
</td>
@@ -1121,12 +1121,12 @@ sub list_invoices {
$invoice = $locale->text('Invoices');
print qq|
- <input type=hidden name=column_index value="id @column_index">
+ <input type="hidden" name="column_index" value="id @column_index">
<tr>
<td>
- <table width=100%>
+ <table width="100%">
<tr>
- <th class=listheading colspan=$colspan>$invoice</th>
+ <th class="listheading" colspan="$colspan">$invoice</th>
</tr>
|;
@@ -1165,31 +1165,31 @@ sub list_invoices {
}
$column_data{invnumber} = qq|<td>$form->{"invnumber_$i"}</td>
- <input type=hidden name="invnumber_$i" value="$form->{"invnumber_$i"}">
- <input type=hidden name="id_$i" value=$form->{"id_$i"}>|;
- $column_data{transdate} = qq|<td width=15%>$form->{"transdate_$i"}</td>
- <input type=hidden name="transdate_$i" value=$form->{"transdate_$i"}>|;
+ <input type="hidden" name="invnumber_$i" value="$form->{"invnumber_$i"}">
+ <input type="hidden" name="id_$i" value="$form->{"id_$i"}">|;
+ $column_data{transdate} = qq|<td width="15%">$form->{"transdate_$i"}</td>
+ <input type="hidden" name="transdate_$i" value="$form->{"transdate_$i"}">|;
$column_data{amount} =
- qq|<td align=right width=15%>$form->{"amount_$i"}</td>
- <input type=hidden name="amount_$i" value=$form->{"amount_$i"}>|;
- $column_data{due} = qq|<td align=right width=15%>$form->{"due_$i"}</td>
- <input type=hidden name="due_$i" value=$form->{"due_$i"}>|;
+ qq|<td align="right" width="15%">$form->{"amount_$i"}</td>
+ <input type="hidden" name="amount_$i" value="$form->{"amount_$i"}">|;
+ $column_data{due} = qq|<td align="right" width="15%">$form->{"due_$i"}</td>
+ <input type="hidden" name="due_$i" value="$form->{"due_$i"}">|;
if ( $form->{"paid_$i"} =~ /NaN/ ) {
$form->{"paid_$i"} = '';
}
$column_data{paid} =
-qq|<td align=right width=15%><input name="paid_$i" size=10 value=$form->{"paid_$i"}></td>|;
+qq|<td align="right" width="15%"><input name="paid_$i" size="10" value="$form->{"paid_$i"}"></td>|;
$form->{"checked_$i"} = ( $form->{"checked_$i"} ) ? "checked" : "";
$column_data{checked} =
-qq|<td align=center width=10%><input name="checked_$i" type=checkbox class=checkbox $form->{"checked_$i"}></td>|;
+qq|<td align="center" width="10%"><input name="checked_$i" type="checkbox" class="checkbox" $form->{"checked_$i"}></td>|;
$j++;
$j %= 2;
print qq|
- <tr class=listrow$j>
+ <tr class="listrow$j">
|;
for (@column_index) { print "$column_data{$_}\n" }
print qq|
@@ -1200,20 +1200,20 @@ qq|<td align=center width=10%><input name="checked_$i" type=checkbox class=check
for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
$column_data{amount} =
- qq|<th class=listtotal align=right>|
+ qq|<th class="listtotal" align="right">|
. $form->format_amount( \%myconfig, $totalamount, 2, "&nbsp;" )
. qq|</th>|;
$column_data{due} =
- qq|<th class=listtotal align=right>|
+ qq|<th class="listtotal" align="right">|
. $form->format_amount( \%myconfig, $totaldue, 2, "&nbsp;" )
. qq|</th>|;
$column_data{paid} =
- qq|<th class=listtotal align=right>|
+ qq|<th class="listtotal" align="right">|
. $form->format_amount( \%myconfig, $totalpaid, 2, "&nbsp;" )
. qq|</th>|;
print qq|
- <tr class=listtotal>
+ <tr class="listtotal">
|;
for (@column_index) { print "$column_data{$_}\n" }
print qq|
@@ -1240,13 +1240,13 @@ sub payment_footer {
$form->{"selectlanguage"} =~
s/(<option value="\Q$form->{language_code}\E")/$1 selected/;
$lang =
- qq|<select name=language_code>$form->{selectlanguage}</select>
- <input type=hidden name=selectlanguage value="|
+ qq|<select name="language_code">$form->{selectlanguage}</select>
+ <input type="hidden" name="selectlanguage" value="|
. $form->escape( $form->{selectlanguage}, 1 ) . qq|">|;
}
- $media = qq|<select name=media>
- <option value=screen>| . $locale->text('Screen');
+ $media = qq|<select name="media">
+ <option value="screen">| . $locale->text('Screen');
if ( %{LedgerSMB::Sysconfig::printer} ) {
for ( sort keys %{LedgerSMB::Sysconfig::printer} ) {
@@ -1256,17 +1256,17 @@ sub payment_footer {
}
$media .= qq|</select>|;
- $format = qq|<select name=format>
- <option value=postscript $form->{DF}{postscript}>|
+ $format = qq|<select name="format">
+ <option value="postscript" $form->{DF}{postscript}>|
. $locale->text('Postscript') . qq|
- <option value=pdf $form->{DF}{pdf}>|
+ <option value="pdf" $form->{DF}{pdf}>|
. $locale->text('PDF')
. qq|</select>|;
}
print qq|
<tr>
- <td><hr size=3 noshade></td>
+ <td><hr size="3" noshade></td>
</tr>
</table>
|;