diff options
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/ca.pl | 158 | ||||
| -rwxr-xr-x | bin/cp.pl | 266 | ||||
| -rwxr-xr-x | bin/pw.pl | 4 | ||||
| -rwxr-xr-x | bin/rc.pl | 178 |
4 files changed, 303 insertions, 303 deletions
@@ -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} </th>"; + qq|<th class="listheading">$ca->{gifi_accno} </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> </td>"; +qq|<td><a href="$href&accounttype=gifi">$ca->{gifi_accno}</a> </td>|; $column_data{description} = "<td>$ca->{description}</td>"; } $column_data{debit} = - "<td align=right>" + '<td align="right">' . $form->format_amount( \%myconfig, $ca->{debit}, 2, " " ) . "</td>\n"; $column_data{credit} = - "<td align=right>" + '<td align="right">' . $form->format_amount( \%myconfig, $ca->{credit}, 2, " " ) . "</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> | + <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> | . $locale->text('Current') . qq| - <input name=interval class=radio type=radio value=1> | + <input name="interval" class="radio" type="radio" value="1"> | . $locale->text('Month') . qq| - <input name=interval class=radio type=radio value=3> | + <input name="interval" class="radio" type="radio" value="3"> | . $locale->text('Quarter') . qq| - <input name=interval class=radio type=radio value=12> | + <input name="interval" class="radio" type="radio" value="12"> | . $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> | + <th align="right">| . $locale->text('Include in Report') . qq|</th> + <td colspan="3"> + <input name="l_accno" class="checkbox" type="checkbox" value="Y"> | . $locale->text('AR/AP') . qq| - <input name=l_subtotal class=checkbox type=checkbox value=Y> | + <input name="l_subtotal" class="checkbox" type="checkbox" value="Y"> | . $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> </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, " " ) . "</td>"; $column_data{credit} = - "<td align=right>" + '<td align="right">' . $form->format_amount( \%myconfig, $ca->{credit}, 2, " " ) . "</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| </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> </td>" } $column_data{debit} = - "<th align=right class=listtotal>" + qq|<th align="right" class="listtotal">| . $form->format_amount( \%myconfig, $totaldebit, 2, " " ) . "</th>"; $column_data{credit} = - "<th align=right class=listtotal>" + qq|<th align="right" class="listtotal">| . $form->format_amount( \%myconfig, $totalcredit, 2, " " ) . "</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> </td>" } $column_data{debit} = - "<th align=right class=listsubtotal>" + qq|<th align="right" class="listsubtotal">| . $form->format_amount( \%myconfig, $subtotaldebit, 2, " " ) . "</th>"; $column_data{credit} = - "<th align=right class=listsubtotal>" + qq|<th align="right" class="listsubtotal">| . $form->format_amount( \%myconfig, $subtotalcredit, 2, " " ) . "</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" } @@ -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| | . $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> </td>" } $column_data{amount} = - qq|<th class=listtotal align=right>| + qq|<th class="listtotal" align="right">| . $form->format_amount( \%myconfig, $totalamount, 2, " " ) . qq|</th>|; $column_data{due} = - qq|<th class=listtotal align=right>| + qq|<th class="listtotal" align="right">| . $form->format_amount( \%myconfig, $totaldue, 2, " " ) . qq|</th>|; $column_data{paid} = - qq|<th class=listtotal align=right>| + qq|<th class="listtotal" align="right">| . $form->format_amount( \%myconfig, $totalpaid, 2, " " ) . 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> </td>" } $column_data{amount} = - qq|<th class=listtotal align=right>| + qq|<th class="listtotal" align="right">| . $form->format_amount( \%myconfig, $totalamount, 2, " " ) . qq|</th>|; $column_data{due} = - qq|<th class=listtotal align=right>| + qq|<th class="listtotal" align="right">| . $form->format_amount( \%myconfig, $totaldue, 2, " " ) . qq|</th>|; $column_data{paid} = - qq|<th class=listtotal align=right>| + qq|<th class="listtotal" align="right">| . $form->format_amount( \%myconfig, $totalpaid, 2, " " ) . 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> |; @@ -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') @@ -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> | + <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> | . $locale->text('Current') . qq| - <input name=interval class=radio type=radio value=1> | + <input name="interval" class="radio" type="radio" value="1"> | . $locale->text('Month') . qq| - <input name=interval class=radio type=radio value=3> | + <input name="interval" class="radio" type="radio" value="3"> | . $locale->text('Quarter') . qq| - <input name=interval class=radio type=radio value=12> | + <input name="interval" class="radio" type="radio" value="12"> | . $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"> </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> </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} </td> - <input type=hidden name="id_$i" value=$ref->{id}>|; + <input type="hidden" name="id_$i" value="$ref->{id}">|; $column_data{debit} = "<td> </td>"; $column_data{credit} = "<td> </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, " " ) . "</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, " " ) . "</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> </td>|; + ($clearfx) ? qq|<td align="center">*</td>| : qq|<td> </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} </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> </td>" } $column_data{debit} = - "<th class=listtotal align=right>" + '<th class="listtotal" align="right">' . $form->format_amount( \%myconfig, $totaldebits, 2, " " ) . "</th>"; $column_data{credit} = - "<th class=listtotal align=right>" + '<th class="listtotal" align="right">' . $form->format_amount( \%myconfig, $totalcredits, 2, " " ) . "</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> |; |