From c1ccbe59533c208e0769ccd58478db58c34f1aaf Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 18 Sep 2007 01:43:40 +0000
Subject: More quoting fixes related to 1795858

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1630 4979c152-3d1c-0410-bac9-87ea11338e46
---
 bin/aa.pl      | 418 ++++++++++++++++++++++++++++-----------------------------
 bin/arap.pl    | 124 ++++++++---------
 bin/arapprn.pl |  40 +++---
 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}/ ) {
-- 
cgit v1.2.3