summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/aa.pl418
-rwxr-xr-xbin/arap.pl124
-rwxr-xr-xbin/arapprn.pl40
3 files changed, 291 insertions, 291 deletions
diff --git a/bin/aa.pl b/bin/aa.pl
index 5a6f571b..d3a9dca5 100755
--- a/bin/aa.pl
+++ b/bin/aa.pl
@@ -406,12 +406,12 @@ sub form_header {
$exchangerate = qq|<tr>|;
$exchangerate .= qq|
- <th align=right nowrap>| . $locale->text('Currency') . qq|</th>
- <td><select name=currency>$form->{selectcurrency}</select></td> |
+ <th align="right" nowrap>| . $locale->text('Currency') . qq|</th>
+ <td><select name="currency">$form->{selectcurrency}</select></td> |
if $form->{defaultcurrency};
$exchangerate .= qq|
- <input type=hidden name=selectcurrency value="$form->{selectcurrency}">
- <input type=hidden name=defaultcurrency value=$form->{defaultcurrency}>
+ <input type="hidden" name="selectcurrency" value="$form->{selectcurrency}">
+ <input type="hidden" name="defaultcurrency" value="$form->{defaultcurrency}">
|;
if ( $form->{defaultcurrency}
@@ -419,19 +419,19 @@ sub form_header {
{
if ( $form->{forex} ) {
$exchangerate .= qq|
- <th align=right>| . $locale->text('Exchange Rate') . qq|</th>
- <td><input type=hidden name=exchangerate value=$form->{exchangerate}>$form->{exchangerate}</td>
+ <th align="right">| . $locale->text('Exchange Rate') . qq|</th>
+ <td><input type="hidden" name="exchangerate" value="$form->{exchangerate}">$form->{exchangerate}</td>
|;
}
else {
$exchangerate .= qq|
- <th align=right>| . $locale->text('Exchange Rate') . qq|</th>
- <td><input name=exchangerate size=10 value=$form->{exchangerate}></td>
+ <th align="right">| . $locale->text('Exchange Rate') . qq|</th>
+ <td><input name="exchangerate" size="10" value="$form->{exchangerate}"></td>
|;
}
}
$exchangerate .= qq|
-<input type=hidden name=forex value=$form->{forex}>
+<input type="hidden" name="forex" value="$form->{forex}">
</tr>
|;
@@ -439,8 +439,8 @@ sub form_header {
if ( $form->{taxaccounts} ) {
$taxincluded = qq|
<tr>
- <td align=right><input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}></td>
- <th align=left nowrap>| . $locale->text('Tax Included') . qq|</th>
+ <td align="right"><input name="taxincluded" class="checkbox" type="checkbox" value="1" $form->{taxincluded}></td>
+ <th align="left" nowrap>| . $locale->text('Tax Included') . qq|</th>
</tr>
|;
}
@@ -449,13 +449,13 @@ sub form_header {
$rows = 2;
}
$notes =
-qq|<textarea name=notes rows=$rows cols=50 wrap=soft>$form->{notes}</textarea>|;
+qq|<textarea name="notes" rows="$rows" cols="50" wrap="soft">$form->{notes}</textarea>|;
$department = qq|
<tr>
<th align="right" nowrap>| . $locale->text('Department') . qq|</th>
- <td colspan=3><select name=department>$form->{selectdepartment}</select>
- <input type=hidden name=selectdepartment value="|
+ <td colspan="3"><select name="department">$form->{selectdepartment}</select>
+ <input type="hidden" name="selectdepartment" value="|
. $form->escape( $form->{selectdepartment}, 1 ) . qq|">
</td>
</tr>
@@ -466,10 +466,10 @@ qq|<textarea name=notes rows=$rows cols=50 wrap=soft>$form->{notes}</textarea>|;
$name =
( $form->{"select$form->{vc}"} )
? qq|<select name="$form->{vc}">$form->{"select$form->{vc}"}</select>|
- : qq|<input name="$form->{vc}" value="$form->{$form->{vc}}" size=35>|;
+ : qq|<input name="$form->{vc}" value="$form->{$form->{vc}}" size="35">|;
$employee = qq|
- <input type=hidden name=employee value="$form->{employee}">
+ <input type="hidden" name="employee" value="$form->{employee}">
|;
if ( $form->{selectemployee} ) {
@@ -480,9 +480,9 @@ qq|<textarea name=notes rows=$rows cols=50 wrap=soft>$form->{notes}</textarea>|;
$employee = qq|
<tr>
- <th align=right nowrap>$label</th>
- <td><select name=employee>$form->{selectemployee}</select></td>
- <input type=hidden name=selectemployee value="|
+ <th align="right" nowrap>$label</th>
+ <td><select name="employee">$form->{selectemployee}</select></td>
+ <input type="hidden" name="selectemployee" value="|
. $form->escape( $form->{selectemployee}, 1 ) . qq|">
</tr>
|;
@@ -495,10 +495,10 @@ qq|<textarea name=notes rows=$rows cols=50 wrap=soft>$form->{notes}</textarea>|;
print qq|
<body onload="document.forms[0].${focus}.focus()">
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
-<input type=hidden name=type value="$form->{formname}">
-<input type=hidden name=title value="$title">
+<input type="hidden" name="type" value="$form->{formname}">
+<input type="hidden" name="title" value="$title">
|;
@@ -523,31 +523,31 @@ qq|<textarea name=notes rows=$rows cols=50 wrap=soft>$form->{notes}</textarea>|;
print qq|
-<table width=100%>
- <tr class=listtop>
- <th class=listtop>$form->{title}</th>
+<table width="100%">
+ <tr class="listtop">
+ <th class="listtop">$form->{title}</th>
</tr>
<tr height="5"></tr>
- <tr valign=top>
+ <tr valign="top">
<td>
- <table width=100%>
- <tr valign=top>
+ <table width="100%">
+ <tr valign="top">
<td>
<table>
<tr>
<th align="right" nowrap>$label</th>
- <td colspan=3>$name</td>
- <input type=hidden name="select$form->{vc}" value="|
+ <td colspan="3">$name</td>
+ <input type="hidden" name="select$form->{vc}" value="|
. $form->escape( $form->{"select$form->{vc}"}, 1 ) . qq|">
</tr>
<tr>
<td></td>
- <td colspan=3>
- <table width=100%>
+ <td colspan="3">
+ <table width="100%">
<tr>
- <th align=left nowrap>| . $locale->text('Credit Limit') . qq|</th>
+ <th align="left" nowrap>| . $locale->text('Credit Limit') . qq|</th>
<td>$form->{creditlimit}</td>
- <th align=left nowrap>| . $locale->text('Remaining') . qq|</th>
+ <th align="left" nowrap>| . $locale->text('Remaining') . qq|</th>
<td class="plus$n">|
. $form->format_amount( \%myconfig, $form->{creditremaining}, 0, "0" )
. qq|</td>
@@ -560,28 +560,28 @@ qq|<textarea name=notes rows=$rows cols=50 wrap=soft>$form->{notes}</textarea>|;
$taxincluded
</table>
</td>
- <td align=right>
+ <td align="right">
<table>
$employee
<tr>
- <th align=right nowrap>| . $locale->text('Invoice Number') . qq|</th>
- <td><input name=invnumber size=20 value="$form->{invnumber}"></td>
+ <th align="right" nowrap>| . $locale->text('Invoice Number') . qq|</th>
+ <td><input name="invnumber" size="20" value="$form->{invnumber}"></td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('Order Number') . qq|</th>
- <td><input name=ordnumber size=20 value="$form->{ordnumber}"></td>
+ <th align="right" nowrap>| . $locale->text('Order Number') . qq|</th>
+ <td><input name="ordnumber" size="20" value="$form->{ordnumber}"></td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('Invoice Date') . qq|</th>
- <td><input name=transdate size=11 title="($myconfig{'dateformat'})" value="$form->{transdate}"></td>
+ <th align="right" nowrap>| . $locale->text('Invoice Date') . qq|</th>
+ <td><input name="transdate" size="11" title="($myconfig{'dateformat'})" value="$form->{transdate}"></td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('Due Date') . qq|</th>
- <td><input name=duedate size=11 title="$myconfig{'dateformat'}" value=$form->{duedate}></td>
+ <th align="right" nowrap>| . $locale->text('Due Date') . qq|</th>
+ <td><input name="duedate" size="11" title="$myconfig{'dateformat'}" value="$form->{duedate}"></td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('PO Number') . qq|</th>
- <td><input name=ponumber size=20 value="$form->{ponumber}"></td>
+ <th align="right" nowrap>| . $locale->text('PO Number') . qq|</th>
+ <td><input name="ponumber" size="20" value="$form->{ponumber}"></td>
</tr>
</table>
</td>
@@ -589,7 +589,7 @@ qq|<textarea name=notes rows=$rows cols=50 wrap=soft>$form->{notes}</textarea>|;
</table>
</td>
</tr>
- <input type=hidden name=selectprojectnumber value="|
+ <input type="hidden" name="selectprojectnumber" value="|
. $form->escape( $form->{selectprojectnumber}, 1 ) . qq|">
<tr>
<td>
@@ -625,23 +625,23 @@ s/option>\Q$form->{"$form->{ARAP}_amount_$i"}\E/option selected>$form->{"$form->
$form->format_amount( \%myconfig, $form->{"amount_$i"}, 2 );
$project = qq|
- <td align=right><select name="projectnumber_$i">$selectprojectnumber</select></td>
+ <td align="right"><select name="projectnumber_$i">$selectprojectnumber</select></td>
| if $form->{selectprojectnumber};
if ( ( $rows = $form->numtextrows( $form->{"description_$i"}, 40 ) ) >
1 )
{
$description =
-qq|<td><textarea name="description_$i" rows=$rows cols=40>$form->{"description_$i"}</textarea></td>|;
+qq|<td><textarea name="description_$i" rows="$rows" cols="40">$form->{"description_$i"}</textarea></td>|;
}
else {
$description =
-qq|<td><input name="description_$i" size=40 value="$form->{"description_$i"}"></td>|;
+qq|<td><input name="description_$i" size="40" value="$form->{"description_$i"}"></td>|;
}
print qq|
<tr valign=top>
- <td><input name="amount_$i" size=10 value="$form->{"amount_$i"}" accesskey="$i"></td>
+ <td><input name="amount_$i" size="10" value="$form->{"amount_$i"}" accesskey="$i"></td>
<td></td>
<td><select name="$form->{ARAP}_amount_$i">$selectamount</select></td>
$description
@@ -660,8 +660,8 @@ qq|<td><input name="description_$i" size=40 value="$form->{"description_$i"}"></
print qq|
<tr>
- <td><input name="tax_$item" size=10 value=$form->{"tax_$item"}></td>
- <td align=right><input name="calctax_$item" class=checkbox type=checkbox value=1 $form->{"calctax_$item"}></td>
+ <td><input name="tax_$item" size="10" value="$form->{"tax_$item"}"></td>
+ <td align="right"><input name="calctax_$item" class="checkbox" type="checkbox" value="1" $form->{"calctax_$item"}></td>
<td><select name="$form->{ARAP}_tax_$item">$form->{"select$form->{ARAP}_tax_$item"}</select></td>
</tr>
|;
@@ -680,26 +680,26 @@ qq|<td><input name="description_$i" size=40 value="$form->{"description_$i"}"></
print qq|
<tr>
- <th align=left>$form->{invtotal}</th>
+ <th align="left">$form->{invtotal}</th>
<td></td>
- <td><select name=$form->{ARAP}>$form->{"select$form->{ARAP}"}</select></td>
+ <td><select name="$form->{ARAP}">$form->{"select$form->{ARAP}"}</select></td>
</tr>
<tr>
- <th align=right>| . $locale->text('Notes') . qq|</th>
+ <th align="right">| . $locale->text('Notes') . qq|</th>
<td></td>
- <td colspan=3>$notes</td>
+ <td colspan="3">$notes</td>
</tr>
</table>
</td>
</tr>
- <tr class=listheading>
- <th class=listheading>| . $locale->text('Payments') . qq|</th>
+ <tr class="listheading">
+ <th class="listheading">| . $locale->text('Payments') . qq|</th>
</tr>
<tr>
<td>
- <table width=100%>
+ <table width="100%">
|;
if ( $form->{currency} eq $form->{defaultcurrency} ) {
@@ -754,23 +754,23 @@ s/option>\Q$form->{"$form->{ARAP}_paid_$i"}\E/option selected>$form->{"$form->{A
}
else {
$exchangerate =
-qq|<input name="exchangerate_$i" size=10 value=$form->{"exchangerate_$i"}>|;
+qq|<input name="exchangerate_$i" size="10" value=$form->{"exchangerate_$i"}>|;
}
}
$form->hide_form("forex_$i");
$column_data{paid} =
-qq|<td align=center><input name="paid_$i" size=11 value=$form->{"paid_$i"}></td>|;
+qq|<td align="center"><input name="paid_$i" size="11" value="$form->{"paid_$i"}"></td>|;
$column_data{ARAP_paid} =
-qq|<td align=center><select name="$form->{ARAP}_paid_$i">$form->{"select$form->{ARAP}_paid_$i"}</select></td>|;
- $column_data{exchangerate} = qq|<td align=center>$exchangerate</td>|;
+qq|<td align="center"><select name="$form->{ARAP}_paid_$i">$form->{"select$form->{ARAP}_paid_$i"}</select></td>|;
+ $column_data{exchangerate} = qq|<td align="center">$exchangerate</td>|;
$column_data{datepaid} =
-qq|<td align=center><input name="datepaid_$i" size=11 value=$form->{"datepaid_$i"}></td>|;
+qq|<td align="center"><input name="datepaid_$i" size="11" value="$form->{"datepaid_$i"}"></td>|;
$column_data{source} =
-qq|<td align=center><input name="source_$i" size=11 value="$form->{"source_$i"}"></td>|;
+qq|<td align="center"><input name="source_$i" size="11" value="$form->{"source_$i"}"></td>|;
$column_data{memo} =
-qq|<td align=center><input name="memo_$i" size=11 value="$form->{"memo_$i"}"></td>|;
+qq|<td align="center"><input name="memo_$i" size="11" value="$form->{"memo_$i"}"></td>|;
for (@column_index) { print qq|$column_data{$_}\n| }
@@ -786,7 +786,7 @@ qq|<td align=center><input name="memo_$i" size=11 value="$form->{"memo_$i"}"></t
</td>
</tr>
<tr>
- <td><hr size=3 noshade></td>
+ <td><hr size="3" noshade></td>
</tr>
</table>
|;
@@ -1093,14 +1093,14 @@ sub delete {
print qq|
<body>
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
|;
$form->{action} = "yes";
$form->hide_form;
print qq|
-<h2 class=confirm>$form->{title}</h2>
+<h2 class="confirm">$form->{title}</h2>
<h4>|
. $locale->text('Are you sure you want to delete Transaction')
@@ -1153,7 +1153,7 @@ sub search {
qq|<select name="$form->{vc}"><option>\n$selectname</select>|;
}
else {
- $selectname = qq|<input name=$form->{vc} size=35>|;
+ $selectname = qq|<input name="$form->{vc}" size="35">|;
}
# departments
@@ -1166,13 +1166,13 @@ qq|<option value="$_->{description}--$_->{id}">$_->{description}\n|;
}
$l_department =
- qq|<input name="l_department" class=checkbox type=checkbox value=Y> |
+ qq|<input name="l_department" class="checkbox" type="checkbox" value="Y"> |
. $locale->text('Department');
$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>
|;
}
@@ -1191,16 +1191,16 @@ qq|<option value="$_->{description}--$_->{id}">$_->{description}\n|;
$employee = qq|
<tr>
- <th align=right nowrap>$employeelabel</th>
- <td colspan=3><select name=employee>$form->{selectemployee}</select></td>
+ <th align="right" nowrap>$employeelabel</th>
+ <td colspan="3"><select name="employee">$form->{selectemployee}</select></td>
</tr>
|;
$l_employee =
-qq|<input name="l_employee" class=checkbox type=checkbox value=Y> $employeelabel|;
+qq|<input name="l_employee" class="checkbox" type="checkbox" value=Y> $employeelabel|;
$l_manager =
- qq|<input name="l_manager" class=checkbox type=checkbox value=Y> |
+ qq|<input name="l_manager" class="checkbox" type="checkbox" value=Y> |
. $locale->text('Manager');
}
@@ -1211,37 +1211,37 @@ qq|<input name="l_employee" class=checkbox type=checkbox value=Y> $employeelabel
$invnumber = qq|
<tr>
- <th align=right nowrap>| . $locale->text('Invoice Number') . qq|</th>
- <td colspan=3><input name=invnumber size=20></td>
+ <th align="right" nowrap>| . $locale->text('Invoice Number') . qq|</th>
+ <td colspan="3"><input name="invnumber" size="20"></td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('Order Number') . qq|</th>
- <td colspan=3><input name=ordnumber size=20></td>
+ <th align="right" nowrap>| . $locale->text('Order Number') . qq|</th>
+ <td colspan="3"><input name="ordnumber" size="20"></td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('PO Number') . qq|</th>
- <td colspan=3><input name=ponumber size=20></td>
+ <th align="right" nowrap>| . $locale->text('PO Number') . qq|</th>
+ <td colspan="3"><input name="ponumber" size="20"></td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('Source') . qq|</th>
- <td colspan=3><input name=source size=40></td>
+ <th align="right" nowrap>| . $locale->text('Source') . qq|</th>
+ <td colspan="3"><input name="source" size="40"></td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('Description') . qq|</th>
- <td colspan=3><input name=description size=40></td>
+ <th align="right" nowrap>| . $locale->text('Description') . qq|</th>
+ <td colspan="3"><input name="description" size="40"></td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('Notes') . qq|</th>
- <td colspan=3><input name=notes size=40></td>
+ <th align="right" nowrap>| . $locale->text('Notes') . qq|</th>
+ <td colspan="3"><input name="notes" size="40"></td>
</tr>
|;
$openclosed = qq|
<tr>
- <td nowrap><input name=open class=checkbox type=checkbox value=Y checked> |
+ <td nowrap><input name="open" class="checkbox" type="checkbox" value="Y" checked> |
. $locale->text('Open')
. qq|</td>
- <td nowrap><input name=closed class=checkbox type=checkbox value=Y> |
+ <td nowrap><input name="closed" class="checkbox" type="checkbox" value="Y"> |
. $locale->text('Closed')
. qq|</td>
</tr>
@@ -1249,10 +1249,10 @@ qq|<input name="l_employee" class=checkbox type=checkbox value=Y> $employeelabel
$summary = qq|
<tr>
- <td><input name=summary type=radio class=radio value=1 checked> |
+ <td><input name="summary" type="radio" class="radio" value="1" checked> |
. $locale->text('Summary')
. qq|</td>
- <td><input name=summary type=radio class=radio value=0> |
+ <td><input name=summary type="radio" class="radio" value="0"> |
. $locale->text('Detail') . qq|
</td>
</tr>
@@ -1284,17 +1284,17 @@ qq|<input name="l_employee" class=checkbox type=checkbox value=Y> $employeelabel
$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>
@@ -1303,65 +1303,65 @@ qq|<input name="l_employee" class=checkbox type=checkbox value=Y> $employeelabel
$name = $locale->text('Customer');
$l_name =
-qq|<input name="l_name" class=checkbox type=checkbox value=Y checked> $name|;
+qq|<input name="l_name" class="checkbox" type="checkbox" value="Y" checked> $name|;
$l_till =
- qq|<input name="l_till" class=checkbox type=checkbox value=Y> |
+ qq|<input name="l_till" class="checkbox" type="checkbox" value="Y"> |
. $locale->text('Till');
if ( $form->{vc} eq 'vendor' ) {
$name = $locale->text('Vendor');
$l_till = "";
$l_name =
-qq|<input name="l_name" class=checkbox type=checkbox value=Y checked> $name|;
+qq|<input name="l_name" class="checkbox" type="checkbox" value="Y" checked> $name|;
}
@a = ();
push @a,
- qq|<input name="l_runningnumber" class=checkbox type=checkbox value=Y> |
+ qq|<input name="l_runningnumber" class="checkbox" type="checkbox" value="Y"> |
. $locale->text('No.');
- push @a, qq|<input name="l_id" class=checkbox type=checkbox value=Y> |
+ push @a, qq|<input name="l_id" class="checkbox" type="checkbox" value="Y"> |
. $locale->text('ID');
push @a,
-qq|<input name="l_invnumber" class=checkbox type=checkbox value=Y checked> |
+qq|<input name="l_invnumber" class="checkbox" type="checkbox" value="Y" checked> |
. $locale->text('Invoice Number');
push @a,
- qq|<input name="l_ordnumber" class=checkbox type=checkbox value=Y> |
+ qq|<input name="l_ordnumber" class="checkbox" type="checkbox" value="Y"> |
. $locale->text('Order Number');
- push @a, qq|<input name="l_ponumber" class=checkbox type=checkbox value=Y> |
+ push @a, qq|<input name="l_ponumber" class="checkbox" type="checkbox" value="Y"> |
. $locale->text('PO Number');
push @a,
-qq|<input name="l_transdate" class=checkbox type=checkbox value=Y checked> |
+qq|<input name="l_transdate" class="checkbox" type="checkbox" value="Y" checked> |
. $locale->text('Invoice Date');
push @a, $l_name;
push @a, $l_employee if $l_employee;
push @a, $l_manager if $l_employee;
push @a, $l_department if $l_department;
push @a,
- qq|<input name="l_netamount" class=checkbox type=checkbox value=Y> |
+ qq|<input name="l_netamount" class="checkbox" type="checkbox" value="Y"> |
. $locale->text('Amount');
- push @a, qq|<input name="l_tax" class=checkbox type=checkbox value=Y> |
+ push @a, qq|<input name="l_tax" class="checkbox" type="checkbox" value="Y"> |
. $locale->text('Tax');
push @a,
- qq|<input name="l_amount" class=checkbox type=checkbox value=Y checked> |
+ qq|<input name="l_amount" class="checkbox" type="checkbox" value="Y" checked> |
. $locale->text('Total');
- push @a, qq|<input name="l_curr" class=checkbox type=checkbox value=Y> |
+ push @a, qq|<input name="l_curr" class="checkbox" type="checkbox" value="Y"> |
. $locale->text('Currency');
- push @a, qq|<input name="l_datepaid" class=checkbox type=checkbox value=Y> |
+ push @a, qq|<input name="l_datepaid" class="checkbox" type="checkbox" value="Y"> |
. $locale->text('Date Paid');
push @a,
- qq|<input name="l_paid" class=checkbox type=checkbox value=Y checked> |
+ qq|<input name="l_paid" class="checkbox" type="checkbox" value="Y" checked> |
. $locale->text('Paid');
- push @a, qq|<input name="l_duedate" class=checkbox type=checkbox value=Y> |
+ push @a, qq|<input name="l_duedate" class="checkbox" type="checkbox" value="Y"> |
. $locale->text('Due Date');
- push @a, qq|<input name="l_due" class=checkbox type=checkbox value=Y> |
+ push @a, qq|<input name="l_due" class="checkbox" type="checkbox" value="Y"> |
. $locale->text('Amount Due');
- push @a, qq|<input name="l_notes" class=checkbox type=checkbox value=Y> |
+ push @a, qq|<input name="l_notes" class="checkbox" type="checkbox" value="Y"> |
. $locale->text('Notes');
push @a, $l_till if $l_till;
push @a,
- qq|<input name="l_shippingpoint" class=checkbox type=checkbox value=Y> |
+ qq|<input name="l_shippingpoint" class="checkbox" type="checkbox" value="Y"> |
. $locale->text('Shipping Point');
- push @a, qq|<input name="l_shipvia" class=checkbox type=checkbox value=Y> |
+ push @a, qq|<input name="l_shipvia" class="checkbox" type="checkbox" value="Y"> |
. $locale->text('Ship via');
$form->header;
@@ -1369,34 +1369,34 @@ qq|<input name="l_transdate" class=checkbox type=checkbox value=Y checked> |
print qq|
<body>
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
-<table width=100%>
- <tr><th class=listtop>$form->{title}</th></tr>
+<table width="100%">
+ <tr><th class="listtop">$form->{title}</th></tr>
<tr height="5"></tr>
<tr>
<td>
<table>
<tr>
- <th align=right>| . $locale->text('Account') . qq|</th>
- <td colspan=3><select name=$form->{ARAP}>$form->{"select$form->{ARAP}"}</select></td>
+ <th align="right">| . $locale->text('Account') . qq|</th>
+ <td colspan="3"><select name="$form->{ARAP}">$form->{"select$form->{ARAP}"}</select></td>
</tr>
<tr>
- <th align=right>$name</th>
- <td colspan=3>$selectname</td>
+ <th align="right">$name</th>
+ <td colspan="3">$selectname</td>
</tr>
$employee
$department
$invnumber
<tr>
- <th align=right>| . $locale->text('Ship via') . qq|</th>
- <td colspan=3><input name=shipvia size=40></td>
+ <th align="right">| . $locale->text('Ship via') . qq|</th>
+ <td colspan="3"><input name=shipvia size="40"></td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('From') . qq|</th>
- <td><input name=transdatefrom size=11 title="$myconfig{dateformat}"></td>
- <th align=right>| . $locale->text('To') . qq|</th>
- <td><input name=transdateto size=11 title="$myconfig{dateformat}"></td>
+ <th align="right" nowrap>| . $locale->text('From') . qq|</th>
+ <td><input name="transdatefrom" size="11" title="$myconfig{dateformat}"></td>
+ <th align="right">| . $locale->text('To') . qq|</th>
+ <td><input name="transdateto" size="11" title="$myconfig{dateformat}"></td>
</tr>
$selectfrom
</table>
@@ -1406,9 +1406,9 @@ qq|<input name="l_transdate" class=checkbox type=checkbox value=Y checked> |
<td>
<table>
<tr>
- <th align=right nowrap>| . $locale->text('Include in Report') . qq|</th>
+ <th align="right" nowrap>| . $locale->text('Include in Report') . qq|</th>
<td>
- <table width=100%>
+ <table width="100%">
$openclosed
$summary
|;
@@ -1426,7 +1426,7 @@ qq|<input name="l_transdate" class=checkbox type=checkbox value=Y checked> |
print qq|
<tr>
- <td nowrap><input name="l_subtotal" class=checkbox type=checkbox value=Y> |
+ <td nowrap><input name="l_subtotal" class="checkbox" type="checkbox" value="Y"> |
. $locale->text('Subtotal')
. qq|</td>
</tr>
@@ -1437,7 +1437,7 @@ qq|<input name="l_transdate" class=checkbox type=checkbox value=Y checked> |
</td>
</tr>
<tr>
- <td><hr size=3 noshade></td>
+ <td><hr size="3" noshade></td>
</tr>
</table>
@@ -1645,69 +1645,69 @@ sub transactions {
? $locale->text('Customer')
: $locale->text('Vendor');
- $column_header{runningnumber} = qq|<th class=listheading>&nbsp;</th>|;
+ $column_header{runningnumber} = qq|<th class="listheading">&nbsp;</th>|;
$column_header{id} =
- "<th><a class=listheading href=$href&sort=id>"
+ qq|<th><a class="listheading" href="$href&sort=id">|
. $locale->text('ID')
. "</a></th>";
$column_header{transdate} =
- "<th><a class=listheading href=$href&sort=transdate>"
+ qq|<th><a class="listheading" href="$href&sort=transdate">|
. $locale->text('Date')
. "</a></th>";
$column_header{duedate} =
- "<th><a class=listheading href=$href&sort=duedate>"
+ qq|<th><a class="listheading" href="$href&sort=duedate">|
. $locale->text('Due Date')
. "</a></th>";
$column_header{invnumber} =
- "<th><a class=listheading href=$href&sort=invnumber>"
+ qq|<th><a class="listheading" href="$href&sort=invnumber">|
. $locale->text('Invoice')
. "</a></th>";
$column_header{ordnumber} =
- "<th><a class=listheading href=$href&sort=ordnumber>"
+ qq|<th><a class="listheading" href="$href&sort=ordnumber">|
. $locale->text('Order')
. "</a></th>";
$column_header{ponumber} =
- "<th><a class=listheading href=$href&sort=ponumber>"
+ qq|<th><a class="listheading" href="$href&sort=ponumber">|
. $locale->text('PO Number')
. "</a></th>";
$column_header{name} =
- "<th><a class=listheading href=$href&sort=name>$name</a></th>";
+ qq|<th><a class="listheading" href="$href&sort=name">$name</a></th>|;
$column_header{netamount} =
- "<th class=listheading>" . $locale->text('Amount') . "</th>";
+ '<th class="listheading">' . $locale->text('Amount') . "</th>";
$column_header{tax} =
- "<th class=listheading>" . $locale->text('Tax') . "</th>";
+ '<th class="listheading">' . $locale->text('Tax') . "</th>";
$column_header{amount} =
- "<th class=listheading>" . $locale->text('Total') . "</th>";
+ '<th class="listheading">' . $locale->text('Total') . "</th>";
$column_header{paid} =
- "<th class=listheading>" . $locale->text('Paid') . "</th>";
+ '<th class="listheading">' . $locale->text('Paid') . "</th>";
$column_header{datepaid} =
- "<th><a class=listheading href=$href&sort=datepaid>"
+ qq|<th><a class="listheading" href="$href&sort=datepaid">|
. $locale->text('Date Paid')
. "</a></th>";
$column_header{due} =
- "<th class=listheading>" . $locale->text('Amount Due') . "</th>";
+ '<th class="listheading">' . $locale->text('Amount Due') . "</th>";
$column_header{notes} =
- "<th class=listheading>" . $locale->text('Notes') . "</th>";
+ '<th class="listheading">' . $locale->text('Notes') . "</th>";
$column_header{employee} =
- "<th><a class=listheading href=$href&sort=employee>$employee</th>";
+ qq|<th><a class="listheading" href="$href&sort=employee">$employee</th>|;
$column_header{manager} =
- "<th><a class=listheading href=$href&sort=manager>"
+ qq|<th><a class="listheading" href="$href&sort=manager">|
. $locale->text('Manager') . "</th>";
$column_header{till} =
- "<th class=listheading><a class=listheading href=$href&sort=till>"
+ qq|<th class="listheading"><a class="listheading" href="$href&sort=till">|
. $locale->text('Till') . "</th>";
$column_header{shippingpoint} =
- "<th><a class=listheading href=$href&sort=shippingpoint>"
+ qq|<th><a class="listheading" href="$href&sort=shippingpoint">|
. $locale->text('Shipping Point')
. "</a></th>";
$column_header{shipvia} =
- "<th><a class=listheading href=$href&sort=shipvia>"
+ qq|<th><a class="listheading" href="$href&sort=shipvia">|
. $locale->text('Ship via')
. "</a></th>";
$column_header{curr} =
- "<th><a class=listheading href=$href&sort=curr>"
+ qq|<th><a class="listheading" href="$href&sort=curr">|
. $locale->text('Curr')
. "</a></th>";
for (qw(amount tax netamount paid due)) {
@@ -1715,28 +1715,28 @@ sub transactions {
}
$column_header{department} =
- "<th><a class=listheading href=$href&sort=department>"
+ qq|<th><a class="listheading" href="$href&sort=department">|
. $locale->text('Department')
. "</a></th>";
$column_header{accno} =
- "<th><a class=listheading href=$href&sort=accno>"
+ qq|<th><a class="listheading" href="$href&sort=accno">|
. $locale->text('Account')
. "</a></th>";
$column_header{source} =
- "<th><a class=listheading href=$href&sort=source>"
+ qq|<th><a class="listheading" href="$href&sort=source">|
. $locale->text('Source')
. "</a></th>";
$column_header{debit} =
- "<th class=listheading>" . $locale->text('Debit') . "</th>";
+ '<th class="listheading">' . $locale->text('Debit') . "</th>";
$column_header{credit} =
- "<th class=listheading>" . $locale->text('Credit') . "</th>";
+ '<th class="listheading">' . $locale->text('Credit') . "</th>";
$column_header{projectnumber} =
- "<th><a class=listheading href=$href&sort=projectnumber>"
+ qq|<th><a class="listheading" href="$href&sort=projectnumber">|
. $locale->text('Project')
. "</a></th>";
$column_header{description} =
- "<th><a class=listheading href=$href&sort=linedescription>"
+ qq|<th><a class="listheading" href="$href&sort=linedescription">|
. $locale->text('Description')
. "</a></th>";
@@ -1748,9 +1748,9 @@ sub 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>
@@ -1758,8 +1758,8 @@ sub transactions {
</tr>
<tr>
<td>
- <table width=100%>
- <tr class=listheading>
+ <table width="100%">
+ <tr class="listheading">
|;
for (@column_index) { print "\n$column_header{$_}" }
@@ -1802,18 +1802,18 @@ sub transactions {
}
for (qw(netamount amount paid)) {
- $column_data{"fx_$_"} = "<td align=right>"
+ $column_data{"fx_$_"} = '<td align="right">'
. $form->format_amount( \%myconfig, $ref->{"fx_$_"}, 2,
"&nbsp;" )
. "</td>";
}
- $column_data{fx_tax} = "<td align=right>"
+ $column_data{fx_tax} = '<td align="right">'
. $form->format_amount( \%myconfig,
$ref->{fx_amount} - $ref->{fx_netamount},
2, "&nbsp;" )
. "</td>";
- $column_data{fx_due} = "<td align=right>"
+ $column_data{fx_due} = '<td align="right">'
. $form->format_amount( \%myconfig,
$ref->{fx_amount} - $ref->{fx_paid},
2, "&nbsp;" )
@@ -1829,21 +1829,21 @@ sub transactions {
}
- $column_data{runningnumber} = "<td align=right>$i</td>";
+ $column_data{runningnumber} = qq|<td align="right">$i</td>|;
for (qw(netamount amount paid debit credit)) {
$column_data{$_} =
- "<td align=right>"
+ '<td align="right">'
. $form->format_amount( \%myconfig, $ref->{$_}, 2, "&nbsp;" )
. "</td>";
}
- $column_data{tax} = "<td align=right>"
+ $column_data{tax} = '<td align="right">'
. $form->format_amount( \%myconfig,
$ref->{amount} - $ref->{netamount},
2, "&nbsp;" )
. "</td>";
- $column_data{due} = "<td align=right>"
+ $column_data{due} = '<td align="right">'
. $form->format_amount( \%myconfig, $ref->{amount} - $ref->{paid},
2, "&nbsp;" )
. "</td>";
@@ -1867,7 +1867,7 @@ sub transactions {
$module = ( $ref->{till} ) ? "ps.pl" : $module;
$column_data{invnumber} =
-"<td><a href=$module?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{invnumber}&nbsp;</a></td>";
+qq|<td><a href="$module?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback">$ref->{invnumber}&nbsp;</a></td>|;
for (qw(notes description)) { $ref->{$_} =~ s/\r?\n/<br>/g }
for (
@@ -1879,19 +1879,19 @@ sub transactions {
for (qw(id curr)) { $column_data{$_} = "<td>$ref->{$_}</td>" }
$column_data{accno} =
-qq|<td><a href=ca.pl?path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&action=list_transactions&accounttype=standard&accno=$ref->{accno}&fromdate=$form->{transdatefrom}&todate=$form->{transdateto}&sort=transdate&l_subtotal=$form->{l_subtotal}&prevreport=$callback>$ref->{accno}</a></td>|;
+qq|<td><a href="ca.pl?path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&action=list_transactions&accounttype=standard&accno=$ref->{accno}&fromdate=$form->{transdatefrom}&todate=$form->{transdateto}&sort=transdate&l_subtotal=$form->{l_subtotal}&prevreport=$callback">$ref->{accno}</a></td>|;
$column_data{name} =
-qq|<td><a href=ct.pl?path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&action=edit&id=$ref->{"$form->{vc}_id"}&db=$form->{vc}&callback=$callback>$ref->{name}</a></td>|;
+qq|<td><a href="ct.pl?path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&action=edit&id=$ref->{"$form->{vc}_id"}&db=$form->{vc}&callback=$callback">$ref->{name}</a></td>|;
if ( $ref->{id} != $sameid ) {
$j++;
$j %= 2;
}
- print "
- <tr class=listrow$j>
-";
+ print qq|
+ <tr class="listrow$j">
+|;
for (@column_index) { print "\n$column_data{$_}" }
@@ -1910,56 +1910,56 @@ qq|<td><a href=ct.pl?path=$form->{path}&login=$form->{login}&sessionid=$form->{s
# print totals
print qq|
- <tr class=listtotal>
+ <tr class="listtotal">
|;
for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
$column_data{netamount} =
- "<th class=listtotal align=right>"
+ '<th class="listtotal" align="right">'
. $form->format_amount( \%myconfig, $totalnetamount, 2, "&nbsp;" )
. "</th>";
- $column_data{tax} = "<th class=listtotal align=right>"
+ $column_data{tax} = '<th class="listtotal" align="right">'
. $form->format_amount( \%myconfig, $totalamount - $totalnetamount,
2, "&nbsp;" )
. "</th>";
$column_data{amount} =
- "<th class=listtotal align=right>"
+ '<th class="listtotal" align="right">'
. $form->format_amount( \%myconfig, $totalamount, 2, "&nbsp;" ) . "</th>";
$column_data{paid} =
- "<th class=listtotal align=right>"
+ '<th class="listtotal" align="right">'
. $form->format_amount( \%myconfig, $totalpaid, 2, "&nbsp;" ) . "</th>";
$column_data{due} =
- "<th class=listtotal align=right>"
+ '<th class="listtotal" align="right">'
. $form->format_amount( \%myconfig, $totalamount - $totalpaid, 2,
"&nbsp;" )
. "</th>";
$column_data{debit} =
- "<th class=listtotal align=right>"
+ '<th class="listtotal" align="right">'
. $form->format_amount( \%myconfig, $totaldebit, 2, "&nbsp;" ) . "</th>";
$column_data{credit} =
- "<th class=listtotal align=right>"
+ '<th class="listtotal" align="right">'
. $form->format_amount( \%myconfig, $totalcredit, 2, "&nbsp;" ) . "</th>";
if ( $form->{l_curr} && $form->{sort} eq 'curr' && $form->{l_subtotal} ) {
$column_data{fx_netamount} =
- "<th class=listtotal align=right>"
+ '<th class="listtotal" align="right">'
. $form->format_amount( \%myconfig, $totalfxnetamount, 2, "&nbsp;" )
. "</th>";
- $column_data{fx_tax} = "<th class=listtotal align=right>"
+ $column_data{fx_tax} = '<th class="listtotal" align="right">'
. $form->format_amount( \%myconfig,
$totalfxamount - $totalfxnetamount,
2, "&nbsp;" )
. "</th>";
$column_data{fx_amount} =
- "<th class=listtotal align=right>"
+ '<th class="listtotal" align="right">'
. $form->format_amount( \%myconfig, $totalfxamount, 2, "&nbsp;" )
. "</th>";
$column_data{fx_paid} =
- "<th class=listtotal align=right>"
+ '<th class="listtotal" align="right">'
. $form->format_amount( \%myconfig, $totalfxpaid, 2, "&nbsp;" )
. "</th>";
- $column_data{fx_due} = "<th class=listtotal align=right>"
+ $column_data{fx_due} = '<th class="listtotal" align="right">'
. $form->format_amount( \%myconfig, $totalfxamount - $totalfxpaid,
2, "&nbsp;" )
. "</th>";
@@ -2005,12 +2005,12 @@ qq|<button class="submit" type="submit" name="action" value="vendor_invoice_">|
</td>
</tr>
<tr>
- <td><hr size=3 noshade></td>
+ <td><hr size="3" noshade></td>
</tr>
</table>
<br>
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
|;
$form->hide_form(
@@ -2042,46 +2042,46 @@ sub subtotal {
for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
- $column_data{tax} = "<th class=listsubtotal align=right>"
+ $column_data{tax} = '<th class="listsubtotal" align="right">'
. $form->format_amount( \%myconfig, $subtotalamount - $subtotalnetamount,
2, "&nbsp;" )
. "</th>";
$column_data{amount} =
- "<th class=listsubtotal align=right>"
+ '<th class="listsubtotal" align="right">'
. $form->format_amount( \%myconfig, $subtotalamount, 2, "&nbsp;" )
. "</th>";
$column_data{paid} =
- "<th class=listsubtotal align=right>"
+ '<th class="listsubtotal" align="right">'
. $form->format_amount( \%myconfig, $subtotalpaid, 2, "&nbsp;" )
. "</th>";
- $column_data{due} = "<th class=listsubtotal align=right>"
+ $column_data{due} = '<th class="listsubtotal" align="right">'
. $form->format_amount( \%myconfig, $subtotalamount - $subtotalpaid,
2, "&nbsp;" )
. "</th>";
$column_data{debit} =
- "<th class=listsubtotal align=right>"
+ '<th class="listsubtotal" align="right">'
. $form->format_amount( \%myconfig, $subtotaldebit, 2, "&nbsp;" )
. "</th>";
$column_data{credit} =
- "<th class=listsubtotal align=right>"
+ '<th class="listsubtotal" align="right">'
. $form->format_amount( \%myconfig, $subtotalcredit, 2, "&nbsp;" )
. "</th>";
if ( $form->{l_curr} && $form->{sort} eq 'curr' && $form->{l_subtotal} ) {
- $column_data{fx_tax} = "<th class=listsubtotal align=right>"
+ $column_data{fx_tax} = '<th class="listsubtotal" align="right">'
. $form->format_amount( \%myconfig,
$subtotalfxamount - $subtotalfxnetamount,
2, "&nbsp;" )
. "</th>";
$column_data{fx_amount} =
- "<th class=listsubtotal align=right>"
+ '<th class="listsubtotal" align="right">'
. $form->format_amount( \%myconfig, $subtotalfxamount, 2, "&nbsp;" )
. "</th>";
$column_data{fx_paid} =
- "<th class=listsubtotal align=right>"
+ '<th class="listsubtotal" align="right">'
. $form->format_amount( \%myconfig, $subtotalfxpaid, 2, "&nbsp;" )
. "</th>";
- $column_data{fx_due} = "<th class=listsubtotal align=right>"
+ $column_data{fx_due} = '<th class="listsubtotal" align="right">'
. $form->format_amount( \%myconfig,
$subtotalfxmount - $subtotalfxpaid,
2, "&nbsp;" )
@@ -2098,7 +2098,7 @@ sub subtotal {
$subtotalfxamount = 0;
$subtotalfxpaid = 0;
- print "<tr class=listsubtotal>";
+ print '<tr class="listsubtotal">';
for (@column_index) { print "\n$column_data{$_}" }
diff --git a/bin/arap.pl b/bin/arap.pl
index bce15aae..7ad58466 100755
--- a/bin/arap.pl
+++ b/bin/arap.pl
@@ -153,9 +153,9 @@ sub select_name {
$label = ucfirst $table;
$column_data{ndx} = qq|<th>&nbsp;</th>|;
$column_data{name} =
- qq|<th class=listheading>| . $locale->text($label) . qq|</th>|;
+ qq|<th class="listheading">| . $locale->text($label) . qq|</th>|;
$column_data{address} =
- qq|<th class=listheading colspan=5>|
+ qq|<th class="listheading" colspan="5">|
. $locale->text('Address')
. qq|</th>|;
@@ -167,17 +167,17 @@ sub select_name {
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>$title</th>
+ <th class="listtop">$title</th>
</tr>
- <tr space=5></tr>
+ <tr space="5"></tr>
<tr>
<td>
- <table width=100%>
- <tr class=listheading>|;
+ <table width="100%">
+ <tr class="listheading">|;
for (@column_index) { print "\n$column_data{$_}" }
@@ -194,9 +194,9 @@ sub select_name {
$ref->{name} = $form->quote( $ref->{name} );
$column_data{ndx} =
-qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
+qq|<td><input name="ndx" class="radio" type="radio" value="$i" $checked></td>|;
$column_data{name} =
-qq|<td><input name="new_name_$i" type=hidden value="$ref->{name}">$ref->{name}</td>|;
+qq|<td><input name="new_name_$i" type="hidden" value="$ref->{name}">$ref->{name}</td>|;
$column_data{address} = qq|<td>$ref->{address1} $ref->{address2}</td>|;
for (qw(city state zipcode country)) {
$column_data{$_} = qq|<td>$ref->{$_}&nbsp;</td>|;
@@ -205,14 +205,14 @@ qq|<td><input name="new_name_$i" type=hidden value="$ref->{name}">$ref->{name}</
$j++;
$j %= 2;
print qq|
- <tr class=listrow$j>|;
+ <tr class="listrow$j">|;
for (@column_index) { print "\n$column_data{$_}" }
print qq|
</tr>
-<input name="new_id_$i" type=hidden value=$ref->{id}>
+<input name="new_id_$i" type="hidden" value="$ref->{id}">
|;
@@ -223,11 +223,11 @@ qq|<td><input name="new_name_$i" type=hidden value="$ref->{name}">$ref->{name}</
</td>
</tr>
<tr>
- <td><hr size=3 noshade></td>
+ <td><hr size="3" noshade></td>
</tr>
</table>
-<input name=lastndx type=hidden value=$i>
+<input name="lastndx" type="hidden" value="$i">
|;
@@ -239,8 +239,8 @@ qq|<td><input name="new_name_$i" type=hidden value="$ref->{name}">$ref->{name}</
$form->hide_form;
print qq|
-<input type=hidden name=nextsub value=name_selected>
-<input type=hidden name=vc value="$table">
+<input type="hidden" name="nextsub" value="name_selected">
+<input type="hidden" name="vc" value="$table">
<br>
<button class="submit" type="submit" name="action" value="continue">|
. $locale->text('Continue')
@@ -378,19 +378,19 @@ sub select_project {
print qq|
<body>
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
-<input type=hidden name=rownumber value=$form->{rownumber}>
+<input type=hidden name="rownumber" value="$form->{rownumber}">
-<table width=100%>
+<table width="100%">
<tr>
- <th class=listtop>$title</th>
+ <th class="listtop">$title</th>
</tr>
- <tr space=5></tr>
+ <tr space="5"></tr>
<tr>
<td>
- <table width=100%>
- <tr class=listheading>|;
+ <table width="100%">
+ <tr class="listheading">|;
for (@column_index) { print "\n$column_data{$_}" }
@@ -405,22 +405,22 @@ sub select_project {
$ref->{name} = $form->quote( $ref->{name} );
$column_data{ndx} =
-qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
+qq|<td><input name="ndx" class="radio" type="radio" value="$i" $checked></td>|;
$column_data{projectnumber} =
-qq|<td><input name="new_projectnumber_$i" type=hidden value="$ref->{projectnumber}">$ref->{projectnumber}</td>|;
+qq|<td><input name="new_projectnumber_$i" type="hidden" value="$ref->{projectnumber}">$ref->{projectnumber}</td>|;
$column_data{description} = qq|<td>$ref->{description}</td>|;
$j++;
$j %= 2;
print qq|
- <tr class=listrow$j>|;
+ <tr class="listrow$j">|;
for (@column_index) { print "\n$column_data{$_}" }
print qq|
</tr>
-<input name="new_id_$i" type=hidden value=$ref->{id}>
+<input name="new_id_$i" type="hidden" value="$ref->{id}">
|;
@@ -431,11 +431,11 @@ qq|<td><input name="new_projectnumber_$i" type=hidden value="$ref->{projectnumbe
</td>
</tr>
<tr>
- <td><hr size=3 noshade></td>
+ <td><hr size="3" noshade></td>
</tr>
</table>
-<input name=lastndx type=hidden value=$i>
+<input name="lastndx" type="hidden" value="$i">
|;
@@ -447,7 +447,7 @@ qq|<td><input name="new_projectnumber_$i" type=hidden value="$ref->{projectnumbe
$form->hide_form;
print qq|
-<input type=hidden name=nextsub value=project_selected>
+<input type="hidden" name="nextsub" value="project_selected">
<br>
<button class="submit" type="submit" name="action" value="continue">|
. $locale->text('Continue')
@@ -549,13 +549,13 @@ sub repost {
print qq|
<body>
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
|;
$form->hide_form;
print qq|
-<h2 class=confirm>| . $locale->text('Warning!') . qq|</h2>
+<h2 class="confirm">| . $locale->text('Warning!') . qq|</h2>
<h4>$msg</h4>
@@ -591,8 +591,8 @@ sub schedule {
if ( $form->{paidaccounts} ) {
$postpayment = qq|
<tr>
- <th align=right nowrap>| . $locale->text('Include Payment') . qq|</th>
- <td><input name=recurringpayment type=checkbox class=checkbox value=1 $recurringpayment></td>
+ <th align="right" nowrap>| . $locale->text('Include Payment') . qq|</th>
+ <td><input name="recurringpayment" type="checkbox" class="checkbox" value="1" $recurringpayment></td>
</tr>
|;
}
@@ -600,8 +600,8 @@ sub schedule {
if ( $form->{recurringnextdate} ) {
$nextdate = qq|
<tr>
- <th align=right nowrap>| . $locale->text('Next Date') . qq|</th>
- <td><input name=recurringnextdate size=11 title="($myconfig{'dateformat'})" value=$form->{recurringnextdate}></td>
+ <th align="right" nowrap>| . $locale->text('Next Date') . qq|</th>
+ <td><input name="recurringnextdate" size="11" title="($myconfig{'dateformat'})" value="$form->{recurringnextdate}"></td>
</tr>
|;
}
@@ -623,7 +623,7 @@ sub schedule {
$email = qq|
<table>
<tr>
- <th colspan=2 class=listheading>| . $locale->text('E-mail') . qq|</th>
+ <th colspan="2" class="listheading">| . $locale->text('E-mail') . qq|</th>
</tr>
<tr>
@@ -648,7 +648,7 @@ sub schedule {
$email .= qq|
<tr>
- <td><input name="email$item" type=checkbox class=checkbox value=1 $checked></td>
+ <td><input name="email$item" type="checkbox" class="checkbox" value="1" $checked></td>
<th align=left>$formname{$item}</th>
<td><select name="emailformat$item">$selectformat</select></td>
</tr>
@@ -665,11 +665,11 @@ sub schedule {
$message = qq|
<table>
<tr>
- <th class=listheading>| . $locale->text('E-mail message') . qq|</th>
+ <th class="listheading">| . $locale->text('E-mail message') . qq|</th>
</tr>
<tr>
- <td><textarea name="recurringmessage" rows=10 cols=60 wrap=soft>$form->{recurringmessage}</textarea></td>
+ <td><textarea name="recurringmessage" rows="10" cols="60" wrap="soft">$form->{recurringmessage}</textarea></td>
</tr>
</table>
|;
@@ -698,7 +698,7 @@ sub schedule {
$print = qq|
<table>
<tr>
- <th colspan=2 class=listheading>| . $locale->text('Print') . qq|</th>
+ <th colspan="2" class="listheading">| . $locale->text('Print') . qq|</th>
</tr>
<tr>
@@ -722,8 +722,8 @@ sub schedule {
$print .= qq|
<tr>
- <td><input name="print$item" type=checkbox class=checkbox value=1 $checked></td>
- <th align=left>$formname{$item}</th>
+ <td><input name="print$item" type="checkbox" class="checkbox" value=1 $checked></td>
+ <th align="left">$formname{$item}</th>
<td><select name="printprinter$item">$selectprinter</select></td>
<td><select name="printformat$item">$selectformat</select></td>
</tr>
@@ -762,18 +762,18 @@ sub schedule {
$repeat = qq|
<table>
<tr>
- <th colspan=3 class=listheading>| . $locale->text('Repeat') . qq|</th>
+ <th colspan="3" class="listheading">| . $locale->text('Repeat') . qq|</th>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('Every') . qq|</th>
- <td><select name=recurringrepeat>$selectrepeat</td>
- <td><select name=recurringunit>$selectunit</td>
+ <th align="right" nowrap>| . $locale->text('Every') . qq|</th>
+ <td><select name="recurringrepeat">$selectrepeat</td>
+ <td><select name="recurringunit">$selectunit</td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('For') . qq|</th>
- <td><input name=recurringhowmany size=3 value=$form->{recurringhowmany}></td>
- <th align=left nowrap>| . $locale->text('time(s)') . qq|</th>
+ <th align="right" nowrap>| . $locale->text('For') . qq|</th>
+ <td><input name="recurringhowmany" size="3" value="$form->{recurringhowmany}"></td>
+ <th align="left" nowrap>| . $locale->text('time(s)') . qq|</th>
</tr>
</table>
|;
@@ -785,13 +785,13 @@ sub schedule {
print qq|
<body>
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
-<table width=100%>
- <tr class=listtop>
- <th class=listtop>$title</th>
+<table width="100%">
+ <tr class="listtop">
+ <th class="listtop">$title</th>
</tr>
- <tr space=5></tr>
+ <tr space="5"></tr>
<tr>
<td>
<table>
@@ -799,12 +799,12 @@ sub schedule {
<td>
<table>
<tr>
- <th align=right nowrap>| . $locale->text('Reference') . qq|</th>
- <td><input name=recurringreference size=20 value="$form->{recurringreference}"></td>
+ <th align="right" nowrap>| . $locale->text('Reference') . qq|</th>
+ <td><input name="recurringreference" size="20" value="$form->{recurringreference}"></td>
</tr>
<tr>
- <th align=right nowrap>| . $locale->text('Startdate') . qq|</th>
- <td><input name=recurringstartdate size=11 title="($myconfig{'dateformat'})" value=$form->{recurringstartdate}></td>
+ <th align="right" nowrap>| . $locale->text('Startdate') . qq|</th>
+ <td><input name="recurringstartdate" size="11" title="($myconfig{'dateformat'})" value="$form->{recurringstartdate}"></td>
</tr>
$nextdate
</table>
@@ -825,11 +825,11 @@ sub schedule {
<tr>
<td>
<table>
- <tr valign=top>
+ <tr valign="top">
<td>$repeat</td>
<td>$print</td>
</tr>
- <tr valign=top>
+ <tr valign="top">
<td>$email</td>
<td>$message</td>
</tr>
@@ -837,7 +837,7 @@ sub schedule {
</td>
</tr>
<tr>
- <td><hr size=3 noshade></td>
+ <td><hr size="3" noshade></td>
</tr>
</table>
diff --git a/bin/arapprn.pl b/bin/arapprn.pl
index 2d5bf189..d55cef58 100755
--- a/bin/arapprn.pl
+++ b/bin/arapprn.pl
@@ -589,7 +589,7 @@ sub select_payment {
$title = $locale->text('Select payment');
- $column_data{ndx} = qq|<th width=1%>&nbsp;</th>|;
+ $column_data{ndx} = qq|<th width="1%">&nbsp;</th>|;
$column_data{datepaid} = qq|<th>| . $locale->text('Date') . qq|</th>|;
$column_data{source} = qq|<th>| . $locale->text('Source') . qq|</th>|;
$column_data{memo} = qq|<th>| . $locale->text('Memo') . qq|</th>|;
@@ -600,17 +600,17 @@ sub select_payment {
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>$title</th>
+ <th class="listtop">$title</th>
</tr>
- <tr space=5></tr>
+ <tr space="5"></tr>
<tr>
<td>
- <table width=100%>
- <tr class=listheading>|;
+ <table width="100%">
+ <tr class="listheading">|;
for (@column_index) { print "\n$column_data{$_}" }
@@ -629,8 +629,8 @@ sub select_payment {
$ok = 1;
$column_data{ndx} =
-qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
- $column_data{paid} = qq|<td align=right>$paid</td>|;
+qq|<td><input name="ndx" class="radio" type="radio" value="$i" $checked></td>|;
+ $column_data{paid} = qq|<td align="right">$paid</td>|;
$checked = "";
@@ -652,7 +652,7 @@ qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
</td>
</tr>
<tr>
- <td><hr size=3 noshade></td>
+ <td><hr size="3" noshade></td>
</tr>
</table>
|;
@@ -664,7 +664,7 @@ qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
print qq|
<br>
-<input type=hidden name=nextsub value=payment_selected>
+<input type="hidden" name="nextsub" value="payment_selected">
|;
if ($ok) {
@@ -697,8 +697,8 @@ sub print_options {
$form->{"selectlanguage"} =~ s/ selected//;
$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="|
+ $lang = qq|<select name="language_code">$form->{selectlanguage}</select>
+ <input type="hidden" name="selectlanguage" value="|
. $form->escape( $form->{selectlanguage}, 1 ) . qq|">|;
}
@@ -707,11 +707,11 @@ sub print_options {
$form->{selectformname} =~
s/(<option value="\Q$form->{formname}\E")/$1 selected/;
- $type = qq|<select name=formname>$form->{selectformname}</select>
- <input type=hidden name=selectformname value="|
+ $type = qq|<select name="formname">$form->{selectformname}</select>
+ <input type="hidden" name="selectformname" value="|
. $form->escape( $form->{selectformname}, 1 ) . qq|">|;
- $media = qq|<select name=media>
+ $media = qq|<select name="media">
<option value="screen">| . $locale->text('Screen');
$form->{selectformat} = qq|<option value="html">html\n|;
@@ -730,22 +730,22 @@ sub print_options {
$media .= qq|<option value="queue">| . $locale->text('Queue');
}
- $format = qq|<select name=format>$form->{selectformat}</select>|;
+ $format = qq|<select name="format">$form->{selectformat}</select>|;
$format =~ s/(<option value="\Q$form->{format}\E")/$1 selected/;
$format .= qq|
- <input type=hidden name=selectformat value="|
+ <input type="hidden" name="selectformat" value="|
. $form->escape( $form->{selectformat}, 1 ) . qq|">|;
$media .= qq|</select>|;
$media =~ s/(<option value="\Q$form->{media}\E")/$1 selected/;
print qq|
- <table width=100%>
+ <table width="100%">
<tr>
<td>$type</td>
<td>$lang</td>
<td>$format</td>
<td>$media</td>
- <td align=right width=90%>
+ <td align="right" width="90%">
|;
if ( $form->{printed} =~ /$form->{formname}/ ) {