From bbea778560bb6df777f98adead64a0e76f9787f8 Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 18 Sep 2007 15:05:56 +0000
Subject: More changes for similar issues to bug 1795858

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1632 4979c152-3d1c-0410-bac9-87ea11338e46
---
 bin/ct.pl |  30 ++++++-------
 bin/gl.pl |  14 +++---
 bin/ic.pl |  86 +++++++++++++++++------------------
 bin/ir.pl | 150 +++++++++++++++++++++++++++++++-------------------------------
 bin/jc.pl |  40 ++++++++---------
 bin/pe.pl |  54 +++++++++++-----------
 bin/rp.pl |  38 ++++++++--------
 7 files changed, 206 insertions(+), 206 deletions(-)

(limited to 'bin')

diff --git a/bin/ct.pl b/bin/ct.pl
index 1f90e63c..c7299b92 100755
--- a/bin/ct.pl
+++ b/bin/ct.pl
@@ -478,7 +478,7 @@ sub search_name {
 
 <form method=post action=$form->{script}>
 
-<input type=hidden name=db value=$form->{db}>
+<input type=hidden name=db value="$form->{db}">
 
 <table width=100%>
   <tr>
@@ -1847,7 +1847,7 @@ s/(<option value="\Q$form->{employee}--$form->{employee_id}\E")/$1 selected/;
       . qq|</th>
 	      </tr>
 	      <tr>
-		<td><input name=none size=35 value=| . ( "=" x 35 ) . qq|></td>
+		<td><input name=none size=35 value="| . ( "=" x 35 ) . qq|"></td>
 	      </tr>
 	      <tr>
 		<td><input name=shiptoname size=35 maxlength=64 value="$form->{shiptoname}"></td>
@@ -1894,9 +1894,9 @@ s/(<option value="\Q$form->{employee}--$form->{employee_id}\E")/$1 selected/;
 	$tax
 	<tr>
 	  <th align=right>| . $locale->text('Startdate') . qq|</th>
-	  <td><input name=startdate size=11 title="$myconfig{dateformat}" value=$form->{startdate}></td>
+	  <td><input name=startdate size=11 title="$myconfig{dateformat}" value="$form->{startdate}"></td>
 	  <th align=right>| . $locale->text('Enddate') . qq|</th>
-	  <td><input name=enddate size=11 title="$myconfig{dateformat}" value=$form->{enddate}></td>
+	  <td><input name=enddate size=11 title="$myconfig{dateformat}" value="$form->{enddate}"></td>
 	</tr>
 	<tr>
 	  <th align=right>| . $locale->text('Credit Limit') . qq|</th>
@@ -2430,29 +2430,29 @@ qq|<td><select name="partsgroup_$i">$selectpartsgroup</select></td>|;
         if ( $form->{db} eq 'customer' ) {
 
             $column_data{pricebreak} =
-                qq|<td align=right><input name="pricebreak_$i" size=5 value=|
+                qq|<td align=right><input name="pricebreak_$i" size=5 value="|
               . $form->format_amount( \%myconfig, $form->{"pricebreak_$i"} )
-              . qq|></td>|;
+              . qq|"></td>|;
             $column_data{sellprice} =
-                qq|<td align=right><input name="sellprice_$i" size=10 value=|
+                qq|<td align=right><input name="sellprice_$i" size=10 value="|
               . $form->format_amount( \%myconfig, $form->{"sellprice_$i"}, 2 )
-              . qq|></td>|;
+              . qq|"></td>|;
 
             $column_data{validfrom} =
-qq|<td><input name="validfrom_$i" size=11 value=$form->{"validfrom_$i"}></td>|;
+qq|<td><input name="validfrom_$i" size=11 value="$form->{"validfrom_$i"}"></td>|;
             $column_data{validto} =
-qq|<td><input name="validto_$i" size=11 value=$form->{"validto_$i"}></td>|;
+qq|<td><input name="validto_$i" size=11 value="$form->{"validto_$i"}"></td>|;
         }
 
         if ( $form->{db} eq 'vendor' ) {
             $column_data{leadtime} =
-                qq|<td align=right><input name="leadtime_$i" size=5 value=|
+                qq|<td align=right><input name="leadtime_$i" size=5 value="|
               . $form->format_amount( \%myconfig, $form->{"leadtime_$i"} )
-              . qq|></td>|;
+              . qq|"></td>|;
             $column_data{lastcost} =
-                qq|<td align=right><input name="lastcost_$i" size=10 value=|
+                qq|<td align=right><input name="lastcost_$i" size=10 value="|
               . $form->format_amount( \%myconfig, $form->{"lastcost_$i"}, 2 )
-              . qq|></td>|;
+              . qq|"></td>|;
         }
 
         $column_data{curr} =
@@ -2716,7 +2716,7 @@ qq|<td><input name="ndx_$i" class=checkbox type=checkbox value=$i></td>|;
   </tr>
 </table>
 
-<input name=lastndx type=hidden value=$i>
+<input name="lastndx" type="hidden" value="$i">
 
 |;
 
diff --git a/bin/gl.pl b/bin/gl.pl
index 98406247..218c5bb2 100755
--- a/bin/gl.pl
+++ b/bin/gl.pl
@@ -307,9 +307,9 @@ qq|<input name="l_description" class=checkbox type=checkbox value=Y checked> |
     print qq|
 <body>
 
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
 
-<input type=hidden name=sort value=transdate>
+<input type="hidden" name="sort" value="transdate">
 
 <table width=100%>
   <tr>
@@ -403,7 +403,7 @@ qq|<input name="l_description" class=checkbox type=checkbox value=Y checked> |
   </tr>
 </table>
 
-<input type=hidden name=nextsub value=generate_report>
+<input type="hidden" name="nextsub" value="generate_report">
 |;
 
     $form->hide_form(qw(path login sessionid));
@@ -1006,7 +1006,7 @@ sub display_rows {
                     $checked = ( $form->{"fx_transaction_$i"} ) ? "1" : "";
                     $x = ($checked) ? "x" : "";
                     $fx_transaction = qq|
-      <td><input type=hidden name="fx_transaction_$i" value="$checked">$x</td>
+      <td><input type="hidden" name="fx_transaction_$i" value="$checked">$x</td>
     |;
                 }
 
@@ -1034,8 +1034,8 @@ sub display_rows {
         print qq|<tr valign=top>
     $accno
     $fx_transaction
-    <td><input name="debit_$i" size=12 value="$form->{"debit_$i"}" accesskey=$i></td>
-    <td><input name="credit_$i" size=12 value=$form->{"credit_$i"}></td>
+    <td><input name="debit_$i" size=12 value="$form->{"debit_$i"}" accesskey="$i"></td>
+    <td><input name="credit_$i" size=12 value="$form->{"credit_$i"}"></td>
     $source
     $memo
     $project
@@ -1140,7 +1140,7 @@ qq|<textarea name=notes rows=$rows cols=50 wrap=soft>$form->{notes}</textarea>|;
 	  <th align=right>| . $locale->text('Reference') . qq|</th>
 	  <td><input name=reference size=20 value="$form->{reference}"></td>
 	  <th align=right>| . $locale->text('Date') . qq|</th>
-	  <td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td>
+	  <td><input name=transdate size=11 title="$myconfig{dateformat}" value="$form->{transdate}"></td>
 	</tr>
 	$department
 	<tr>
diff --git a/bin/ic.pl b/bin/ic.pl
index 5ca97516..fc940b39 100755
--- a/bin/ic.pl
+++ b/bin/ic.pl
@@ -386,7 +386,7 @@ qq|<textarea name="description" rows=$rows cols=40 wrap=soft>$form->{description
     }
     else {
         $description =
-          qq|<input name=description size=40 value="$form->{description}">|;
+          qq|<input name="description" size="40" value="$form->{description}">|;
     }
 
     for ( split / /, $form->{taxaccounts} ) {
@@ -414,7 +414,7 @@ qq|<textarea name="description" rows=$rows cols=40 wrap=soft>$form->{description
           $form->unescape( $form->{selectpartsgroup} );
 
         $partsgroup =
-          qq|<input type=hidden name=selectpartsgroup value="|
+          qq|<input type="hidden" name="selectpartsgroup" value="|
           . $form->escape( $form->{selectpartsgroup}, 1 ) . qq|">|;
 
         $form->{partsgroup} = $form->quote( $form->{partsgroup} );
@@ -422,26 +422,26 @@ qq|<textarea name="description" rows=$rows cols=40 wrap=soft>$form->{description
           s/(<option value="\Q$form->{partsgroup}\E")/$1 selected/;
 
         $partsgroup .=
-          qq|\n<select name=partsgroup>$form->{selectpartsgroup}</select>|;
+          qq|\n<select name="partsgroup">$form->{selectpartsgroup}</select>|;
         $group = $locale->text('Group');
     }
 
     # tax fields
     foreach $item ( split / /, $form->{taxaccounts} ) {
         $tax .= qq|
-      <input class=checkbox type=checkbox name="IC_tax_$item" value=1 $form->{"IC_tax_$item"}>&nbsp;<b>$form->{"IC_tax_${item}_description"}</b>
-      <br><input type=hidden name=IC_tax_${item}_description value="$form->{"IC_tax_${item}_description"}">
+      <input class="checkbox" type="checkbox" name="IC_tax_$item" value="1" $form->{"IC_tax_$item"}>&nbsp;<b>$form->{"IC_tax_${item}_description"}</b>
+      <br><input type="hidden" name="IC_tax_${item}_description" value="$form->{"IC_tax_${item}_description"}">
 |;
     }
 
     $sellprice = qq|
 	      <tr>
 		<th align="right" nowrap="true">| . $locale->text('Sell Price') . qq|</th>
-		<td><input name=sellprice size=11 value=$form->{sellprice}></td>
+		<td><input name="sellprice" size="11" value="$form->{sellprice}"></td>
 	      </tr>
 	      <tr>
 		<th align="right" nowrap="true">| . $locale->text('List Price') . qq|</th>
-		<td><input name=listprice size=11 value=$form->{listprice}></td>
+		<td><input name="listprice" size="11" value="$form->{listprice}"></td>
 	      </tr>
 |;
 
@@ -450,7 +450,7 @@ qq|<textarea name="description" rows=$rows cols=40 wrap=soft>$form->{description
                 <th align="right" nowrap="true">|
       . $locale->text('Average Cost')
       . qq|</th>
-                <td><input type=hidden name=avgcost value=$form->{avgcost}>$form->{avgcost}</td>
+                <td><input type="hidden" name="avgcost" value="$form->{avgcost}">$form->{avgcost}</td>
               </tr>
 |;
 
@@ -459,14 +459,14 @@ qq|<textarea name="description" rows=$rows cols=40 wrap=soft>$form->{description
                 <th align="right" nowrap="true">|
       . $locale->text('Last Cost')
       . qq|</th>
-                <td><input name=lastcost size=11 value=$form->{lastcost}></td>
+                <td><input name="lastcost" size="11" value="$form->{lastcost}"></td>
               </tr>
 	      <tr>
 	        <th align="right" nowrap="true">|
       . $locale->text('Markup')
       . qq| %</th>
-		<td><input name=markup size=5 value=$form->{markup}></td>
-		<input type=hidden name=oldmarkup value=$markup>
+		<td><input name="markup" size="5" value="$form->{markup}"></td>
+		<input type="hidden" name="oldmarkup" value="$markup">
 	      </tr>
 |;
 
@@ -475,7 +475,7 @@ qq|<textarea name="description" rows=$rows cols=40 wrap=soft>$form->{description
         $onhand = qq|
 	      <tr>
 		<th align="right" nowrap>| . $locale->text('On Hand') . qq|</th>
-		<th align=left nowrap class="plus$n">&nbsp;|
+		<th align="left" nowrap class="plus$n">&nbsp;|
           . $form->format_amount( \%myconfig, $form->{onhand} )
           . qq|</th>
 	      </tr>
@@ -484,7 +484,7 @@ qq|<textarea name="description" rows=$rows cols=40 wrap=soft>$form->{description
         $rop = qq|
 	      <tr>
 		<th align="right" nowrap="true">| . $locale->text('ROP') . qq|</th>
-		<td><input name=rop size=10 value=$form->{rop}></td>
+		<td><input name="rop" size="10" value="$form->{rop}"></td>
 	      </tr>
 |;
 
@@ -551,12 +551,12 @@ qq|<textarea name="description" rows=$rows cols=40 wrap=soft>$form->{description
 		  <table>
 		    <tr>
 		      <td>
-			<input name=weight size=10 value=$form->{weight}>
+			<input name="weight" size="10" value="$form->{weight}">
 		      </td>
 		      <th>
 			&nbsp;
 			$form->{weightunit}
-			<input type=hidden name=weightunit value=$form->{weightunit}>
+			<input type="hidden" name="weightunit" value="$form->{weightunit}">
 		      </th>
 		    </tr>
 		  </table>
@@ -578,12 +578,12 @@ qq|<textarea name="description" rows=$rows cols=40 wrap=soft>$form->{description
 		  <table>
 		    <tr>
 		      <td>
-			<input name=weight size=10 value=$form->{weight}>
+			<input name="weight" size="10" value="$form->{weight}">
 		      </td>
 		      <th>
 			&nbsp;
 			$form->{weightunit}
-			<input type=hidden name=weightunit value=$form->{weightunit}>
+			<input type="hidden" name="weightunit" value="$form->{weightunit}">
 		      </th>
 		    </tr>
 		  </table>
@@ -601,12 +601,12 @@ qq|<textarea name="description" rows=$rows cols=40 wrap=soft>$form->{description
 		    <tr>
 		      <td>
 			&nbsp;$form->{weight}
-			<input type=hidden name=weight value=$form->{weight}>
+			<input type="hidden" name="weight" value="$form->{weight}">
 		      </td>
 		      <th>
 			&nbsp;
 			$form->{weightunit}
-			<input type=hidden name=weightunit value=$form->{weightunit}>
+			<input type="hidden" name="weightunit" value="$form->{weightunit}">
 		      </th>
 		    </tr>
 		  </table>
@@ -627,7 +627,7 @@ qq|<textarea name="description" rows=$rows cols=40 wrap=soft>$form->{description
             $stock = qq|
               <tr>
 	        <th align="right" nowrap>| . $locale->text('Stock') . qq|</th>
-		<td><input name=stock size=10 value=$form->{stock}></td>
+		<td><input name="stock" size="10" value="$form->{stock}"></td>
 	      </tr>
 |;
 
@@ -636,14 +636,14 @@ qq|<textarea name="description" rows=$rows cols=40 wrap=soft>$form->{description
 	        <th align="right" nowrap="true">|
               . $locale->text('Last Cost')
               . qq|</th> 
-		<td><input type=hidden name=lastcost value=$form->{lastcost}>$form->{lastcost}</td>
+		<td><input type="hidden" name="lastcost" value="$form->{lastcost}">$form->{lastcost}</td>
 	      </tr>
 	      <tr>
 	        <th align="right" nowrap="true">|
               . $locale->text('Markup')
               . qq| %</th>
-		<td><input name=markup size=5 value=$form->{markup}></td>
-		<input type=hidden name=oldmarkup value=$markup>
+		<td><input name="markup" size="5" value="$form->{markup}"></td>
+		<input type="hidden" name="oldmarkup" value="$markup">
 	      </tr>
 |;
 
@@ -799,7 +799,7 @@ qq|<textarea name="description" rows=$rows cols=40 wrap=soft>$form->{description
 	    <table width="100%">
 	      <tr>
 		<th align="right" nowrap="true">| . $locale->text('Updated') . qq|</th>
-		<td><input name=priceupdate size=11 title="$myconfig{dateformat}" value=$form->{priceupdate}></td>    
+		<td><input name="priceupdate" size="11" title="$myconfig{dateformat}" value="$form->{priceupdate}"></td>    
 	      </tr>
 	      $sellprice
 	      $lastcost
@@ -2239,9 +2239,9 @@ qq|<button class="submit" type="submit" name="action" value="add_labor_overhead"
 
 <br>
 
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
 
-<input type=hidden name=item value=$form->{searchitems}>
+<input type=hidden name=item value="$form->{searchitems}">
 |;
 
     $form->hide_form(qw(callback path login sessionid));
@@ -2791,13 +2791,13 @@ s/option>$form->{"vendorcurr_$i"}/option selected>$form->{"vendorcurr_$i"}/;
 	<tr>
 	  $vendor
 	  <td><input name="partnumber_$i" size=20 value="$form->{"partnumber_$i"}"></td>
-	  <td><input name="lastcost_$i" size=10 value=|
+	  <td><input name="lastcost_$i" size=10 value="|
           . $form->format_amount( \%myconfig, $form->{"lastcost_$i"}, 2 )
-          . qq|></td>
+          . qq|"></td>
 	  $currency
-	  <td nowrap><input name="leadtime_$i" size=5 value=|
+	  <td nowrap><input name="leadtime_$i" size=5 value="|
           . $form->format_amount( \%myconfig, $form->{"leadtime_$i"} )
-          . qq|> <b>|
+          . qq|"> <b>|
           . $locale->text('days')
           . qq|</b></td>
 	</tr>
@@ -2900,12 +2900,12 @@ s/option>$form->{"customercurr_$i"}/option selected>$form->{"customercurr_$i"}/;
 	  $customer
 	  $pricegroup
 
-	  <td><input name="pricebreak_$i" size=5 value=|
+	  <td><input name="pricebreak_$i" size=5 value="|
           . $form->format_amount( \%myconfig, $form->{"pricebreak_$i"} )
-          . qq|></td>
-	  <td><input name="customerprice_$i" size=10 value=|
+          . qq|"></td>
+	  <td><input name="customerprice_$i" size=10 value="|
           . $form->format_amount( \%myconfig, $form->{"customerprice_$i"}, 2 )
-          . qq|></td>
+          . qq|"></td>
 	  $currency
 	  <td><input name="validfrom_$i" size=11 title="$myconfig{dateformat}" value="$form->{"validfrom_$i"}"></td>
 	  <td><input name="validto_$i" size=11 title="$myconfig{dateformat}" value="$form->{"validto_$i"}"></td>
@@ -3409,7 +3409,7 @@ sub select_name {
 
 <form method=post action="$form->{script}">
 
-<input type=hidden name=vr value=$vr>
+<input type=hidden name=vr value="$vr">
 
 <table width=100%>
   <tr>
@@ -3436,7 +3436,7 @@ 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>|;
         $column_data{address} = qq|<td>$ref->{address1} $ref->{address2}|;
@@ -3454,7 +3454,7 @@ qq|<td><input name="new_name_$i" type=hidden value="$ref->{name}">$ref->{name}</
         print qq|
 	</tr>
 
-<input name="new_id_$i" type=hidden value=$ref->{id}>
+<input name="new_id_$i" type=hidden value="$ref->{id}">
 
 |;
 
@@ -3469,7 +3469,7 @@ qq|<td><input name="new_name_$i" type=hidden value="$ref->{name}">$ref->{name}</
   </tr>
 </table>
 
-<input name=lastndx type=hidden value=$i>
+<input name=lastndx type=hidden value="$i">
 
 |;
 
@@ -3480,7 +3480,7 @@ qq|<td><input name="new_name_$i" type=hidden value="$ref->{name}">$ref->{name}</
 
     print qq|
 <input type=hidden name=nextsub value=name_selected>
-<input type=hidden name=vc value=$table>
+<input type=hidden name=vc value="$table">
 <br>
 <button class="submit" type="submit" name="action" value="continue">|
       . $locale->text('Continue')
@@ -3873,15 +3873,15 @@ sub list_assemblies {
           . $form->format_amount( \%myconfig, $ref->{rop}, '', "&nbsp;" )
           . qq|</td>|;
         $column_data{stock} =
-            qq|<td width=10%><input name="qty_$i" size=10 value=|
+            qq|<td width=10%><input name="qty_$i" size=10 value="|
           . $form->format_amount( \%myconfig, $ref->{stock} )
-          . qq|></td>
-    <input type=hidden name="stock_$i" value=$ref->{stock}>|;
+          . qq|"></td>
+    <input type=hidden name="stock_$i" value="$ref->{stock}">|;
 
         $j++;
         $j %= 2;
         print
-qq|<tr class=listrow$j><input name="id_$i" type=hidden value=$ref->{id}>\n|;
+qq|<tr class="listrow$j"><input name="id_$i" type=hidden value="$ref->{id}">\n|;
 
         for (@column_index) { print "\n$column_data{$_}" }
 
diff --git a/bin/ir.pl b/bin/ir.pl
index 4cb435a5..d892cedd 100755
--- a/bin/ir.pl
+++ b/bin/ir.pl
@@ -285,10 +285,10 @@ sub form_header {
 
         $lang = qq|
 	      <tr>
-		<th align=right nowrap>| . $locale->text('Language') . qq|</th>
-		<td><select name=language_code>$form->{selectlanguage}</select></td>
-		<input type=hidden name=oldlanguage_code value=$form->{oldlanguage_code}>
-                <input type=hidden name="selectlanguage" value="|
+		<th align="right" nowrap>| . $locale->text('Language') . qq|</th>
+		<td><select name="language_code">$form->{selectlanguage}</select></td>
+		<input type="hidden" name="oldlanguage_code" value="$form->{oldlanguage_code}">
+                <input type="hidden" name="selectlanguage" value="|
           . $form->escape( $form->{selectlanguage}, 1 ) . qq|">
 	      </tr>
 |;
@@ -300,12 +300,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}
@@ -313,40 +313,40 @@ sub form_header {
     {
         if ( $form->{forex} ) {
             $exchangerate .= qq|
-                <th align=right nowrap>|
+                <th align="right" nowrap>|
               . $locale->text('Exchange Rate')
               . qq|</th>
-                <td>$form->{exchangerate}<input type=hidden name=exchangerate value=$form->{exchangerate}></td>
+                <td>$form->{exchangerate}<input type="hidden" name="exchangerate" value="$form->{exchangerate}"></td>
 |;
         }
         else {
             $exchangerate .= qq|
-                <th align=right nowrap>|
+                <th align="right" nowrap>|
               . $locale->text('Exchange Rate')
               . qq|</th>
-                <td><input name=exchangerate size=10 value=$form->{exchangerate}></td>
+                <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>
 |;
 
     if ( $form->{selectvendor} ) {
-        $vendor = qq|<select name=vendor>$form->{selectvendor}</select>
-                 <input type=hidden name="selectvendor" value="|
+        $vendor = qq|<select name="vendor">$form->{selectvendor}</select>
+                 <input type="hidden" name="selectvendor" value="|
           . $form->escape( $form->{selectvendor}, 1 ) . qq|">|;
     }
     else {
-        $vendor = qq|<input name=vendor value="$form->{vendor}" size=35>|;
+        $vendor = qq|<input name="vendor" value="$form->{vendor}" size="35">|;
     }
 
     $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>
@@ -362,7 +362,7 @@ sub form_header {
     print qq|
 <body onLoad="document.forms[0].${focus}.focus()">
 
-<form method=post action="$form->{script}">
+<form method="post" action="$form->{script}">
 |;
 
     $form->{vc} = "vendor";
@@ -371,35 +371,35 @@ sub form_header {
     );
 
     print qq|
-<table width=100%>
-  <tr class=listtop>
+<table width="100%">
+  <tr class="listtop">
     <th>$form->{title}</th>
   </tr>
   <tr height="5"></tr>
   <tr>
     <td>
-      <table width=100%>
-        <tr valign=top>
+      <table width="100%">
+        <tr valign="top">
 	  <td>
 	    <table>
 	      <tr>
-		<th align=right nowrap>| . $locale->text('Vendor') . qq|</th>
-		<td colspan=3>$vendor</td>
+		<th align="right" nowrap>| . $locale->text('Vendor') . qq|</th>
+		<td colspan="3">$vendor</td>
 		
-		<input type=hidden name=vendor_id value=$form->{vendor_id}>
-		<input type=hidden name=oldvendor value="$form->{oldvendor}">
+		<input type="hidden" name="vendor_id" value="$form->{vendor_id}">
+		<input type="hidden" name="oldvendor" value="$form->{oldvendor}">
 
 	      </tr>
 	      <tr>
 	        <td></td>
-		<td colspan=3>
+		<td colspan="3">
 		  <table>
 		    <tr>
 		      <th nowrap>| . $locale->text('Credit Limit') . qq|</th>
 		      <td>|
       . $form->format_amount( \%myconfig, $form->{creditlimit}, 0, "0" )
       . qq|</td>
-		      <td width=20%></td>
+		      <td width="20%"></td>
 		      <th nowrap>| . $locale->text('Remaining') . qq|</th>
 		      <td class="plus$n" nowrap>|
       . $form->format_amount( \%myconfig, $form->{creditremaining}, 0, "0" )
@@ -408,36 +408,36 @@ sub form_header {
 		  </table>
 		</td>
 	      <tr>
-		<th align=right>| . $locale->text('Record in') . qq|</th>
-		<td colspan=3><select name=AP>$form->{selectAP}</select></td>
-		<input type=hidden name=selectAP value="$form->{selectAP}">
+		<th align="right">| . $locale->text('Record in') . qq|</th>
+		<td colspan="3"><select name="AP">$form->{selectAP}</select></td>
+		<input type="hidden" name="selectAP" value="$form->{selectAP}">
 	      </tr>
               $department
 	      $exchangerate
 	    </table>
 	  </td>
-	  <td align=right>
+	  <td align="right">
 	    <table>
 	      <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>
-<input type=hidden name=quonumber value="$form->{quonumber}">
+		<th align="right" nowrap>| . $locale->text('Order Number') . qq|</th>
+		<td><input name="ordnumber" size="20" value="$form->{ordnumber}"></td>
+<input type="hidden" name="quonumber" value="$form->{quonumber}">
 	      </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>
 	      $lang
 	    </table>
@@ -468,16 +468,16 @@ sub form_footer {
     }
     $rows = ( $rows > $introws ) ? $rows : $introws;
     $notes =
-qq|<textarea name=notes rows=$rows cols=35 wrap=soft>$form->{notes}</textarea>|;
+qq|<textarea name="notes" rows="$rows" cols="35" wrap="soft">$form->{notes}</textarea>|;
     $intnotes =
-qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</textarea>|;
+qq|<textarea name="intnotes" rows="$rows" cols="35" wrap="soft">$form->{intnotes}</textarea>|;
     $tax = "";
     $form->{taxincluded} = ( $form->{taxincluded} ) ? "checked" : "";
 
     $taxincluded = "";
     if ( $form->{taxaccounts} ) {
         $taxincluded = qq|
-		<input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}> <b>|
+		<input name="taxincluded" class="checkbox" type="checkbox" value="1" $form->{taxincluded}> <b>|
           . $locale->text('Tax Included') . qq|</b>
 |;
     }
@@ -490,8 +490,8 @@ qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</texta
                 $form->round_amount($form->{taxes}{$item}, 2);
                 $tax .= qq|
 		<tr>
-		  <th align=right>$form->{"${item}_description"}</th>
-		  <td align=right>$form->{"${item}_total"}</td>
+		  <th align="right">$form->{"${item}_description"}</th>
+		  <td align="right">$form->{"${item}_total"}</td>
 		</tr>
 |;
         }
@@ -501,8 +501,8 @@ qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</texta
 
         $subtotal = qq|
 	      <tr>
-		<th align=right>| . $locale->text('Subtotal') . qq|</th>
-		<td align=right>$form->{invsubtotal}</td>
+		<th align="right">| . $locale->text('Subtotal') . qq|</th>
+		<td align="right">$form->{invsubtotal}</td>
 	      </tr>
 |;
 
@@ -515,31 +515,31 @@ qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</texta
     print qq|
   <tr>
     <td>
-      <table width=100%>
-	<tr valign=bottom>
+      <table width="100%">
+	<tr valign="bottom">
 	  <td>
 	    <table>
 	      <tr>
-		<th align=left>| . $locale->text('Notes') . qq|</th>
-		<th align=left>| . $locale->text('Internal Notes') . qq|</th>
-                <th align=left>| . $locale->text('Import Text') . qq|</th>
+		<th align="left">| . $locale->text('Notes') . qq|</th>
+		<th align="left">| . $locale->text('Internal Notes') . qq|</th>
+                <th align="left">| . $locale->text('Import Text') . qq|</th>
 	      </tr>
-	      <tr valign=top>
+	      <tr valign="top">
 		<td>$notes</td>
 		<td>$intnotes</td>
-                <td><textarea name=import_text rows=$rows cols=25></textarea>
+                <td><textarea name="import_text" rows="$rows" cols="25"></textarea>
 	      </tr>
 	    </table>
 	  </td>
-	  <td align=right>
+	  <td align="right">
 	    $taxincluded
 	    <br>
 	    <table>
 	      $subtotal
 	      $tax
 	      <tr>
-		<th align=right>| . $locale->text('Total') . qq|</th>
-		<td align=right>$form->{invtotal}</td>
+		<th align="right">| . $locale->text('Total') . qq|</th>
+		<td align="right">$form->{invtotal}</td>
 	      </tr>
 	    </table>
 	  </td>
@@ -549,9 +549,9 @@ qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</texta
   </tr>
   <tr>
     <td>
-      <table width=100%>
+      <table width="100%">
         <tr>
-	  <th colspan=6 class=listheading>| . $locale->text('Payments') . qq|</th>
+	  <th colspan="6" class="listheading">| . $locale->text('Payments') . qq|</th>
 	</tr>
 |;
 
@@ -601,29 +601,29 @@ s/option>\Q$form->{"AP_paid_$i"}\E/option selected>$form->{"AP_paid_$i"}/;
         if ( $form->{currency} ne $form->{defaultcurrency} ) {
             if ( $form->{"forex_$i"} ) {
                 $exchangerate =
-qq|<input type=hidden name="exchangerate_$i" value=$form->{"exchangerate_$i"}>$form->{"exchangerate_$i"}|;
+qq|<input type="hidden" name="exchangerate_$i" value="$form->{"exchangerate_$i"}">$form->{"exchangerate_$i"}|;
             }
             else {
                 $exchangerate =
-qq|<input name="exchangerate_$i" size=10 value=$form->{"exchangerate_$i"}>|;
+qq|<input name="exchangerate_$i" size="10" value="$form->{"exchangerate_$i"}">|;
             }
         }
         $exchangerate .= qq|
-<input type=hidden name="forex_$i" value=$form->{"forex_$i"}>
+<input type="hidden" name="forex_$i" value="$form->{"forex_$i"}">
 |;
 
         $column_data{"paid_$i"} =
-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{"exchangerate_$i"} =
-          qq|<td align=center>$exchangerate</td>|;
+          qq|<td align="center">$exchangerate</td>|;
         $column_data{"AP_paid_$i"} =
-qq|<td align=center><select name="AP_paid_$i">$form->{"selectAP_paid_$i"}</select></td>|;
+qq|<td align="center"><select name="AP_paid_$i">$form->{"selectAP_paid_$i"}</select></td>|;
         $column_data{"datepaid_$i"} =
-qq|<td align=center><input name="datepaid_$i" size=11 title="$myconfig{dateformat}" value=$form->{"datepaid_$i"}></td>|;
+qq|<td align="center"><input name="datepaid_$i" size="11" title="$myconfig{dateformat}" value="$form->{"datepaid_$i"}"></td>|;
         $column_data{"source_$i"} =
-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_$i"} =
-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{"${_}_$i"}\n| }
 
@@ -640,7 +640,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>
 <br>
@@ -1077,14 +1077,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>| . $locale->text('Confirm!') . qq|</h2>
+<h2 class="confirm">| . $locale->text('Confirm!') . qq|</h2>
 
 <h4>|
       . $locale->text( 'Are you sure you want to delete Invoice Number [_1]?',
diff --git a/bin/jc.pl b/bin/jc.pl
index 82a2992b..6de1a832 100755
--- a/bin/jc.pl
+++ b/bin/jc.pl
@@ -491,7 +491,7 @@ qq|<textarea name=description rows=$rows cols=46 wrap=soft>$form->{description}<
 
         $projectlabel = $locale->text('Job Number');
         $laborlabel   = $locale->text('Labor Code');
-        $rate = qq|<input type=hidden name=sellprice value=$form->{sellprice}>|;
+        $rate = qq|<input type="hidden" name="sellprice" value="$form->{sellprice}">|;
 
     }
     else {
@@ -509,13 +509,13 @@ qq|<textarea name=description rows=$rows cols=46 wrap=soft>$form->{description}<
             $rate = qq|
 		<tr>
 		  <th align=right nowrap>| . $locale->text('Chargeout Rate') . qq|</th>
-		  <td><input name=sellprice value=$form->{sellprice}></td>
+		  <td><input name="sellprice" value="$form->{sellprice}"></td>
 		  <th align=right nowrap>| . $locale->text('Total') . qq|</th>
 		  <td>$form->{amount}</td>
 		</tr>
 		<tr>
 		  <th align=right nowrap>| . $locale->text('Allocated') . qq|</th>
-		  <td><input name=allocated value=$form->{allocated}></td>
+		  <td><input name="allocated" value="$form->{allocated}"></td>
 		</tr>
 |;
         }
@@ -531,18 +531,18 @@ qq|<textarea name=description rows=$rows cols=46 wrap=soft>$form->{description}<
 		  <th align=right nowrap>| . $locale->text('Allocated') . qq|</th>
 		  <td>$form->{allocated}</td>
 		</tr>
-		<input type=hidden name=sellprice value=$form->{sellprice}>
-		<input type=hidden name=allocated value=$form->{allocated}>
+		<input type=hidden name=sellprice value="$form->{sellprice}">
+		<input type=hidden name=allocated value="$form->{allocated}">
 |;
         }
     }
 
     if ( $myconfig{role} eq 'user' ) {
         $charge =
-          qq|<input type=hidden name=qty value=$form->{qty}>$form->{qty}|;
+          qq|<input type=hidden name=qty value="$form->{qty}">$form->{qty}|;
     }
     else {
-        $charge = qq|<input name=qty value=$form->{qty}>|;
+        $charge = qq|<input name=qty value="$form->{qty}">|;
     }
 
     if ( ( $rows = $form->numtextrows( $form->{notes}, 40, 6 ) ) < 2 ) {
@@ -598,7 +598,7 @@ qq|<textarea name=description rows=$rows cols=46 wrap=soft>$form->{description}<
 	      </tr>
 	      <tr>
 		<th align=right nowrap>| . $locale->text('Date worked') . qq|</th>
-		<td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td>
+		<td><input name=transdate size=11 title="$myconfig{dateformat}" value="$form->{transdate}"></td>
 	      </tr>
 	      <tr>
 		<th align=right nowrap>$laborlabel</th>
@@ -613,9 +613,9 @@ qq|<textarea name=description rows=$rows cols=46 wrap=soft>$form->{description}<
 		<td>
 		  <table>
 		    <tr>
-		      <td><input name=inhour title="hh" size=3 maxlength=2 value=$form->{inhour}></td>
-		      <td><input name=inmin title="mm" size=3 maxlength=2 value=$form->{inmin}></td>
-		      <td><input name=insec title="ss" size=3 maxlength=2 value=$form->{insec}></td>
+		      <td><input name=inhour title="hh" size=3 maxlength=2 value="$form->{inhour}"></td>
+		      <td><input name=inmin title="mm" size=3 maxlength=2 value="$form->{inmin}"></td>
+		      <td><input name=insec title="ss" size=3 maxlength=2 value="$form->{insec}"></td>
 		    </tr>
 		  </table>
 		</td>
@@ -623,9 +623,9 @@ qq|<textarea name=description rows=$rows cols=46 wrap=soft>$form->{description}<
 		<td>
 		  <table>
 		    <tr>
-		      <td><input name=outhour title="hh" size=3 maxlength=2 value=$form->{outhour}></td>
-		      <td><input name=outmin title="mm" size=3 maxlength=2 value=$form->{outmin}></td>
-		      <td><input name=outsec title="ss" size=3 maxlength=2 value=$form->{outsec}></td>
+		      <td><input name=outhour title="hh" size=3 maxlength=2 value="$form->{outhour}"></td>
+		      <td><input name=outmin title="mm" size=3 maxlength=2 value="$form->{outmin}"></td>
+		      <td><input name=outsec title="ss" size=3 maxlength=2 value="$form->{outsec}"></td>
 		    </tr>
 		  </table>
 		</td>
@@ -636,7 +636,7 @@ qq|<textarea name=description rows=$rows cols=46 wrap=soft>$form->{description}<
               </tr>
 	      <tr>
 		<th align=right nowrap>| . $locale->text('Non-chargeable') . qq|</th>
-		<td><input name=noncharge value=$form->{noncharge}></td>
+		<td><input name=noncharge value="$form->{noncharge}"></td>
 	      </tr>
 	      <tr>
 		<th align=right nowrap>| . $locale->text('Chargeable') . qq|</th>
@@ -870,7 +870,7 @@ qq|<textarea name=description rows=$rows cols=46 wrap=soft>$form->{description}<
 	      </tr>
 	      <tr>
 		<th align=right nowrap>| . $locale->text('Date') . qq|</th>
-		<td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td>
+		<td><input name=transdate size=11 title="$myconfig{dateformat}" value="$form->{transdate}"></td>
 	      </tr>
 	      <tr>
 		<th align=right nowrap>| . $locale->text('Part Number') . qq|</th>
@@ -882,9 +882,9 @@ qq|<textarea name=description rows=$rows cols=46 wrap=soft>$form->{description}<
 	      </tr>
 	      <tr>
 		<th align=right nowrap>| . $locale->text('Qty') . qq|</th>
-		<td><input name=qty size=6 value=$form->{qty}>
+		<td><input name=qty size=6 value="$form->{qty}">
 		<b>| . $locale->text('Cost') . qq|</b>
-		<input name=sellprice size=10 value=$form->{sellprice}></td>
+		<input name=sellprice size=10 value="$form->{sellprice}"></td>
 	      </tr>
 	      <tr>
 		<th align=right nowrap>| . $locale->text('Total') . qq|</th>
@@ -2059,13 +2059,13 @@ sub print_options {
     $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}/ ) {
diff --git a/bin/pe.pl b/bin/pe.pl
index 9b2624a2..3d4bbbb1 100755
--- a/bin/pe.pl
+++ b/bin/pe.pl
@@ -340,9 +340,9 @@ qq|<textarea name=notes rows=$rows cols=40 wrap=soft>$form->{notes}</textarea>|;
 	$name
 	<tr>
 	  <th align=right>| . $locale->text('Startdate') . qq|</th>
-	  <td><input name=startdate size=11 title="($myconfig{dateformat})" value=$form->{startdate}></td>
+	  <td><input name=startdate size=11 title="($myconfig{dateformat})" value="$form->{startdate}"></td>
 	  <th align=right>| . $locale->text('Enddate') . qq|</th>
-	  <td><input name=enddate size=11 title="($myconfig{dateformat})" value=$form->{enddate}></td>
+	  <td><input name=enddate size=11 title="($myconfig{dateformat})" value="$form->{enddate}"></td>
 	</tr>
 	$production
       </table>
@@ -383,19 +383,19 @@ qq|<textarea name=notes rows=$rows cols=40 wrap=soft>$form->{notes}</textarea>|;
 		  <table>
 		    <tr>
 		      <th align="right" nowrap="true">| . $locale->text('Updated') . qq|</th>
-		      <td><input name=priceupdate size=11 title="$myconfig{dateformat}" value=$form->{priceupdate}></td>
+		      <td><input name=priceupdate size=11 title="$myconfig{dateformat}" value="$form->{priceupdate}"></td>
 		    </tr>
 		    <tr>
 		      <th align="right" nowrap="true">|
       . $locale->text('List Price')
       . qq|</th>
-		      <td><input name=listprice size=11 value=$form->{listprice}></td>
+		      <td><input name=listprice size=11 value="$form->{listprice}"></td>
 		    </tr>
 		    <tr>
 		      <th align="right" nowrap="true">|
       . $locale->text('Sell Price')
       . qq|</th>
-		      <td><input name=sellprice size=11 value=$form->{sellprice}></td>
+		      <td><input name=sellprice size=11 value="$form->{sellprice}"></td>
 		    </tr>
 		    <tr>
 		      <th align="right" nowrap="true">| . $locale->text('Weight') . qq|</th>
@@ -403,12 +403,12 @@ qq|<textarea name=notes rows=$rows cols=40 wrap=soft>$form->{notes}</textarea>|;
 			<table>
 			  <tr>
 			    <td>
-			      <input name=weight size=10 value=$form->{weight}>
+			      <input name=weight size=10 value="$form->{weight}">
 			    </td>
 			    <th>
 			      &nbsp;
 			      $form->{weightunit}
-			      <input type=hidden name=weightunit value=$form->{weightunit}>
+			      <input type=hidden name=weightunit value="$form->{weightunit}">
 			    </th>
 			  </tr>
 			</table>
@@ -599,8 +599,8 @@ sub list_stock {
         $j %= 2;
 
         print qq|
-        <tr valign=top class=listrow$j>
-	<input type=hidden name="id_$i" value=$ref->{id}>
+        <tr valign=top class="listrow$j">
+	<input type=hidden name="id_$i" value="$ref->{id}">
 |;
 
         for (@column_index) { print "$column_data{$_}\n" }
@@ -820,19 +820,19 @@ sub search {
     print qq|
 <body>
 
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
 
-<input type=hidden name=sort value=$sort>
-<input type=hidden name=type value=$form->{type}>
+<input type=hidden name=sort value="$sort">
+<input type=hidden name=type value="$form->{type}">
 
-<table width=100%>
+<table width="100%">
   <tr>
     <th class=listtop>$form->{title}</th>
   </tr>
   <tr height="5"></tr>
   <tr>
     <td>
-      <table width=100%>
+      <table width="100%">
         $number
 	$fromto
 	$selectperiod
@@ -854,7 +854,7 @@ sub search {
   </tr>
 </table>
 
-<input type=hidden name=nextsub value=$report>
+<input type="hidden" name="nextsub" value="$report">
 |;
 
     $form->hide_form(qw(path login sessionid title));
@@ -1215,15 +1215,15 @@ qq|<textarea name="description" rows=$rows cols=60 style="width: 100%" wrap=soft
 	$name
 	<tr>
 	  <th align=right>| . $locale->text('Startdate') . qq|</th>
-	  <td><input name=startdate size=11 title="($myconfig{dateformat})" value=$form->{startdate}></td>
+	  <td><input name=startdate size=11 title="($myconfig{dateformat})" value="$form->{startdate}"></td>
 	  <th align=right>| . $locale->text('Enddate') . qq|</th>
-	  <td><input name=enddate size=11 title="($myconfig{dateformat})" value=$form->{enddate}></td>
+	  <td><input name=enddate size=11 title="($myconfig{dateformat})" value="$form->{enddate}"></td>
 	</tr>
       </table>
     </td>
   </tr>
   <tr>
-    <td><hr size=3 noshade></td>
+    <td><hr size="3" noshade></td>
   </tr>
 </table>
 |;
@@ -1530,12 +1530,12 @@ sub partsgroup_header {
     print qq|
 <body>
 
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
 
-<input type=hidden name=id value=$form->{id}>
-<input type=hidden name=type value=$form->{type}>
+<input type="hidden" name="id" value="$form->{id}">
+<input type="hidden" name="type" value="$form->{type}">
 
-<table width=100%>
+<table width="100%">
   <tr>
     <th class=listtop>$form->{title}</th>
   </tr>
@@ -1735,10 +1735,10 @@ sub pricegroup_header {
     print qq|
 <body>
 
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
 
-<input type=hidden name=id value=$form->{id}>
-<input type=hidden name=type value=$form->{type}>
+<input type="hidden" name="id" value="$form->{id}">
+<input type="hidden" name="type" value="$form->{type}">
 
 <table width=100%>
   <tr>
@@ -2334,7 +2334,7 @@ qq|<td><input name="new_name_$i" type=hidden value="$ref->{name}">$ref->{name}</
         print qq|
 	</tr>
 
-<input name="new_id_$i" type=hidden value=$ref->{id}>
+<input name="new_id_$i" type=hidden value="$ref->{id}">
 
 |;
 
@@ -2349,7 +2349,7 @@ qq|<td><input name="new_name_$i" type=hidden value="$ref->{name}">$ref->{name}</
   </tr>
 </table>
 
-<input name=lastndx type=hidden value=$i>
+<input name=lastndx type=hidden value="$i">
 
 |;
 
diff --git a/bin/rp.pl b/bin/rp.pl
index 1f044879..4389238c 100755
--- a/bin/rp.pl
+++ b/bin/rp.pl
@@ -240,7 +240,7 @@ qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n|;
         <input type=hidden name=nextsub value=generate_projects>
         <tr>
 	  <th align=right>| . $locale->text('From') . qq|</th>
-	  <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>
+	  <td><input name=fromdate size=11 title="$myconfig{dateformat}" value="$form->{fromdate}"></td>
 	  <th align=right>| . $locale->text('To') . qq|</th>
 	  <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
 	</tr>
@@ -268,7 +268,7 @@ qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n|;
        <input type=hidden name=nextsub value=generate_inv_activity>
 	<tr>
 	  <th align=right>| . $locale->text('From') . qq|</th>
-	  <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>
+	  <td><input name=fromdate size=11 title="$myconfig{dateformat}" value="$form->{fromdate}"></td>
 	  <th align=right>| . $locale->text('To') . qq|</th>
 	  <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
 	</tr>
@@ -302,7 +302,7 @@ qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n|;
         <input type=hidden name=nextsub value=generate_income_statement>
 	<tr>
 	  <th align=right>| . $locale->text('From') . qq|</th>
-	  <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>
+	  <td><input name=fromdate size=11 title="$myconfig{dateformat}" value="$form->{fromdate}"></td>
 	  <th align=right>| . $locale->text('To') . qq|</th>
 	  <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
 	</tr>
@@ -391,7 +391,7 @@ qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n|;
         <input type=hidden name=nextsub value=generate_balance_sheet>
 	<tr>
 	  <th align=right>| . $locale->text('as at') . qq|</th>
-	  <td><input name=asofdate size=11 title="$myconfig{dateformat}" value=$form->{asofdate}></td>
+	  <td><input name=asofdate size=11 title="$myconfig{dateformat}" value="$form->{asofdate}"></td>
 |;
 
         if ($selectfrom) {
@@ -458,7 +458,7 @@ qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n|;
         <input type=hidden name=nextsub value=generate_trial_balance>
         <tr>
 	  <th align=right>| . $locale->text('From') . qq|</th>
-	  <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>
+	  <td><input name=fromdate size=11 title="$myconfig{dateformat}" value="$form->{fromdate}"></td>
 	  <th align=right>| . $locale->text('To') . qq|</th>
 	  <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
 	</tr>
@@ -493,7 +493,7 @@ qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n|;
         <input type=hidden name=nextsub value=generate_tax_report>
 	<tr>
 	  <th align=right>| . $locale->text('From') . qq|</th>
-	  <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>
+	  <td><input name=fromdate size=11 title="$myconfig{dateformat}" value="$form->{fromdate}"></td>
 	  <th align=right>| . $locale->text('To') . qq|</th>
 	  <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
 	</tr>
@@ -518,7 +518,7 @@ qq|<input name=accno class=radio type=radio value=$ref->{accno} $checked>&nbsp;$
         }
 
         print qq|
-  <input type=hidden name=db value=$form->{db}>
+  <input type=hidden name=db value="$form->{db}">
   <input type=hidden name=sort value=transdate>
 
 	  </td>
@@ -619,13 +619,13 @@ qq|<input name=accno class=radio type=radio value="gifi_$ref->{accno}">&nbsp;$re
         print qq|
         <input type=hidden name=nextsub value=generate_tax_report>
 
-        <input type=hidden name=db value=$form->{db}>
+        <input type=hidden name=db value="$form->{db}">
         <input type=hidden name=sort value=transdate>
-        <input type=hidden name=report value=$form->{report}>
+        <input type=hidden name=report value="$form->{report}">
 
 	<tr>
 	  <th align=right>| . $locale->text('From') . qq|</th>
-	  <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>
+	  <td><input name=fromdate size=11 title="$myconfig{dateformat}" value="$form->{fromdate}"></td>
 	  <th align=right>| . $locale->text('To') . qq|</th>
 	  <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
 	</tr>
@@ -721,11 +721,11 @@ qq|<input name=accno class=radio type=radio value="gifi_$ref->{accno}">&nbsp;$re
 	</tr>
 	$selectto
         <input type=hidden name=type value=statement>
-        <input type=hidden name=format value=$postscript>
+        <input type=hidden name=format value="$postscript">
 	<input type=hidden name=media value="$myconfig{printer}">
 
-	<input type=hidden name=nextsub value=$nextsub>
-	<input type=hidden name=action value=$nextsub>
+	<input type=hidden name=nextsub value="$nextsub">
+	<input type=hidden name=action value="$nextsub">
 	$summary
 	<tr>
 	  <table>
@@ -799,7 +799,7 @@ qq|<input name=accno class=radio type=radio value="gifi_$ref->{accno}">&nbsp;$re
 	</tr>
 	<tr>
 	  <th align=right>| . $locale->text('From') . qq|</th>
-	  <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>
+	  <td><input name=fromdate size=11 title="$myconfig{dateformat}" value="$form->{fromdate}"></td>
 	  <th align=right>| . $locale->text('To') . qq|</th>
 	  <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
 	</tr>
@@ -815,7 +815,7 @@ qq|<input name=accno class=radio type=radio value="gifi_$ref->{accno}">&nbsp;$re
 	  <td align=left colspan=3>| . $locale->text('Subtotal') . qq|</th>
 	</tr>
 	  
-	  <input type=hidden name=db value=$form->{db}>
+	  <input type=hidden name=db value="$form->{db}">
 	  <input type=hidden name=sort value=transdate>
 |;
 
@@ -1705,8 +1705,8 @@ qq|<td><select name="language_code_$i">$form->{"selectlanguage_$i"}</select></td
 
             $column_data{statement} =
 qq|<td><input name="statement_$i" type=checkbox class=checkbox value=1 $ref->{checked}>
-      <input type=hidden name="$form->{ct}_id_$i" value=$ref->{ctid}>
-      <input type=hidden name="curr_$i" value=$ref->{curr}>
+      <input type=hidden name="$form->{ct}_id_$i" value="$ref->{ctid}">
+      <input type=hidden name="curr_$i" value="$ref->{curr}">
       </td>|;
 
         }
@@ -1871,7 +1871,7 @@ qq|$ref->{module}.pl?path=$form->{path}&action=edit&id=$ref->{id}&login=$form->{
 
     print qq|
 	</tr>
-	<input type=hidden name=rowcount value=$i>
+	<input type=hidden name=rowcount value="$i">
       </table>
     </td>
   </tr>
@@ -2006,7 +2006,7 @@ sub print_options {
     {
         print qq|
       <td>| . $locale->text('Copies') . qq|
-      <input name=copies size=2 value=$form->{copies}></td>
+      <input name=copies size=2 value="$form->{copies}"></td>
 |;
     }
 
-- 
cgit v1.2.3