summaryrefslogtreecommitdiff
path: root/bin
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
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')
-rwxr-xr-xbin/ca.pl158
-rwxr-xr-xbin/cp.pl266
-rwxr-xr-xbin/pw.pl4
-rwxr-xr-xbin/rc.pl178
4 files changed, 303 insertions, 303 deletions
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|<th class=listtop>| . $locale->text('Account') . qq|</th>\n|;
+ qq|<th class="listtop">| . $locale->text('Account') . qq|</th>\n|;
$column_header{gifi_accno} =
- qq|<th class=listtop>| . $locale->text('GIFI') . qq|</th>\n|;
+ qq|<th class="listtop">| . $locale->text('GIFI') . qq|</th>\n|;
$column_header{description} =
- qq|<th class=listtop>| . $locale->text('Description') . qq|</th>\n|;
+ qq|<th class="listtop">| . $locale->text('Description') . qq|</th>\n|;
$column_header{debit} =
- qq|<th class=listtop>| . $locale->text('Debit') . qq|</th>\n|;
+ qq|<th class="listtop">| . $locale->text('Debit') . qq|</th>\n|;
$column_header{credit} =
- qq|<th class=listtop>| . $locale->text('Credit') . qq|</th>\n|;
+ qq|<th class="listtop">| . $locale->text('Credit') . qq|</th>\n|;
$form->{title} = $locale->text('Chart of Accounts');
@@ -106,10 +106,10 @@ sub chart_of_accounts {
print qq|
<body>
-<table border=0 width=100%>
- <tr><th class=listtop colspan=$colspan>$form->{title}</th></tr>
+<table border="0" width="100%">
+ <tr><th class="listtop" colspan="$colspan">$form->{title}</th></tr>
<tr height="5"></tr>
- <tr class=listheading>|;
+ <tr class="listheading">|;
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|<tr class=listheading>|;
for (qw(accno description)) {
- $column_data{$_} = "<th class=listheading>$ca->{$_}</th>";
+ $column_data{$_} = qq|<th class="listheading">$ca->{$_}</th>|;
}
$column_data{gifi_accno} =
- "<th class=listheading>$ca->{gifi_accno}&nbsp;</th>";
+ qq|<th class="listheading">$ca->{gifi_accno}&nbsp;</th>|;
}
else {
$i++;
$i %= 2;
- print qq|<tr class=listrow$i>|;
- $column_data{accno} = "<td><a href=$href>$ca->{accno}</a></td>";
+ print qq|<tr class="listrow$i">|;
+ $column_data{accno} = qq|<td><a href="$href">$ca->{accno}</a></td>|;
$column_data{gifi_accno} =
-"<td><a href=$href&accounttype=gifi>$ca->{gifi_accno}</a>&nbsp;</td>";
+qq|<td><a href="$href&accounttype=gifi">$ca->{gifi_accno}</a>&nbsp;</td>|;
$column_data{description} = "<td>$ca->{description}</td>";
}
$column_data{debit} =
- "<td align=right>"
+ '<td align="right">'
. $form->format_amount( \%myconfig, $ca->{debit}, 2, "&nbsp;" )
. "</td>\n";
$column_data{credit} =
- "<td align=right>"
+ '<td align="right">'
. $form->format_amount( \%myconfig, $ca->{credit}, 2, "&nbsp;" )
. "</td>\n";
@@ -167,20 +167,20 @@ qq|$form->{script}?path=$form->{path}&action=list&accno=$ca->{accno}&login=$form
}
$column_data{debit} =
- "<th align=right class=listtotal>"
+ '<th align="right" class="listtotal">'
. $form->format_amount( \%myconfig, $totaldebit, 2, 0 ) . "</th>";
$column_data{credit} =
- "<th align=right class=listtotal>"
+ '<th align="right" class="listtotal">'
. $form->format_amount( \%myconfig, $totalcredit, 2, 0 ) . "</th>";
- print "<tr class=listtotal>";
+ print '<tr class="listtotal">';
for (@column_index) { print "$column_data{$_}\n" }
print qq|
</tr>
<tr>
- <td colspan=$colspan><hr size=3 noshade></td>
+ <td colspan="$colspan"><hr size="3" noshade></td>
</tr>
</table>
@@ -217,8 +217,8 @@ qq|<option value="$_->{description}--$_->{id}">$_->{description}\n|;
$department = qq|
<tr>
- <th align=right nowrap>| . $locale->text('Department') . qq|</th>
- <td colspan=3><select name=department>$form->{selectdepartment}</select></td>
+ <th align="right" nowrap>| . $locale->text('Department') . qq|</th>
+ <td colspan="3"><select name="department">$form->{selectdepartment}</select></td>
</tr>
| if $form->{selectdepartment};
@@ -232,23 +232,23 @@ qq|<option value="$_->{description}--$_->{id}">$_->{description}\n|;
$form->{selectaccountingmonth} = "<option>\n";
for ( sort keys %{ $form->{all_month} } ) {
$form->{selectaccountingmonth} .=
- qq|<option value=$_>|
+ qq|<option value="$_">|
. $locale->text( $form->{all_month}{$_} ) . qq|\n|;
}
$selectfrom = qq|
<tr>
- <th align=right>| . $locale->text('Period') . qq|</th>
- <td colspan=3>
- <select name=month>$form->{selectaccountingmonth}</select>
- <select name=year>$form->{selectaccountingyear}</select>
- <input name=interval class=radio type=radio value=0 checked>&nbsp;|
+ <th align="right">| . $locale->text('Period') . qq|</th>
+ <td colspan="3">
+ <select name="month">$form->{selectaccountingmonth}</select>
+ <select name="year">$form->{selectaccountingyear}</select>
+ <input name="interval" class="radio" type="radio" value="0" checked>&nbsp;|
. $locale->text('Current') . qq|
- <input name=interval class=radio type=radio value=1>&nbsp;|
+ <input name="interval" class="radio" type="radio" value="1">&nbsp;|
. $locale->text('Month') . qq|
- <input name=interval class=radio type=radio value=3>&nbsp;|
+ <input name="interval" class="radio" type="radio" value="3">&nbsp;|
. $locale->text('Quarter') . qq|
- <input name=interval class=radio type=radio value=12>&nbsp;|
+ <input name="interval" class="radio" type="radio" value="12">&nbsp;|
. $locale->text('Year') . qq|
</td>
</tr>
@@ -260,45 +260,45 @@ qq|<option value="$_->{description}--$_->{id}">$_->{description}\n|;
print qq|
<body>
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
-<input type=hidden name=accno value=$form->{accno}>
-<input type=hidden name=description value="$form->{description}">
+<input type="hidden" name="accno" value="$form->{accno}">
+<input type="hidden" name="description" value="$form->{description}">
-<input type=hidden name=sort value=transdate>
-<input type=hidden name=oldsort value=transdate>
+<input type="hidden" name="sort" value="transdate">
+<input type="hidden" name="oldsort" value="transdate">
-<input type=hidden name=accounttype value=$form->{accounttype}>
-<input type=hidden name=gifi_accno value=$form->{gifi_accno}>
-<input type=hidden name=gifi_description value="$form->{gifi_description}">
+<input type="hidden" name="accounttype" value="$form->{accounttype}">
+<input type="hidden" name="gifi_accno" value="$form->{gifi_accno}">
+<input type="hidden" name="gifi_description" value="$form->{gifi_description}">
-<table border=0 width=100%>
- <tr><th class=listtop>$form->{title}</th></tr>
+<table border="0" width="100%">
+ <tr><th class="listtop">$form->{title}</th></tr>
<tr height="5"></tr>
- <tr valign=top>
+ <tr valign="top">
<td>
<table>
$department
<tr>
- <th align=right>| . $locale->text('From') . qq|</th>
- <td><input name=fromdate size=11 title="$myconfig{dateformat}"></td>
- <th align=right>| . $locale->text('To') . qq|</th>
- <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
+ <th align="right">| . $locale->text('From') . qq|</th>
+ <td><input name="fromdate" size="11" title="$myconfig{dateformat}"></td>
+ <th align="right">| . $locale->text('To') . qq|</th>
+ <td><input name="todate" size="11" title="$myconfig{dateformat}"></td>
</tr>
$selectfrom
<tr>
- <th align=right>| . $locale->text('Include in Report') . qq|</th>
- <td colspan=3>
- <input name=l_accno class=checkbox type=checkbox value=Y>&nbsp;|
+ <th align="right">| . $locale->text('Include in Report') . qq|</th>
+ <td colspan="3">
+ <input name="l_accno" class="checkbox" type="checkbox" value="Y">&nbsp;|
. $locale->text('AR/AP') . qq|
- <input name=l_subtotal class=checkbox type=checkbox value=Y>&nbsp;|
+ <input name="l_subtotal" class="checkbox" type="checkbox" value="Y">&nbsp;|
. $locale->text('Subtotal') . qq|
</td>
</tr>
</table>
</td>
</tr>
- <tr><td><hr size=3 noshade></td></tr>
+ <tr><td><hr size="3" noshade></td></tr>
</table>
<input type="hidden" name="login" value="$form->{login}">
@@ -349,29 +349,29 @@ sub list_transactions {
# figure out which column comes first
$column_header{transdate} =
- qq|<th><a class=listheading href=$href&sort=transdate>|
+ qq|<th><a class="listheading" href="$href&sort=transdate">|
. $locale->text('Date')
. qq|</a></th>|;
$column_header{reference} =
- qq|<th><a class=listheading href=$href&sort=reference>|
+ qq|<th><a class="listheading" href="$href&sort=reference">|
. $locale->text('Reference')
. qq|</a></th>|;
$column_header{description} =
- qq|<th><a class=listheading href=$href&sort=description>|
+ qq|<th><a class="listheadine" href="$href&sort=description">|
. $locale->text('Description')
. qq|</a></th>|;
$column_header{cleared} =
- qq|<th class=listheading>| . $locale->text('R') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('R') . qq|</th>|;
$column_header{source} =
- qq|<th class=listheading>| . $locale->text('Source') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('Source') . qq|</th>|;
$column_header{debit} =
- qq|<th class=listheading>| . $locale->text('Debit') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('Debit') . qq|</th>|;
$column_header{credit} =
- qq|<th class=listheading>| . $locale->text('Credit') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('Credit') . qq|</th>|;
$column_header{balance} =
- qq|<th class=listheading>| . $locale->text('Balance') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('Balance') . qq|</th>|;
$column_header{accno} =
- qq|<th class=listheading>| . $locale->text('AR/AP') . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text('AR/AP') . qq|</th>|;
@columns = qw(transdate reference description debit credit);
if ( $form->{link} =~ /_paid/ ) {
@@ -420,7 +420,7 @@ sub list_transactions {
$locale->date( \%myconfig, $form->current_date( \%myconfig ), 1 );
}
- $form->{period} = "<a href=$form->{prevreport}>$form->{period}</a>"
+ $form->{period} = qq|<a href="$form->{prevreport}">$form->{period}</a>|
if $form->{prevreport};
$options .= $form->{period};
@@ -445,9 +445,9 @@ sub list_transactions {
print qq|
<body>
-<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>
@@ -455,8 +455,8 @@ sub list_transactions {
</tr>
<tr>
<td>
- <table width=100%>
- <tr class=listheading>
+ <table width="100%">
+ <tr class="listheading">
|;
for (@column_index) { print "$column_header{$_}\n" }
@@ -481,7 +481,7 @@ sub list_transactions {
for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
$column_data{balance} =
- "<td align=right>"
+ '<td align="right">'
. $form->format_amount( \%myconfig, $form->{balance} * $ml, 2, 0 )
. "</td>";
@@ -489,7 +489,7 @@ sub list_transactions {
$i %= 2;
print qq|
- <tr class=listrow$i>
+ <tr class="listrow$i">
|;
for (@column_index) { print "$column_data{$_}\n" }
print qq|
@@ -511,17 +511,17 @@ sub list_transactions {
"<a href=$ca->{module}.pl?path=$form->{path}&action=edit&id=$ca->{id}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$form->{callback}>$ca->{reference}</a>";
$column_data{debit} =
- "<td align=right>"
+ '<td align="right">'
. $form->format_amount( \%myconfig, $ca->{debit}, 2, "&nbsp;" )
. "</td>";
$column_data{credit} =
- "<td align=right>"
+ '<td align="right">'
. $form->format_amount( \%myconfig, $ca->{credit}, 2, "&nbsp;" )
. "</td>";
$form->{balance} += $ca->{amount};
$column_data{balance} =
- "<td align=right>"
+ '<td align="right">'
. $form->format_amount( \%myconfig, $form->{balance} * $ml, 2, 0 )
. "</td>";
@@ -541,7 +541,7 @@ sub list_transactions {
$column_data{accno} = qq|<td>|;
for ( @{ $ca->{accno} } ) {
- $column_data{accno} .= "<a href=$drilldown&accno=$_>$_</a> ";
+ $column_data{accno} .= qq|<a href="$drilldown&accno=$_">$_</a> |;
}
$column_data{accno} .= qq|&nbsp;</td>|;
@@ -552,7 +552,7 @@ sub list_transactions {
$sameid = $ca->{id};
print qq|
- <tr class=listrow$i>
+ <tr class="listrow$i">
|;
for (@column_index) { print "$column_data{$_}\n" }
@@ -570,18 +570,18 @@ sub list_transactions {
for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
$column_data{debit} =
- "<th align=right class=listtotal>"
+ qq|<th align="right" class="listtotal">|
. $form->format_amount( \%myconfig, $totaldebit, 2, "&nbsp;" ) . "</th>";
$column_data{credit} =
- "<th align=right class=listtotal>"
+ qq|<th align="right" class="listtotal">|
. $form->format_amount( \%myconfig, $totalcredit, 2, "&nbsp;" ) . "</th>";
$column_data{balance} =
- "<th align=right class=listtotal>"
+ qq|<th align="right" class="listtotal">|
. $form->format_amount( \%myconfig, $form->{balance} * $ml, 2, 0 )
. "</th>";
print qq|
- <tr class=listtotal>
+ <tr class="listtotal">
|;
for (@column_index) { print "$column_data{$_}\n" }
@@ -592,7 +592,7 @@ sub list_transactions {
</td>
</tr>
<tr>
- <td><hr size=3 noshade></td>
+ <td><hr size="3" noshade></td>
</tr>
</table>
@@ -607,11 +607,11 @@ sub ca_subtotal {
for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
$column_data{debit} =
- "<th align=right class=listsubtotal>"
+ qq|<th align="right" class="listsubtotal">|
. $form->format_amount( \%myconfig, $subtotaldebit, 2, "&nbsp;" )
. "</th>";
$column_data{credit} =
- "<th align=right class=listsubtotal>"
+ qq|<th align="right" class="listsubtotal">|
. $form->format_amount( \%myconfig, $subtotalcredit, 2, "&nbsp;" )
. "</th>";
@@ -621,7 +621,7 @@ sub ca_subtotal {
$sameitem = $ca->{ $form->{sort} };
print qq|
- <tr class=listsubtotal>
+ <tr class="listsubtotal">
|;
for (@column_index) { print "$column_data{$_}\n" }
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>
|;
diff --git a/bin/pw.pl b/bin/pw.pl
index f03ed240..4c6f8068 100755
--- a/bin/pw.pl
+++ b/bin/pw.pl
@@ -64,11 +64,11 @@ function sf(){
$sessionexpired
-<form method=post action=$form->{script} name=pw>
+<form method="post" action="$form->{script}" name="pw">
<table>
<tr>
- <th align=right>| . $locale->text('Password') . qq|</th>
+ <th align="right">| . $locale->text('Password') . qq|</th>
<td><input type="password" name="password" size="30"></td>
<td><button type="submit" value="continue">|
. $locale->text('Continue')
diff --git a/bin/rc.pl b/bin/rc.pl
index 6428ff63..d713b03c 100755
--- a/bin/rc.pl
+++ b/bin/rc.pl
@@ -86,11 +86,11 @@ sub reconciliation {
if ( $form->{report} ) {
$form->{title} = $locale->text('Reconciliation Report');
$cleared = qq|
- <input type=hidden name=report value=1>
+ <input type="hidden" name="report" value="1">
<tr>
- <td align=right><input type=checkbox class=checkbox name=outstanding value=1 checked></td>
+ <td align="right"><input type="checkbox" class="checkbox" name="outstanding" value="1" checked></td>
<td>| . $locale->text('Outstanding') . qq|</td>
- <td align=right><input type=checkbox class=checkbox name=cleared value=1></td>
+ <td align="right"><input type="checkbox" class="checkbox" name="cleared" value="1"></td>
<td>| . $locale->text('Cleared') . qq|</td>
</tr>
|;
@@ -113,17 +113,17 @@ sub reconciliation {
$selectfrom = qq|
<tr>
- <th align=right>| . $locale->text('Period') . qq|</th>
- <td colspan=3>
- <select name=month>$form->{selectaccountingmonth}</select>
- <select name=year>$form->{selectaccountingyear}</select>
- <input name=interval class=radio type=radio value=0 checked>&nbsp;|
+ <th align="right">| . $locale->text('Period') . qq|</th>
+ <td colspan="3">
+ <select name="month">$form->{selectaccountingmonth}</select>
+ <select name="year">$form->{selectaccountingyear}</select>
+ <input name="interval" class="radio" type="radio" value="0" checked>&nbsp;|
. $locale->text('Current') . qq|
- <input name=interval class=radio type=radio value=1>&nbsp;|
+ <input name="interval" class="radio" type="radio" value="1">&nbsp;|
. $locale->text('Month') . qq|
- <input name=interval class=radio type=radio value=3>&nbsp;|
+ <input name="interval" class="radio" type="radio" value="3">&nbsp;|
. $locale->text('Quarter') . qq|
- <input name=interval class=radio type=radio value=12>&nbsp;|
+ <input name="interval" class="radio" type="radio" value="12">&nbsp;|
. $locale->text('Year') . qq|
</td>
</tr>
@@ -135,39 +135,39 @@ sub reconciliation {
print qq|
<body>
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
-<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>
<tr>
- <th align=right nowrap>| . $locale->text('Account') . qq|</th>
- <td colspan=3><select name=accno>$selection</select></td>
+ <th align="right" nowrap>| . $locale->text('Account') . qq|</th>
+ <td colspan="3"><select name="accno">$selection</select></td>
</tr>
<tr>
- <th align=right>| . $locale->text('From') . qq|</th>
- <td colspan=3><input name=fromdate size=11 title="$myconfig{dateformat}"> <b>|
+ <th align="right">| . $locale->text('From') . qq|</th>
+ <td colspan="3"><input name="fromdate" size="11" title="$myconfig{dateformat}"> <b>|
. $locale->text('To')
- . qq|</b> <input name=todate size=11 title="$myconfig{dateformat}"></td>
+ . qq|</b> <input name="todate" size="11" title="$myconfig{dateformat}"></td>
</tr>
$selectfrom
$cleared
<tr>
<td></td>
- <td colspan=3><input type=radio style=radio name=summary value=1 checked> |
+ <td colspan="3"><input type="radio" style="radio" name="summary" value="1" checked> |
. $locale->text('Summary') . qq|
- <input type=radio style=radio name=summary value=0> |
+ <input type="radio" style="radio" name="summary" value="0"> |
. $locale->text('Detail')
. qq|</td>
</tr>
<tr>
<td></td>
- <td colspan=3><input type=checkbox class=checkbox name=fx_transaction value=1 checked> |
+ <td colspan="3"><input type="checkbox" class="checkbox" name="fx_transaction" value="1" checked> |
. $locale->text('Include Exchange Rate Difference')
. qq|</td>
</tr>
@@ -175,12 +175,12 @@ sub reconciliation {
</td>
</tr>
<tr>
- <td><hr size=3 noshade></td>
+ <td><hr size="3" noshade></td>
</tr>
</table>
<br>
-<input type=hidden name=nextsub value=get_payments>
+<input type="hidden" name="nextsub" value="get_payments">
|;
$form->hide_form(qw(path login sessionid));
@@ -226,23 +226,23 @@ sub till_closing {
print qq|
<body>
-<form method=post action=$form->{script}>
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
+<form method="post" action="$form->{script}">
+<input type="hidden" name="path" value="$form->{path}">
+<input type="hidden" name="login" value="$form->{login}">
+<input type="hidden" name="sessionid" value="$form->{sessionid}">
-<input type=hidden name=callback value="$form->{callback}">
-<input type=hidden name=sum value="| . $form->{sum} * -1 . qq|">
-<table width=100%>
+<input type="hidden" name="callback" value="$form->{callback}">
+<input type="hidden" name="sum" value="| . $form->{sum} * -1 . qq|">
+<table width="100%">
<tr>
- <th class=listtop>$form->{title}</th>
+ <th class="listtop">$form->{title}</th>
</tr>
</table>
-<table width=100%>
+<table width="100%">
|;
print "<tr>";
- map { print "<td class=listheading>" . $locale->text($_) . "</td>"; }
+ map { print '<td class="listheading">' . $locale->text($_) . "</td>"; }
@colheadings;
print "</tr>";
my $j;
@@ -257,9 +257,9 @@ sub till_closing {
}
++$j;
$j = $j % 2;
- print qq|<tr class=listrow$j><td>| . $pos_sources{$source} . qq|</td>
+ print qq|<tr class="listrow$j"><td>| . $pos_sources{$source} . qq|</td>
<td><input name="amount_$source">
- <input type=hidden name="expected_$source"
+ <input type="hidden" name="expected_$source"
value="$amount"></td>
<td>${curren}$amount</td>
<td id="error_$source">&nbsp;</td></tr>|;
@@ -331,7 +331,7 @@ function check_errors(){
my $subval = 'sub_' . $calcval;
$calcval = 'calc_' . $calcval;
print qq|<tr>
- <td><input type=text name=$calcval value="$form->{$calcval}"></td>
+ <td><input type="text" name="$calcval" value="$form->{$calcval}"></td>
<th>X ${curren}${unit} = </th>
<td><input type="text" name="$subval" value="$form->{$subval}"></td>
</tr>|;
@@ -339,10 +339,10 @@ function check_errors(){
print qq|<tr>
<td>&nbsp;</td>
<th>| . $locale->text("Subtotal") . qq|:</th>
- <td><input type=text name=sub_sub value="$form->{sub_sub}"></td>
+ <td><input type="text" name="sub_sub" value="$form->{sub_sub}"></td>
</tr>
</table>
-<input type=button name=calculate class=submit onClick="custom_calc_total()"
+<input type="button" name="calculate" class="submit" onClick="custom_calc_total()"
value='| . $locale->text('Calculate') . qq|'>
|;
print qq|</table><button type="submit" name="action" value="close_till">|
@@ -506,18 +506,18 @@ sub display_form {
$column_header{cleared} = qq|<th>| . $locale->text('R') . qq|</th>|;
$column_header{source} =
- "<th class=listheading>" . $locale->text('Source') . "</a></th>";
+ '<th class="listheading">' . $locale->text('Source') . "</a></th>";
$column_header{name} =
- "<th class=listheading>" . $locale->text('Description') . "</a></th>";
+ '<th class="listheading">' . $locale->text('Description') . "</a></th>";
$column_header{transdate} =
- "<th class=listheading>" . $locale->text('Date') . "</a></th>";
+ '<th class="listheading">' . $locale->text('Date') . "</a></th>";
$column_header{debit} =
- "<th class=listheading>" . $locale->text('Debit') . "</a></th>";
+ '<th class="listheading">' . $locale->text('Debit') . "</a></th>";
$column_header{credit} =
- "<th class=listheading>" . $locale->text('Credit') . "</a></th>";
+ '<th class="listheading">' . $locale->text('Credit') . "</a></th>";
$column_header{balance} =
- "<th class=listheading>" . $locale->text('Balance') . "</a></th>";
+ '<th class="listheading">' . $locale->text('Balance') . "</a></th>";
if ( $form->{fromdate} ) {
$option .= "\n<br>" if ($option);
@@ -539,13 +539,13 @@ sub display_form {
print qq|
<body>
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
-<input type=hidden name=source value="$form->{source}">
-<input type=hidden name=cumulative_error value="$form->{cumulative_error}">
-<table width=100%>
+<input type="hidden" name="source" value="$form->{source}">
+<input type="hidden" name="cumulative_error" value="$form->{cumulative_error}">
+<table width="100%">
<tr>
- <th class=listtop>$form->{title}</th>
+ <th class="listtop">$form->{title}</th>
</tr>
<tr height="5"></tr>
<tr>
@@ -553,8 +553,8 @@ sub display_form {
</tr>
<tr>
<td>
- <table width=100%>
- <tr class=listheading>
+ <table width="100%">
+ <tr class="listheading">
|;
for (@column_index) { print "\n$column_header{$_}" }
@@ -615,7 +615,7 @@ sub display_form {
for ( @{ $temp{name} } ) { $column_data{name} .= "$_<br>" }
$column_data{name} .= "</td>";
$column_data{source} = qq|<td>$temp{source}&nbsp;</td>
- <input type=hidden name="id_$i" value=$ref->{id}>|;
+ <input type="hidden" name="id_$i" value="$ref->{id}">|;
$column_data{debit} = "<td>&nbsp;</td>";
$column_data{credit} = "<td>&nbsp;</td>";
@@ -626,7 +626,7 @@ sub display_form {
$totaldebits += $ref->{amount} * -1;
- $column_data{debit} = "<td align=right>"
+ $column_data{debit} = '<td align="right">'
. $form->format_amount( \%myconfig, $ref->{amount} * -1,
2, "&nbsp;" )
. "</td>";
@@ -637,20 +637,20 @@ sub display_form {
$totalcredits += $ref->{amount};
$column_data{credit} =
- "<td align=right>"
+ '<td align="right">'
. $form->format_amount( \%myconfig, $ref->{amount}, 2, "&nbsp;" )
. "</td>";
}
$column_data{balance} =
- "<td align=right>"
+ '<td align="right">'
. $form->format_amount( \%myconfig, $balance, 2, 0 ) . "</td>";
if ( $ref->{fx_transaction} ) {
$column_data{cleared} =
- ($clearfx) ? qq|<td align=center>*</td>| : qq|<td>&nbsp;</td>|;
+ ($clearfx) ? qq|<td align="center">*</td>| : qq|<td>&nbsp;</td>|;
$cleared += $ref->{amount} * $ml if $clearfx;
}
@@ -659,7 +659,7 @@ sub display_form {
if ( $form->{report} ) {
if ( $ref->{cleared} ) {
- $column_data{cleared} = qq|<td align=center>*</td>|;
+ $column_data{cleared} = qq|<td align="center">*</td>|;
$clearfx = 1;
}
else {
@@ -673,19 +673,19 @@ sub display_form {
if ( $ref->{oldcleared} ) {
$cleared += $ref->{amount} * $ml;
$clearfx = 1;
- $column_data{cleared} = qq|<td align=center>*</td>
- <input type=hidden name="cleared_$i" value=$ref->{cleared}>
- <input type=hidden name="oldcleared_$i" value=$ref->{oldcleared}>
- <input type=hidden name="source_$i" value="$ref->{source}">
- <input type=hidden name="amount_$1" value="$ref->{amount}">|;
+ $column_data{cleared} = qq|<td align="center">*</td>
+ <input type="hidden" name="cleared_$i" value="$ref->{cleared}">
+ <input type="hidden" name="oldcleared_$i" value="$ref->{oldcleared}">
+ <input type="hidden" name="source_$i" value="$ref->{source}">
+ <input type="hidden" name="amount_$1" value="$ref->{amount}">|;
}
else {
$cleared += $ref->{amount} * $ml if $checked;
$clearfx = ($checked) ? 1 : 0;
$column_data{cleared} =
-qq|<td align=center><input name="cleared_$i" type=checkbox class=checkbox value=1 $checked>
- <input type=hidden name="source_$i" value="$ref->{source}">
- <input type=hidden name="amount_$i" value="$ref->{amount}">
+qq|<td align="center"><input name="cleared_$i" type="checkbox" class="checkbox" value="1" $checked>
+ <input type="hidden" name="source_$i" value="$ref->{source}">
+ <input type="hidden" name="amount_$i" value="$ref->{amount}">
</td>|;
}
@@ -693,12 +693,12 @@ qq|<td align=center><input name="cleared_$i" type=checkbox class=checkbox value=
}
$column_data{transdate} = qq|<td>$temp{transdate}&nbsp;</td>
- <input type=hidden name="transdate_$i" value=$ref->{transdate}>|;
+ <input type="hidden" name="transdate_$i" value="$ref->{transdate}">|;
$j++;
$j %= 2;
print qq|
- <tr class=listrow$j>
+ <tr class="listrow$j">
|;
for (@column_index) { print "\n$column_data{$_}" }
@@ -715,15 +715,15 @@ qq|<td align=center><input name="cleared_$i" type=checkbox class=checkbox value=
for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
$column_data{debit} =
- "<th class=listtotal align=right>"
+ '<th class="listtotal" align="right">'
. $form->format_amount( \%myconfig, $totaldebits, 2, "&nbsp;" ) . "</th>";
$column_data{credit} =
- "<th class=listtotal align=right>"
+ '<th class="listtotal" align="right">'
. $form->format_amount( \%myconfig, $totalcredits, 2, "&nbsp;" )
. "</th>";
print qq|
- <tr class=listtotal>
+ <tr class="listtotal">
|;
for (@column_index) { print "\n$column_data{$_}" }
@@ -760,18 +760,18 @@ qq|<td align=center><input name="cleared_$i" type=checkbox class=checkbox value=
if ( $form->{'pos'} ) {
$difference = qq|
<tr>
- <th align=right><select name=over_under>
- <option value=under>|
+ <th align="right"><select name="over_under">
+ <option value="under">|
. $locale->text('Under')
. qq|</option>
- <option value=over>| . $locale->text('Over') . qq|</option>
- </select><input type=hidden name=pos value='true'>
+ <option value="over">| . $locale->text('Over') . qq|</option>
+ </select><input type="hidden" name="pos" value='true'>
</th>
- <td width=10%></td>
- <td align=right><input name=null size=11
+ <td width="10%"></td>
+ <td align="right"><input name="null" size="11"
value='| . $form->{null2} . qq|'></td>
- <input type=hidden name=difference
- value=$difference>
+ <input type="hidden" name="difference"
+ value="$difference">
|;
if ( $form->{'over_under'} ) {
@@ -782,10 +782,10 @@ qq|<td align=center><input name="cleared_$i" type=checkbox class=checkbox value=
else {
$difference = qq|
<tr>
- <th align=right nowrap>| . $locale->text('Difference') . qq|</th>
- <td width=10%></td>
- <td align=right><input name=null size=11 value=$difference></td>
- <input type=hidden name=difference value=$difference>
+ <th align="right" nowrap>| . $locale->text('Difference') . qq|</th>
+ <td width="10%"></td>
+ <td align="right"><input name="null" size="11" value="$difference"></td>
+ <input type="hidden" name="difference" value="$difference">
</tr>|;
}
@@ -803,14 +803,14 @@ qq|<td align=center><input name="cleared_$i" type=checkbox class=checkbox value=
<tr>
<td>
- <table width=100%>
+ <table width="100%">
<tr>
- <td align=right>
+ <td align="right">
<table>
<tr>
- <th align=right nowrap>| . $locale->text('Statement Balance') . qq|</th>
- <td width=10%></td>
- <td align=right><input name=statementbalance size=11 value=$form->{statementbalance}></td>
+ <th align="right" nowrap>| . $locale->text('Statement Balance') . qq|</th>
+ <td width="10%"></td>
+ <td align="right"><input name="statementbalance" size="11" value="$form->{statementbalance}"></td>
</tr>
$difference
</table>
@@ -820,7 +820,7 @@ qq|<td align=center><input name="cleared_$i" type=checkbox class=checkbox value=
</td>
</tr>
<tr>
- <td><hr size=3 noshade></td>
+ <td><hr size="3" noshade></td>
</tr>
</table>
|;