More quoting (see bug 1795858)

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1631 4979c152-3d1c-0410-bac9-87ea11338e46
author: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> 2007-09-18 02:53:07 +0000
committer: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> 2007-09-18 02:53:07 +0000
commit: db61c90de910fcaa179ed764e8e588a23584a3a1 (patch)
tree: 18e129b785e8ea81ba089453e9d817eb76f98660
parent: c1ccbe59533c208e0769ccd58478db58c34f1aaf (diff)
4 files changed, 303 insertions, 303 deletions
diff --git a/bin/ca.pl b/bin/ca.pl
index e060b020..1c8a9121 100755
--- a/bin/ca.pl
+++ b/bin/ca.pl
@@ -87,15 +87,15 @@ sub chart_of_accounts {
     @column_index = qw(accno gifi_accno description debit credit);
 
     $column_header{accno} =
-      qq|<th class=listtop>| . $locale->text('Account') . qq|</th>\n|;
+      qq|<th class="listtop">| . $locale->text('Account') . qq|</th>\n|;
     $column_header{gifi_accno} =
-      qq|<th class=listtop>| . $locale->text('GIFI') . qq|</th>\n|;
+      qq|<th class="listtop">| . $locale->text('GIFI') . qq|</th>\n|;
     $column_header{description} =
-      qq|<th class=listtop>| . $locale->text('Description') . qq|</th>\n|;
+      qq|<th class="listtop">| . $locale->text('Description') . qq|</th>\n|;
     $column_header{debit} =
-      qq|<th class=listtop>| . $locale->text('Debit') . qq|</th>\n|;
+      qq|<th class="listtop">| . $locale->text('Debit') . qq|</th>\n|;
     $column_header{credit} =
-      qq|<th class=listtop>| . $locale->text('Credit') . qq|</th>\n|;
+      qq|<th class="listtop">| . $locale->text('Credit') . qq|</th>\n|;
 
     $form->{title} = $locale->text('Chart of Accounts');
 
@@ -106,10 +106,10 @@ sub chart_of_accounts {
     print qq|
 <body>
   
-<table border=0 width=100%>
-  <tr><th class=listtop colspan=$colspan>$form->{title}</th></tr>
+<table border="0" width="100%">
+  <tr><th class="listtop" colspan="$colspan">$form->{title}</th></tr>
   <tr height="5"></tr>
-  <tr class=listheading>|;
+  <tr class="listheading">|;
 
     for (@column_index) { print $column_header{$_} }
 
@@ -128,27 +128,27 @@ qq|$form->{script}?path=$form->{path}&action=list&accno=$ca->{accno}&login=$form
         if ( $ca->{charttype} eq "H" ) {
             print qq|<tr class=listheading>|;
             for (qw(accno description)) {
-                $column_data{$_} = "<th class=listheading>$ca->{$_}</th>";
+                $column_data{$_} = qq|<th class="listheading">$ca->{$_}</th>|;
             }
             $column_data{gifi_accno} =
-              "<th class=listheading>$ca->{gifi_accno}&nbsp;</th>";
+              qq|<th class="listheading">$ca->{gifi_accno}&nbsp;</th>|;
         }
         else {
             $i++;
             $i %= 2;
-            print qq|<tr class=listrow$i>|;
-            $column_data{accno} = "<td><a href=$href>$ca->{accno}</a></td>";
+            print qq|<tr class="listrow$i">|;
+            $column_data{accno} = qq|<td><a href="$href">$ca->{accno}</a></td>|;
             $column_data{gifi_accno} =
-"<td><a href=$href&accounttype=gifi>$ca->{gifi_accno}</a>&nbsp;</td>";
+qq|<td><a href="$href&accounttype=gifi">$ca->{gifi_accno}</a>&nbsp;</td>|;
             $column_data{description} = "<td>$ca->{description}</td>";
         }
 
         $column_data{debit} =
-            "<td align=right>"
+            '<td align="right">'
           . $form->format_amount( \%myconfig, $ca->{debit}, 2, "&nbsp;" )
           . "</td>\n";
         $column_data{credit} =
-            "<td align=right>"
+            '<td align="right">'
           . $form->format_amount( \%myconfig, $ca->{credit}, 2, "&nbsp;" )
           . "</td>\n";
 
@@ -167,20 +167,20 @@ qq|$form->{script}?path=$form->{path}&action=list&accno=$ca->{accno}&login=$form
     }
 
     $column_data{debit} =
-      "<th align=right class=listtotal>"
+      '<th align="right" class="listtotal">'
       . $form->format_amount( \%myconfig, $totaldebit, 2, 0 ) . "</th>";
     $column_data{credit} =
-      "<th align=right class=listtotal>"
+      '<th align="right" class="listtotal">'
       . $form->format_amount( \%myconfig, $totalcredit, 2, 0 ) . "</th>";
 
-    print "<tr class=listtotal>";
+    print '<tr class="listtotal">';
 
     for (@column_index) { print "$column_data{$_}\n" }
 
     print qq|
 </tr>
 <tr>
-  <td colspan=$colspan><hr size=3 noshade></td>
+  <td colspan="$colspan"><hr size="3" noshade></td>
 </tr>
 </table>
 
@@ -217,8 +217,8 @@ qq|<option value="$_->{description}--$_->{id}">$_->{description}\n|;
 
     $department = qq|
         <tr>
-	  <th align=right nowrap>| . $locale->text('Department') . qq|</th>
-	  <td colspan=3><select name=department>$form->{selectdepartment}</select></td>
+	  <th align="right" nowrap>| . $locale->text('Department') . qq|</th>
+	  <td colspan="3"><select name="department">$form->{selectdepartment}</select></td>
 	</tr>
 | if $form->{selectdepartment};
 
@@ -232,23 +232,23 @@ qq|<option value="$_->{description}--$_->{id}">$_->{description}\n|;
         $form->{selectaccountingmonth} = "<option>\n";
         for ( sort keys %{ $form->{all_month} } ) {
             $form->{selectaccountingmonth} .=
-              qq|<option value=$_>|
+              qq|<option value="$_">|
               . $locale->text( $form->{all_month}{$_} ) . qq|\n|;
         }
 
         $selectfrom = qq|
         <tr>
-	<th align=right>| . $locale->text('Period') . qq|</th>
-	<td colspan=3>
-	<select name=month>$form->{selectaccountingmonth}</select>
-	<select name=year>$form->{selectaccountingyear}</select>
-	<input name=interval class=radio type=radio value=0 checked>&nbsp;|
+	<th align="right">| . $locale->text('Period') . qq|</th>
+	<td colspan="3">
+	<select name="month">$form->{selectaccountingmonth}</select>
+	<select name="year">$form->{selectaccountingyear}</select>
+	<input name="interval" class="radio" type="radio" value="0" checked>&nbsp;|
           . $locale->text('Current') . qq|
-	<input name=interval class=radio type=radio value=1>&nbsp;|
+	<input name="interval" class="radio" type="radio" value="1">&nbsp;|
           . $locale->text('Month') . qq|
-	<input name=interval class=radio type=radio value=3>&nbsp;|
+	<input name="interval" class="radio" type="radio" value="3">&nbsp;|
           . $locale->text('Quarter') . qq|
-	<input name=interval class=radio type=radio value=12>&nbsp;|
+	<input name="interval" class="radio" type="radio" value="12">&nbsp;|
           . $locale->text('Year') . qq|
 	</td>
       </tr>
@@ -260,45 +260,45 @@ qq|<option value="$_->{description}--$_->{id}">$_->{description}\n|;
     print qq|
 <body>
 
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
 
-<input type=hidden name=accno value=$form->{accno}>
-<input type=hidden name=description value="$form->{description}">
+<input type="hidden" name="accno" value="$form->{accno}">
+<input type="hidden" name="description" value="$form->{description}">
 
-<input type=hidden name=sort value=transdate>
-<input type=hidden name=oldsort value=transdate>
+<input type="hidden" name="sort" value="transdate">
+<input type="hidden" name="oldsort" value="transdate">
 
-<input type=hidden name=accounttype value=$form->{accounttype}>
-<input type=hidden name=gifi_accno value=$form->{gifi_accno}>
-<input type=hidden name=gifi_description value="$form->{gifi_description}">
+<input type="hidden" name="accounttype" value="$form->{accounttype}">
+<input type="hidden" name="gifi_accno" value="$form->{gifi_accno}">
+<input type="hidden" name="gifi_description" value="$form->{gifi_description}">
 
-<table border=0 width=100%>
-  <tr><th class=listtop>$form->{title}</th></tr>
+<table border="0" width="100%">
+  <tr><th class="listtop">$form->{title}</th></tr>
   <tr height="5"></tr>
-  <tr valign=top>
+  <tr valign="top">
     <td>
       <table>
         $department
 	<tr>
-	  <th align=right>| . $locale->text('From') . qq|</th>
-	  <td><input name=fromdate size=11 title="$myconfig{dateformat}"></td>
-	  <th align=right>| . $locale->text('To') . qq|</th>
-	  <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
+	  <th align="right">| . $locale->text('From') . qq|</th>
+	  <td><input name="fromdate" size="11" title="$myconfig{dateformat}"></td>
+	  <th align="right">| . $locale->text('To') . qq|</th>
+	  <td><input name="todate" size="11" title="$myconfig{dateformat}"></td>
 	</tr>
 	$selectfrom
 	<tr>
-	  <th align=right>| . $locale->text('Include in Report') . qq|</th>
-	  <td colspan=3>
-	  <input name=l_accno class=checkbox type=checkbox value=Y>&nbsp;|
+	  <th align="right">| . $locale->text('Include in Report') . qq|</th>
+	  <td colspan="3">
+	  <input name="l_accno" class="checkbox" type="checkbox" value="Y">&nbsp;|
       . $locale->text('AR/AP') . qq|
-	  <input name=l_subtotal class=checkbox type=checkbox value=Y>&nbsp;|
+	  <input name="l_subtotal" class="checkbox" type="checkbox" value="Y">&nbsp;|
       . $locale->text('Subtotal') . qq|
 	  </td>
 	</tr>
       </table>
     </td>
   </tr>
-  <tr><td><hr size=3 noshade></td></tr>
+  <tr><td><hr size="3" noshade></td></tr>
 </table>
 
 <input type="hidden" name="login" value="$form->{login}">
@@ -349,29 +349,29 @@ sub list_transactions {
 
     # figure out which column comes first
     $column_header{transdate} =
-        qq|<th><a class=listheading href=$href&sort=transdate>|
+        qq|<th><a class="listheading" href="$href&sort=transdate">|
       . $locale->text('Date')
       . qq|</a></th>|;
     $column_header{reference} =
-        qq|<th><a class=listheading href=$href&sort=reference>|
+        qq|<th><a class="listheading" href="$href&sort=reference">|
       . $locale->text('Reference')
       . qq|</a></th>|;
     $column_header{description} =
-        qq|<th><a class=listheading href=$href&sort=description>|
+        qq|<th><a class="listheadine" href="$href&sort=description">|
       . $locale->text('Description')
       . qq|</a></th>|;
     $column_header{cleared} =
-      qq|<th class=listheading>| . $locale->text('R') . qq|</th>|;
+      qq|<th class="listheading">| . $locale->text('R') . qq|</th>|;
     $column_header{source} =
-      qq|<th class=listheading>| . $locale->text('Source') . qq|</th>|;
+      qq|<th class="listheading">| . $locale->text('Source') . qq|</th>|;
     $column_header{debit} =
-      qq|<th class=listheading>| . $locale->text('Debit') . qq|</th>|;
+      qq|<th class="listheading">| . $locale->text('Debit') . qq|</th>|;
     $column_header{credit} =
-      qq|<th class=listheading>| . $locale->text('Credit') . qq|</th>|;
+      qq|<th class="listheading">| . $locale->text('Credit') . qq|</th>|;
     $column_header{balance} =
-      qq|<th class=listheading>| . $locale->text('Balance') . qq|</th>|;
+      qq|<th class="listheading">| . $locale->text('Balance') . qq|</th>|;
     $column_header{accno} =
-      qq|<th class=listheading>| . $locale->text('AR/AP') . qq|</th>|;
+      qq|<th class="listheading">| . $locale->text('AR/AP') . qq|</th>|;
 
     @columns = qw(transdate reference description debit credit);
     if ( $form->{link} =~ /_paid/ ) {
@@ -420,7 +420,7 @@ sub list_transactions {
           $locale->date( \%myconfig, $form->current_date( \%myconfig ), 1 );
     }
 
-    $form->{period} = "<a href=$form->{prevreport}>$form->{period}</a>"
+    $form->{period} = qq|<a href="$form->{prevreport}">$form->{period}</a>|
       if $form->{prevreport};
 
     $options .= $form->{period};
@@ -445,9 +445,9 @@ sub list_transactions {
     print qq|
 <body>
 
-<table width=100%>
+<table width="100%">
   <tr>
-    <th class=listtop>$form->{title}</th>
+    <th class="listtop">$form->{title}</th>
   </tr>
   <tr height="5"></tr>
   <tr>
@@ -455,8 +455,8 @@ sub list_transactions {
   </tr>
   <tr>
     <td>
-      <table width=100%>
-       <tr class=listheading>
+      <table width="100%">
+       <tr class="listheading">
 |;
 
     for (@column_index) { print "$column_header{$_}\n" }
@@ -481,7 +481,7 @@ sub list_transactions {
         for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
 
         $column_data{balance} =
-            "<td align=right>"
+            '<td align="right">'
           . $form->format_amount( \%myconfig, $form->{balance} * $ml, 2, 0 )
           . "</td>";
 
@@ -489,7 +489,7 @@ sub list_transactions {
         $i %= 2;
 
         print qq|
-        <tr class=listrow$i>
+        <tr class="listrow$i">
 |;
         for (@column_index) { print "$column_data{$_}\n" }
         print qq|
@@ -511,17 +511,17 @@ sub list_transactions {
 "<a href=$ca->{module}.pl?path=$form->{path}&action=edit&id=$ca->{id}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$form->{callback}>$ca->{reference}</a>";
 
         $column_data{debit} =
-            "<td align=right>"
+            '<td align="right">'
           . $form->format_amount( \%myconfig, $ca->{debit}, 2, "&nbsp;" )
           . "</td>";
         $column_data{credit} =
-            "<td align=right>"
+            '<td align="right">'
           . $form->format_amount( \%myconfig, $ca->{credit}, 2, "&nbsp;" )
           . "</td>";
 
         $form->{balance} += $ca->{amount};
         $column_data{balance} =
-            "<td align=right>"
+            '<td align="right">'
           . $form->format_amount( \%myconfig, $form->{balance} * $ml, 2, 0 )
           . "</td>";
 
@@ -541,7 +541,7 @@ sub list_transactions {
 
         $column_data{accno} = qq|<td>|;
         for ( @{ $ca->{accno} } ) {
-            $column_data{accno} .= "<a href=$drilldown&accno=$_>$_</a> ";
+            $column_data{accno} .= qq|<a href="$drilldown&accno=$_">$_</a> |;
         }
         $column_data{accno} .= qq|&nbsp;</td>|;
 
@@ -552,7 +552,7 @@ sub list_transactions {
         $sameid = $ca->{id};
 
         print qq|
-        <tr class=listrow$i>
+        <tr class="listrow$i">
 |;
 
         for (@column_index) { print "$column_data{$_}\n" }
@@ -570,18 +570,18 @@ sub list_transactions {
     for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
 
     $column_data{debit} =
-      "<th align=right class=listtotal>"
+      qq|<th align="right" class="listtotal">|
       . $form->format_amount( \%myconfig, $totaldebit, 2, "&nbsp;" ) . "</th>";
     $column_data{credit} =
-      "<th align=right class=listtotal>"
+      qq|<th align="right" class="listtotal">|
       . $form->format_amount( \%myconfig, $totalcredit, 2, "&nbsp;" ) . "</th>";
     $column_data{balance} =
-        "<th align=right class=listtotal>"
+      qq|<th align="right" class="listtotal">|
       . $form->format_amount( \%myconfig, $form->{balance} * $ml, 2, 0 )
       . "</th>";
 
     print qq|
-	<tr class=listtotal>
+	<tr class="listtotal">
 |;
 
     for (@column_index) { print "$column_data{$_}\n" }
@@ -592,7 +592,7 @@ sub list_transactions {
     </td>
   </tr>
   <tr>
-    <td><hr size=3 noshade></td>
+    <td><hr size="3" noshade></td>
   </tr>
 </table>
 
@@ -607,11 +607,11 @@ sub ca_subtotal {
     for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
 
     $column_data{debit} =
-        "<th align=right class=listsubtotal>"
+        qq|<th align="right" class="listsubtotal">|
       . $form->format_amount( \%myconfig, $subtotaldebit, 2, "&nbsp;" )
       . "</th>";
     $column_data{credit} =
-        "<th align=right class=listsubtotal>"
+        qq|<th align="right" class="listsubtotal">|
       . $form->format_amount( \%myconfig, $subtotalcredit, 2, "&nbsp;" )
       . "</th>";
 
@@ -621,7 +621,7 @@ sub ca_subtotal {
     $sameitem = $ca->{ $form->{sort} };
 
     print qq|
-      <tr class=listsubtotal>
+      <tr class="listsubtotal">
 |;
 
     for (@column_index) { print "$column_data{$_}\n" }
diff --git a/bin/cp.pl b/bin/cp.pl
index 8dc10f06..4c9b1c86 100755
--- a/bin/cp.pl
+++ b/bin/cp.pl
@@ -262,10 +262,10 @@ sub payments_header {
     if ( $form->{defaultcurrency} ) {
         $exchangerate = qq|
 	      <tr>
-		<th align=right nowrap>| . $locale->text('Currency') . qq|</th>
-		<td><select name=currency>$form->{selectcurrency}</select></td>
-		<input type=hidden name=selectcurrency value="$form->{selectcurrency}">
-		<input type=hidden name=oldcurrency value=$form->{oldcurrency}>
+		<th align="right" nowrap>| . $locale->text('Currency') . qq|</th>
+		<td><select name="currency">$form->{selectcurrency}</select></td>
+		<input type="hidden" name="selectcurrency" value="$form->{selectcurrency}">
+		<input type="hidden" name="oldcurrency" value="$form->{oldcurrency}">
 	      </tr>
 |;
     }
@@ -277,16 +277,16 @@ sub payments_header {
         if ( $form->{forex} ) {
             $exchangerate .= qq|
  	      <tr>
-		<th align=right nowrap>| . $locale->text('Exchange Rate') . qq|</th>
-		<td colspan=3><input type=hidden name=exchangerate size=10 value=$form->{exchangerate}>$form->{exchangerate}</td>
+		<th align="right" nowrap>| . $locale->text('Exchange Rate') . qq|</th>
+		<td colspan="3"><input type="hidden" name="exchangerate" size="10" value="$form->{exchangerate}">$form->{exchangerate}</td>
 	      </tr>
 |;
         }
         else {
             $exchangerate .= qq|
  	      <tr>
-		<th align=right nowrap>| . $locale->text('Exchange Rate') . qq|</th>
-		<td colspan=3><input name=exchangerate size=10 value=$form->{exchangerate}></td>
+		<th align="right" nowrap>| . $locale->text('Exchange Rate') . qq|</th>
+		<td colspan="3"><input name="exchangerate" size="10" value="$form->{exchangerate}"></td>
 	      </tr>
 |;
         }
@@ -295,8 +295,8 @@ sub payments_header {
     $department = qq|
               <tr>
 	        <th align="right" nowrap>| . $locale->text('Department') . qq|</th>
-		<td><select name=department>$form->{selectdepartment}</select>
-		<input type=hidden name=selectdepartment value="|
+		<td><select name="department">$form->{selectdepartment}</select>
+		<input type="hidden" name="selectdepartment" value="|
       . $form->escape( $form->{selectdepartment}, 1 ) . qq|">
 	      </td>
 	    </tr>
@@ -307,7 +307,7 @@ sub payments_header {
     print qq|
 <body>
 
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
 |;
 
     $form->hide_form(
@@ -315,48 +315,48 @@ sub payments_header {
     );
 
     print qq|
-<table width=100%>
+<table width="100%">
   <tr>
-    <th class=listtop>$form->{title}</th>
+    <th class="listtop">$form->{title}</th>
   </tr>
   <tr height="5"></tr>
   <tr>
     <td>
-      <table width=100%>
-        <tr valign=top>
+      <table width="100%">
+        <tr valign="top">
 	  <td>
 	    <table>
 	      <tr>
-	        <th align=right>|
+	        <th align="right">|
       . $locale->text('Due Date')
       . qq|&nbsp;|
       . $locale->text('From')
       . qq|</th>
-		<td><input name=duedatefrom value="$form->{duedatefrom}" title="$myconfig{dateformat}" size=11></td>
-	        <th align=right>| . $locale->text('To') . qq|</th>
-		<td><input name=duedateto value="$form->{duedateto}" title="$myconfig{dateformat}" size=11></td>
+		<td><input name="duedatefrom" value="$form->{duedatefrom}" title="$myconfig{dateformat}" size="11"></td>
+	        <th align="right">| . $locale->text('To') . qq|</th>
+		<td><input name="duedateto" value="$form->{duedateto}" title="$myconfig{dateformat}" size="11"></td>
 	      </tr>
 	    </table>
 	  </td>
 	  </td>
-	  <td align=right>
+	  <td align="right">
 	    <table>
 	      $department
 	      <tr>
-	        <th align=right nowrap>| . $locale->text( $form->{ARAP} ) . qq|</th>
-		<td colspan=3><select name=$form->{ARAP}>$form->{"select$form->{ARAP}"}</select>
+	        <th align="right" nowrap>| . $locale->text( $form->{ARAP} ) . qq|</th>
+		<td colspan="3"><select name="$form->{ARAP}">$form->{"select$form->{ARAP}"}</select>
 		</td>
-		<input type=hidden name="select$form->{ARAP}" value="$form->{"select$form->{ARAP}"}">
+		<input type="hidden" name="select$form->{ARAP}" value="$form->{"select$form->{ARAP}"}">
 	      </tr>
 	      <tr>
-		<th align=right nowrap>| . $locale->text('Account') . qq|</th>
-		<td colspan=3><select name=account>$form->{selectaccount}</select>
-		<input type=hidden name=selectaccount value="$form->{selectaccount}">
+		<th align="right" nowrap>| . $locale->text('Account') . qq|</th>
+		<td colspan="3"><select name="account">$form->{selectaccount}</select>
+		<input type="hidden" name="selectaccount" value="$form->{selectaccount}">
 		</td>
 	      </tr>
 	      <tr>
-		<th align=right nowrap>| . $locale->text('Date') . qq|</th>
-		<td><input name=datepaid value="$form->{datepaid}" title="$myconfig{dateformat}" size=11></td>
+		<th align="right" nowrap>| . $locale->text('Date') . qq|</th>
+		<td><input name="datepaid" value="$form->{datepaid}" title="$myconfig{dateformat}" size="11"></td>
 	      </tr>
 	      $exchangerate
 	    </table>
@@ -381,12 +381,12 @@ sub invoices_due {
     $vclabel = $locale->text($vclabel);
 
     print qq|
-  <input type=hidden name=column_index value="id @column_index">
+  <input type="hidden" name="column_index" value="id @column_index">
   <tr>
     <td>
-      <table width=100%>
+      <table width="100"%>
 	<tr>
-	  <th class=listheading colspan=$colspan>$invoice</th>
+	  <th class="listheading" colspan="$colspan">$invoice</th>
 	</tr>
 |;
 
@@ -435,20 +435,20 @@ sub invoices_due {
         }
 
         $column_data{invnumber} = qq|<td>$form->{"invnumber_$i"}</td>
-      <input type=hidden name="invnumber_$i" value="$form->{"invnumber_$i"}">
-      <input type=hidden name="id_$i" value=$form->{"id_$i"}>|;
+      <input type="hidden" name="invnumber_$i" value="$form->{"invnumber_$i"}">
+      <input type="hidden" name="id_$i" value="$form->{"id_$i"}">|;
         $column_data{transdate} = qq|<td>$form->{"transdate_$i"}</td>
-      <input type=hidden name="transdate_$i" value=$form->{"transdate_$i"}>|;
-        $column_data{amount} = qq|<td align=right>$form->{"amount_$i"}</td>
-      <input type=hidden name="amount_$i" value=$form->{"amount_$i"}>|;
-        $column_data{due} = qq|<td align=right>$form->{"due_$i"}</td>
-      <input type=hidden name="due_$i" value=$form->{"due_$i"}>|;
+      <input type="hidden" name="transdate_$i" value="$form->{"transdate_$i"}">|;
+        $column_data{amount} = qq|<td align="right">$form->{"amount_$i"}</td>
+      <input type="hidden" name="amount_$i" value="$form->{"amount_$i"}">|;
+        $column_data{due} = qq|<td align="right">$form->{"due_$i"}</td>
+      <input type="hidden" name="due_$i" value="$form->{"due_$i"}">|;
 
         if ( $form->{"paid_$i"} =~ /NaN/ ) {
             $form->{"paid_$i"} = '';
         }
         $column_data{paid} =
-qq|<td align=right><input name="paid_$i" size=10 value=$form->{"paid_$i"}></td>|;
+qq|<td align="right"><input name="paid_$i" size="10" value="$form->{"paid_$i"}"></td>|;
 
         if ( $same_id eq $form->{"$form->{vc}_id_$i"} ) {
             for (qw(name memo source language)) {
@@ -458,9 +458,9 @@ qq|<td align=right><input name="paid_$i" size=10 value=$form->{"paid_$i"}></td>|
         else {
             $column_data{name} = qq|<td>$form->{"name_$i"}</td>|;
             $column_data{memo} =
-qq|<td align=right><input name="memo_$i" size=10 value="$form->{"memo_$i"}"></td>|;
+qq|<td align="right"><input name="memo_$i" size="10" value="$form->{"memo_$i"}"></td>|;
             $column_data{source} =
-qq|<td align=right><input name="source_$i" size=10 value="$form->{"source_$i"}"></td>|;
+qq|<td align="right"><input name="source_$i" size="10" value="$form->{"source_$i"}"></td>|;
 
             if ( $form->{selectlanguage} ) {
                 $selectlanguage = $form->{selectlanguage};
@@ -473,17 +473,17 @@ qq|<td><select name="language_code_$i">$selectlanguage</select></td>|;
         }
 
         $column_data{name} .= qq|
-      <input type=hidden name="name_$i" value="$form->{"name_$i"}">
-      <input type=hidden name="$form->{vc}_id_$i" value="$form->{"$form->{vc}_id_$i"}">|;
+      <input type="hidden" name="name_$i" value="$form->{"name_$i"}">
+      <input type="hidden" name="$form->{vc}_id_$i" value="$form->{"$form->{vc}_id_$i"}">|;
 
         $form->{"checked_$i"} = ( $form->{"checked_$i"} ) ? "checked" : "";
         $column_data{checked} =
-qq|<td align=center><input name="checked_$i" type=checkbox class=checkbox $form->{"checked_$i"}></td>|;
+qq|<td align="center"><input name="checked_$i" type="checkbox" class="checkbox" $form->{"checked_$i"}></td>|;
 
         $j++;
         $j %= 2;
         print qq|
-	<tr class=listrow$j>
+	<tr class="listrow$j">
 |;
         for (@column_index) { print "$column_data{$_}\n" }
         print qq|
@@ -497,20 +497,20 @@ qq|<td align=center><input name="checked_$i" type=checkbox class=checkbox $form-
     for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
 
     $column_data{amount} =
-        qq|<th class=listtotal align=right>|
+        qq|<th class="listtotal" align="right">|
       . $form->format_amount( \%myconfig, $totalamount, 2, "&nbsp;" )
       . qq|</th>|;
     $column_data{due} =
-        qq|<th class=listtotal align=right>|
+        qq|<th class="listtotal" align="right">|
       . $form->format_amount( \%myconfig, $totaldue, 2, "&nbsp;" )
       . qq|</th>|;
     $column_data{paid} =
-        qq|<th class=listtotal align=right>|
+        qq|<th class="listtotal" align="right">|
       . $form->format_amount( \%myconfig, $totalpaid, 2, "&nbsp;" )
       . qq|</th>|;
 
     print qq|
-        <tr class=listtotal>
+        <tr class="listtotal">
 |;
     for (@column_index) { print "$column_data{$_}\n" }
     print qq|
@@ -518,7 +518,7 @@ qq|<td align=center><input name="checked_$i" type=checkbox class=checkbox $form-
       </table>
     </td>
   </tr>
-<input type=hidden name=selectlanguage value="|
+<input type="hidden" name="selectlanguage" value="|
       . $form->escape( $form->{selectlanguage}, 1 ) . qq|">
 |;
 
@@ -533,8 +533,8 @@ sub payments_footer {
 
     if ( ${LedgerSMB::Sysconfig::latex} ) {
 
-        $media = qq|<select name=media>
-          <option value=screen>| . $locale->text('Screen');
+        $media = qq|<select name="media">
+          <option value="screen">| . $locale->text('Screen');
 
         if ( %{LedgerSMB::Sysconfig::printer} ) {
             for ( sort keys %{LedgerSMB::Sysconfig::printer} ) {
@@ -544,17 +544,17 @@ sub payments_footer {
         }
 
         $media .= qq|</select>|;
-        $format = qq|<select name=format>
-            <option value=postscript $form->{DF}{postscript}>|
+        $format = qq|<select name="format">
+            <option value="postscript" $form->{DF}{postscript}>|
           . $locale->text('Postscript') . qq|
-	    <option value=pdf $form->{DF}{pdf}>|
+	    <option value="pdf" $form->{DF}{pdf}>|
           . $locale->text('PDF')
           . qq|</select>|;
     }
 
     print qq|
   <tr>
-    <td><hr size=3 noshade></td>
+    <td><hr size="3" noshade></td>
   </tr>
 </table>
 |;
@@ -940,10 +940,10 @@ sub payment_header {
     if ( $form->{defaultcurrency} ) {
         $exchangerate = qq|
 	      <tr>
-		<th align=right nowrap>| . $locale->text('Currency') . qq|</th>
-		<td><select name=currency>$form->{selectcurrency}</select></td>
-		<input type=hidden name=selectcurrency value="$form->{selectcurrency}">
-		<input type=hidden name=oldcurrency value=$form->{oldcurrency}>
+		<th align="right" nowrap>| . $locale->text('Currency') . qq|</th>
+		<td><select name="currency">$form->{selectcurrency}</select></td>
+		<input type="hidden" name="selectcurrency" value="$form->{selectcurrency}">
+		<input type="hidden" name="oldcurrency" value="$form->{oldcurrency}">
 	      </tr>
 |;
     }
@@ -955,16 +955,16 @@ sub payment_header {
         if ( $form->{forex} ) {
             $exchangerate .= qq|
  	      <tr>
-		<th align=right nowrap>| . $locale->text('Exchange Rate') . qq|</th>
-		<td colspan=3><input type=hidden name=exchangerate size=10 value=$form->{exchangerate}>$form->{exchangerate}</td>
+		<th align="right" nowrap>| . $locale->text('Exchange Rate') . qq|</th>
+		<td colspan="3"><input type="hidden" name="exchangerate" size="10" value="$form->{exchangerate}">$form->{exchangerate}</td>
 	      </tr>
 |;
         }
         else {
             $exchangerate .= qq|
  	      <tr>
-		<th align=right nowrap>| . $locale->text('Exchange Rate') . qq|</th>
-		<td colspan=3><input name=exchangerate size=10 value=$form->{exchangerate}></td>
+		<th align="right" nowrap>| . $locale->text('Exchange Rate') . qq|</th>
+		<td colspan="3"><input name="exchangerate" size="10" value="$form->{exchangerate}"></td>
 	      </tr>
 |;
         }
@@ -972,8 +972,8 @@ sub payment_header {
 
     $vc =
       ( $form->{"select$form->{vc}"} )
-      ? qq|<select name=$form->{vc}>$form->{"select$form->{vc}"}\n</select>|
-      : qq|<input name=$form->{vc} size=35 value="$form->{$form->{vc}}">|;
+      ? qq|<select name="$form->{vc}">$form->{"select$form->{vc}"}\n</select>|
+      : qq|<input name="$form->{vc}" size="35" value="$form->{$form->{vc}}">|;
 
     if ( $form->{all_vc} ) {
         $allvc = "checked";
@@ -988,8 +988,8 @@ sub payment_header {
     $department = qq|
               <tr>
 	        <th align="right" nowrap>| . $locale->text('Department') . qq|</th>
-		<td><select name=department>$form->{selectdepartment}</select>
-		<input type=hidden name=selectdepartment value="|
+		<td><select name="department">$form->{selectdepartment}</select>
+		<input type="hidden" name="selectdepartment" value="|
       . $form->escape( $form->{selectdepartment}, 1 ) . qq|">
 	      </td>
 	    </tr>
@@ -1000,7 +1000,7 @@ sub payment_header {
     print qq|
 <body>
 
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
 |;
 
     $form->hide_form(
@@ -1009,34 +1009,34 @@ sub payment_header {
 
     print qq|
 
-<table width=100%>
+<table width="100%">
   <tr>
-    <th class=listtop>$form->{title}</th>
+    <th class="listtop">$form->{title}</th>
   </tr>
   <tr height="5"></tr>
   <tr>
     <td>
-      <table width=100%>
-        <tr valign=top>
+      <table width="100%">
+        <tr valign="top">
 	  <td>
 	    <table>
 	      <tr>
-	        <td align=right>
-		<input name=all_vc type=checkbox class=checkbox value=Y $allvc>
-		<input type=hidden name="oldall_vc" value="$form->{all_vc}"></td>
-		<th align=left>| . $locale->text('All') . qq|</th>
+	        <td align="right">
+		<input name="all_vc" type="checkbox" class="checkbox" value="Y" $allvc>
+		<input type="hidden" name="oldall_vc" value="$form->{all_vc}"></td>
+		<th align="left">| . $locale->text('All') . qq|</th>
 	      </tr>
 	      <tr>
-		<th align=right>$vclabel</th>
+		<th align="right">$vclabel</th>
 		<td>$vc</td>
-                <input type=hidden name="select$form->{vc}" value="|
+                <input type="hidden" name="select$form->{vc}" value="|
       . $form->escape( $form->{"select$form->{vc}"}, 1 ) . qq|">
-                <input type=hidden name="$form->{vc}_id" value=$form->{"$form->{vc}_id"}>
-		<input type=hidden name="old$form->{vc}" value="$form->{"old$form->{vc}"}">
+                <input type="hidden" name="$form->{vc}_id" value="$form->{"$form->{vc}_id"}">
+		<input type="hidden" name="old$form->{vc}" value="$form->{"old$form->{vc}"}">
 	      </tr>
-	      <tr valign=top>
-		<th align=right nowrap>| . $locale->text('Address') . qq|</th>
-		<td colspan=2>
+	      <tr valign="top">
+		<th align="right" nowrap>| . $locale->text('Address') . qq|</th>
+		<td colspan="2">
 		  <table>
 		    <tr>
 		      <td>$form->{address1}</td>
@@ -1057,16 +1057,16 @@ sub payment_header {
 		    </tr>
 		  </table>
 		</td>
-		<input type=hidden name=address1 value="$form->{address1}">
-		<input type=hidden name=address2 value="$form->{address2}">
-		<input type=hidden name=city value="$form->{city}">
-		<input type=hidden name=state value="$form->{state}">
-		<input type=hidden name=zipcode value="$form->{zipcode}">
-		<input type=hidden name=country value="$form->{country}">
+		<input type="hidden" name="address1" value="$form->{address1}">
+		<input type="hidden" name="address2" value="$form->{address2}">
+		<input type="hidden" name="city" value="$form->{city}">
+		<input type="hidden" name="state" value="$form->{state}">
+		<input type="hidden" name="zipcode" value="$form->{zipcode}">
+		<input type="hidden" name="country" value="$form->{country}">
 	      </tr>
 	      <tr>
-		<th align=right>| . $locale->text('Memo') . qq|</th>
-		<td colspan=2><input name="memo" size=30 value="$form->{memo}"></td>
+		<th align="right">| . $locale->text('Memo') . qq|</th>
+		<td colspan="2"><input name="memo" size="30" value="$form->{memo}"></td>
 	      </tr>
 	    </table>
 	  </td>
@@ -1074,33 +1074,33 @@ sub payment_header {
 	    <table>
 	      $department
 	      <tr>
-	        <th align=right nowrap>| . $locale->text( $form->{ARAP} ) . qq|</th>
-		<td colspan=3><select name=$form->{ARAP}>$form->{"select$form->{ARAP}"}</select>
+	        <th align="right" nowrap>| . $locale->text( $form->{ARAP} ) . qq|</th>
+		<td colspan="3"><select name="$form->{ARAP}">$form->{"select$form->{ARAP}"}</select>
 		</td>
-		<input type=hidden name="select$form->{ARAP}" value="$form->{"select$form->{ARAP}"}">
+		<input type="hidden" name="select$form->{ARAP}" value="$form->{"select$form->{ARAP}"}">
 	      </tr>
 	      <tr>
-		<th align=right nowrap>| . $locale->text('Account') . qq|</th>
-		<td colspan=3><select name=account>$form->{selectaccount}</select>
-		<input type=hidden name=selectaccount value="$form->{selectaccount}">
+		<th align="right" nowrap>| . $locale->text('Account') . qq|</th>
+		<td colspan="3"><select name="account">$form->{selectaccount}</select>
+		<input type="hidden" name="selectaccount" value="$form->{selectaccount}">
 		</td>
 	      </tr>
 	      <tr>
-		<th align=right nowrap>| . $locale->text('Date') . qq|</th>
-		<td><input name=datepaid value="$form->{datepaid}" title="$myconfig{dateformat}" size=11></td>
-		<input type=hidden name=olddatepaid value=$form->{olddatepaid}>
+		<th align="right" nowrap>| . $locale->text('Date') . qq|</th>
+		<td><input name="datepaid" value="$form->{datepaid}" title="$myconfig{dateformat}" size="11"></td>
+		<input type="hidden" name="olddatepaid" value="$form->{olddatepaid}">
 	      </tr>
 	      $exchangerate
 	      <tr>
-		<th align=right nowrap>| . $locale->text('Source') . qq|</th>
-		<td colspan=3><input name=source value="$form->{source}" size=10></td>
+		<th align="right" nowrap>| . $locale->text('Source') . qq|</th>
+		<td colspan="3"><input name="source" value="$form->{source}" size="10"></td>
 	      </tr>
 	      <tr>
-		<th align=right nowrap>| . $locale->text('Amount') . qq|</th>
-		<td colspan=3><input name=amount size=10 value=|
+		<th align="right" nowrap>| . $locale->text('Amount') . qq|</th>
+		<td colspan="3"><input name="amount" size="10" value="|
       . $form->format_amount( \%myconfig, $form->{amount}, 2 )
-      . qq|></td>
-		<input type=hidden name=oldamount value=$form->{amount}>
+      . qq|"></td>
+		<input type="hidden" name="oldamount" value="$form->{amount}">
 	      </tr>
 	    </table>
 	  </td>
@@ -1121,12 +1121,12 @@ sub list_invoices {
     $invoice = $locale->text('Invoices');
 
     print qq|
-  <input type=hidden name=column_index value="id @column_index">
+  <input type="hidden" name="column_index" value="id @column_index">
   <tr>
     <td>
-      <table width=100%>
+      <table width="100%">
 	<tr>
-	  <th class=listheading colspan=$colspan>$invoice</th>
+	  <th class="listheading" colspan="$colspan">$invoice</th>
 	</tr>
 |;
 
@@ -1165,31 +1165,31 @@ sub list_invoices {
         }
 
         $column_data{invnumber} = qq|<td>$form->{"invnumber_$i"}</td>
-      <input type=hidden name="invnumber_$i" value="$form->{"invnumber_$i"}">
-      <input type=hidden name="id_$i" value=$form->{"id_$i"}>|;
-        $column_data{transdate} = qq|<td width=15%>$form->{"transdate_$i"}</td>
-      <input type=hidden name="transdate_$i" value=$form->{"transdate_$i"}>|;
+      <input type="hidden" name="invnumber_$i" value="$form->{"invnumber_$i"}">
+      <input type="hidden" name="id_$i" value="$form->{"id_$i"}">|;
+        $column_data{transdate} = qq|<td width="15%">$form->{"transdate_$i"}</td>
+      <input type="hidden" name="transdate_$i" value="$form->{"transdate_$i"}">|;
         $column_data{amount} =
-          qq|<td align=right width=15%>$form->{"amount_$i"}</td>
-      <input type=hidden name="amount_$i" value=$form->{"amount_$i"}>|;
-        $column_data{due} = qq|<td align=right width=15%>$form->{"due_$i"}</td>
-      <input type=hidden name="due_$i" value=$form->{"due_$i"}>|;
+          qq|<td align="right" width="15%">$form->{"amount_$i"}</td>
+      <input type="hidden" name="amount_$i" value="$form->{"amount_$i"}">|;
+        $column_data{due} = qq|<td align="right" width="15%">$form->{"due_$i"}</td>
+      <input type="hidden" name="due_$i" value="$form->{"due_$i"}">|;
 
         if ( $form->{"paid_$i"} =~ /NaN/ ) {
             $form->{"paid_$i"} = '';
         }
 
         $column_data{paid} =
-qq|<td align=right width=15%><input name="paid_$i" size=10 value=$form->{"paid_$i"}></td>|;
+qq|<td align="right" width="15%"><input name="paid_$i" size="10" value="$form->{"paid_$i"}"></td>|;
 
         $form->{"checked_$i"} = ( $form->{"checked_$i"} ) ? "checked" : "";
         $column_data{checked} =
-qq|<td align=center width=10%><input name="checked_$i" type=checkbox class=checkbox $form->{"checked_$i"}></td>|;
+qq|<td align="center" width="10%"><input name="checked_$i" type="checkbox" class="checkbox" $form->{"checked_$i"}></td>|;
 
         $j++;
         $j %= 2;
         print qq|
-	<tr class=listrow$j>
+	<tr class="listrow$j">
 |;
         for (@column_index) { print "$column_data{$_}\n" }
         print qq|
@@ -1200,20 +1200,20 @@ qq|<td align=center width=10%><input name="checked_$i" type=checkbox class=check
     for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
 
     $column_data{amount} =
-        qq|<th class=listtotal align=right>|
+        qq|<th class="listtotal" align="right">|
       . $form->format_amount( \%myconfig, $totalamount, 2, "&nbsp;" )
       . qq|</th>|;
     $column_data{due} =
-        qq|<th class=listtotal align=right>|
+        qq|<th class="listtotal" align="right">|
       . $form->format_amount( \%myconfig, $totaldue, 2, "&nbsp;" )
       . qq|</th>|;
     $column_data{paid} =
-        qq|<th class=listtotal align=right>|
+        qq|<th class="listtotal" align="right">|
       . $form->format_amount( \%myconfig, $totalpaid, 2, "&nbsp;" )
       . qq|</th>|;
 
     print qq|
-        <tr class=listtotal>
+        <tr class="listtotal">
 |;
     for (@column_index) { print "$column_data{$_}\n" }
     print qq|
@@ -1240,13 +1240,13 @@ sub payment_footer {
             $form->{"selectlanguage"} =~
               s/(<option value="\Q$form->{language_code}\E")/$1 selected/;
             $lang =
-              qq|<select name=language_code>$form->{selectlanguage}</select>
-      <input type=hidden name=selectlanguage value="|
+              qq|<select name="language_code">$form->{selectlanguage}</select>
+      <input type="hidden" name="selectlanguage" value="|
               . $form->escape( $form->{selectlanguage}, 1 ) . qq|">|;
         }
 
-        $media = qq|<select name=media>
-          <option value=screen>| . $locale->text('Screen');
+        $media = qq|<select name="media">
+          <option value="screen">| . $locale->text('Screen');
 
         if ( %{LedgerSMB::Sysconfig::printer} ) {
             for ( sort keys %{LedgerSMB::Sysconfig::printer} ) {
@@ -1256,17 +1256,17 @@ sub payment_footer {
         }
 
         $media .= qq|</select>|;
-        $format = qq|<select name=format>
-            <option value=postscript $form->{DF}{postscript}>|
+        $format = qq|<select name="format">
+            <option value="postscript" $form->{DF}{postscript}>|
           . $locale->text('Postscript') . qq|
-	    <option value=pdf $form->{DF}{pdf}>|
+	    <option value="pdf" $form->{DF}{pdf}>|
           . $locale->text('PDF')
           . qq|</select>|;
     }
 
     print qq|
   <tr>
-    <td><hr size=3 noshade></td>
+    <td><hr size="3" noshade></td>
   </tr>
 </table>
 |;
diff --git a/bin/pw.pl b/bin/pw.pl
index f03ed240..4c6f8068 100755
--- a/bin/pw.pl
+++ b/bin/pw.pl
@@ -64,11 +64,11 @@ function sf(){
 
   $sessionexpired
 
-<form method=post action=$form->{script} name=pw>
+<form method="post" action="$form->{script}" name="pw">
 
 <table>
   <tr>
-    <th align=right>| . $locale->text('Password') . qq|</th>
+    <th align="right">| . $locale->text('Password') . qq|</th>
     <td><input type="password" name="password" size="30"></td>
     <td><button type="submit" value="continue">|
       . $locale->text('Continue')
diff --git a/bin/rc.pl b/bin/rc.pl
index 6428ff63..d713b03c 100755
--- a/bin/rc.pl
+++ b/bin/rc.pl
@@ -86,11 +86,11 @@ sub reconciliation {
     if ( $form->{report} ) {
         $form->{title} = $locale->text('Reconciliation Report');
         $cleared = qq|
-        <input type=hidden name=report value=1>
+        <input type="hidden" name="report" value="1">
         <tr>
-	  <td align=right><input type=checkbox class=checkbox name=outstanding value=1 checked></td>
+	  <td align="right"><input type="checkbox" class="checkbox" name="outstanding" value="1" checked></td>
 	  <td>| . $locale->text('Outstanding') . qq|</td>
-	  <td align=right><input type=checkbox class=checkbox name=cleared value=1></td>
+	  <td align="right"><input type="checkbox" class="checkbox" name="cleared" value="1"></td>
 	  <td>| . $locale->text('Cleared') . qq|</td>
 	</tr>
 |;
@@ -113,17 +113,17 @@ sub reconciliation {
 
         $selectfrom = qq|
         <tr>
-	  <th align=right>| . $locale->text('Period') . qq|</th>
-	  <td colspan=3>
-	  <select name=month>$form->{selectaccountingmonth}</select>
-	  <select name=year>$form->{selectaccountingyear}</select>
-	  <input name=interval class=radio type=radio value=0 checked>&nbsp;|
+	  <th align="right">| . $locale->text('Period') . qq|</th>
+	  <td colspan="3">
+	  <select name="month">$form->{selectaccountingmonth}</select>
+	  <select name="year">$form->{selectaccountingyear}</select>
+	  <input name="interval" class="radio" type="radio" value="0" checked>&nbsp;|
           . $locale->text('Current') . qq|
-	  <input name=interval class=radio type=radio value=1>&nbsp;|
+	  <input name="interval" class="radio" type="radio" value="1">&nbsp;|
           . $locale->text('Month') . qq|
-	  <input name=interval class=radio type=radio value=3>&nbsp;|
+	  <input name="interval" class="radio" type="radio" value="3">&nbsp;|
           . $locale->text('Quarter') . qq|
-	  <input name=interval class=radio type=radio value=12>&nbsp;|
+	  <input name="interval" class="radio" type="radio" value="12">&nbsp;|
           . $locale->text('Year') . qq|
 	  </td>
 	</tr>
@@ -135,39 +135,39 @@ sub reconciliation {
     print qq|
 <body>
 
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
 
-<table width=100%>
+<table width="100%">
   <tr>
-    <th class=listtop>$form->{title}</th>
+    <th class="listtop">$form->{title}</th>
   </tr>
   <tr height="5"></tr>
   <tr>
     <td>
       <table>
 	<tr>
-	  <th align=right nowrap>| . $locale->text('Account') . qq|</th>
-	  <td colspan=3><select name=accno>$selection</select></td>
+	  <th align="right" nowrap>| . $locale->text('Account') . qq|</th>
+	  <td colspan="3"><select name="accno">$selection</select></td>
 	</tr>
 	<tr>
-	  <th align=right>| . $locale->text('From') . qq|</th>
-	  <td colspan=3><input name=fromdate size=11 title="$myconfig{dateformat}"> <b>|
+	  <th align="right">| . $locale->text('From') . qq|</th>
+	  <td colspan="3"><input name="fromdate" size="11" title="$myconfig{dateformat}"> <b>|
       . $locale->text('To')
-      . qq|</b> <input name=todate size=11 title="$myconfig{dateformat}"></td>
+      . qq|</b> <input name="todate" size="11" title="$myconfig{dateformat}"></td>
 	</tr>
 	$selectfrom
 	$cleared
         <tr>
 	  <td></td>
-	  <td colspan=3><input type=radio style=radio name=summary value=1 checked> |
+	  <td colspan="3"><input type="radio" style="radio" name="summary" value="1" checked> |
       . $locale->text('Summary') . qq|
-	  <input type=radio style=radio name=summary value=0> |
+	  <input type="radio" style="radio" name="summary" value="0"> |
       . $locale->text('Detail')
       . qq|</td>
 	</tr>
 	<tr>
 	  <td></td>
-	  <td colspan=3><input type=checkbox class=checkbox name=fx_transaction value=1 checked> |
+	  <td colspan="3"><input type="checkbox" class="checkbox" name="fx_transaction" value="1" checked> |
       . $locale->text('Include Exchange Rate Difference')
       . qq|</td>
 	</tr>
@@ -175,12 +175,12 @@ sub reconciliation {
     </td>
   </tr>
   <tr>
-    <td><hr size=3 noshade></td>
+    <td><hr size="3" noshade></td>
   </tr>
 </table>
 
 <br>
-<input type=hidden name=nextsub value=get_payments>
+<input type="hidden" name="nextsub" value="get_payments">
 |;
 
     $form->hide_form(qw(path login sessionid));
@@ -226,23 +226,23 @@ sub till_closing {
     print qq|
 <body>
 
-<form method=post action=$form->{script}>
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=sessionid value=$form->{sessionid}>
+<form method="post" action="$form->{script}">
+<input type="hidden" name="path" value="$form->{path}">
+<input type="hidden" name="login" value="$form->{login}">
+<input type="hidden" name="sessionid" value="$form->{sessionid}">
 
-<input type=hidden name=callback value="$form->{callback}">
-<input type=hidden name=sum value="| . $form->{sum} * -1 . qq|">
-<table width=100%>
+<input type="hidden" name="callback" value="$form->{callback}">
+<input type="hidden" name="sum" value="| . $form->{sum} * -1 . qq|">
+<table width="100%">
   <tr>
-    <th class=listtop>$form->{title}</th>
+    <th class="listtop">$form->{title}</th>
   </tr>
 </table> 
-<table width=100%>
+<table width="100%">
 |;
 
     print "<tr>";
-    map { print "<td class=listheading>" . $locale->text($_) . "</td>"; }
+    map { print '<td class="listheading">' . $locale->text($_) . "</td>"; }
       @colheadings;
     print "</tr>";
     my $j;
@@ -257,9 +257,9 @@ sub till_closing {
         }
         ++$j;
         $j = $j % 2;
-        print qq|<tr class=listrow$j><td>| . $pos_sources{$source} . qq|</td>
+        print qq|<tr class="listrow$j"><td>| . $pos_sources{$source} . qq|</td>
              <td><input name="amount_$source">
-             <input type=hidden name="expected_$source" 
+             <input type="hidden" name="expected_$source" 
 		value="$amount"></td>
              <td>${curren}$amount</td>
              <td id="error_$source">&nbsp;</td></tr>|;
@@ -331,7 +331,7 @@ function check_errors(){
         my $subval = 'sub_' . $calcval;
         $calcval = 'calc_' . $calcval;
         print qq|<tr>
-      <td><input type=text name=$calcval value="$form->{$calcval}"></td>
+      <td><input type="text" name="$calcval" value="$form->{$calcval}"></td>
       <th>X ${curren}${unit} = </th>
       <td><input type="text" name="$subval" value="$form->{$subval}"></td>
     </tr>|;
@@ -339,10 +339,10 @@ function check_errors(){
     print qq|<tr>
     <td>&nbsp;</td>
     <th>| . $locale->text("Subtotal") . qq|:</th>
-    <td><input type=text name=sub_sub value="$form->{sub_sub}"></td>
+    <td><input type="text" name="sub_sub" value="$form->{sub_sub}"></td>
   </tr>
   </table>
-<input type=button name=calculate class=submit onClick="custom_calc_total()" 
+<input type="button" name="calculate" class="submit" onClick="custom_calc_total()" 
    value='| . $locale->text('Calculate') . qq|'>
 |;
     print qq|</table><button type="submit" name="action" value="close_till">|
@@ -506,18 +506,18 @@ sub display_form {
 
     $column_header{cleared} = qq|<th>| . $locale->text('R') . qq|</th>|;
     $column_header{source} =
-      "<th class=listheading>" . $locale->text('Source') . "</a></th>";
+      '<th class="listheading">' . $locale->text('Source') . "</a></th>";
     $column_header{name} =
-      "<th class=listheading>" . $locale->text('Description') . "</a></th>";
+      '<th class="listheading">' . $locale->text('Description') . "</a></th>";
     $column_header{transdate} =
-      "<th class=listheading>" . $locale->text('Date') . "</a></th>";
+      '<th class="listheading">' . $locale->text('Date') . "</a></th>";
 
     $column_header{debit} =
-      "<th class=listheading>" . $locale->text('Debit') . "</a></th>";
+      '<th class="listheading">' . $locale->text('Debit') . "</a></th>";
     $column_header{credit} =
-      "<th class=listheading>" . $locale->text('Credit') . "</a></th>";
+      '<th class="listheading">' . $locale->text('Credit') . "</a></th>";
     $column_header{balance} =
-      "<th class=listheading>" . $locale->text('Balance') . "</a></th>";
+      '<th class="listheading">' . $locale->text('Balance') . "</a></th>";
 
     if ( $form->{fromdate} ) {
         $option .= "\n<br>" if ($option);
@@ -539,13 +539,13 @@ sub display_form {
     print qq|
 <body>
 
-<form method=post action=$form->{script}>
+<form method="post" action="$form->{script}">
 
-<input type=hidden name=source value="$form->{source}">
-<input type=hidden name=cumulative_error value="$form->{cumulative_error}">
-<table width=100%>
+<input type="hidden" name="source" value="$form->{source}">
+<input type="hidden" name="cumulative_error" value="$form->{cumulative_error}">
+<table width="100%">
   <tr>
-    <th class=listtop>$form->{title}</th>
+    <th class="listtop">$form->{title}</th>
   </tr>
   <tr height="5"></tr>
   <tr>
@@ -553,8 +553,8 @@ sub display_form {
   </tr>
   <tr>
     <td>
-      <table width=100%>
-	<tr class=listheading>
+      <table width="100%">
+	<tr class="listheading">
 |;
 
     for (@column_index) { print "\n$column_header{$_}" }
@@ -615,7 +615,7 @@ sub display_form {
         for ( @{ $temp{name} } ) { $column_data{name} .= "$_<br>" }
         $column_data{name} .= "</td>";
         $column_data{source} = qq|<td>$temp{source}&nbsp;</td>
-    <input type=hidden name="id_$i" value=$ref->{id}>|;
+    <input type="hidden" name="id_$i" value="$ref->{id}">|;
 
         $column_data{debit}  = "<td>&nbsp;</td>";
         $column_data{credit} = "<td>&nbsp;</td>";
@@ -626,7 +626,7 @@ sub display_form {
 
             $totaldebits += $ref->{amount} * -1;
 
-            $column_data{debit} = "<td align=right>"
+            $column_data{debit} = '<td align="right">'
               . $form->format_amount( \%myconfig, $ref->{amount} * -1,
                 2, "&nbsp;" )
               . "</td>";
@@ -637,20 +637,20 @@ sub display_form {
             $totalcredits += $ref->{amount};
 
             $column_data{credit} =
-                "<td align=right>"
+                '<td align="right">'
               . $form->format_amount( \%myconfig, $ref->{amount}, 2, "&nbsp;" )
               . "</td>";
 
         }
 
         $column_data{balance} =
-          "<td align=right>"
+          '<td align="right">'
           . $form->format_amount( \%myconfig, $balance, 2, 0 ) . "</td>";
 
         if ( $ref->{fx_transaction} ) {
 
             $column_data{cleared} =
-              ($clearfx) ? qq|<td align=center>*</td>| : qq|<td>&nbsp;</td>|;
+              ($clearfx) ? qq|<td align="center">*</td>| : qq|<td>&nbsp;</td>|;
             $cleared += $ref->{amount} * $ml if $clearfx;
 
         }
@@ -659,7 +659,7 @@ sub display_form {
             if ( $form->{report} ) {
 
                 if ( $ref->{cleared} ) {
-                    $column_data{cleared} = qq|<td align=center>*</td>|;
+                    $column_data{cleared} = qq|<td align="center">*</td>|;
                     $clearfx = 1;
                 }
                 else {
@@ -673,19 +673,19 @@ sub display_form {
                 if ( $ref->{oldcleared} ) {
                     $cleared += $ref->{amount} * $ml;
                     $clearfx = 1;
-                    $column_data{cleared} = qq|<td align=center>*</td>
-	  <input type=hidden name="cleared_$i" value=$ref->{cleared}>
-	  <input type=hidden name="oldcleared_$i" value=$ref->{oldcleared}>
-	  <input type=hidden name="source_$i" value="$ref->{source}">
-          <input type=hidden name="amount_$1" value="$ref->{amount}">|;
+                    $column_data{cleared} = qq|<td align="center">*</td>
+	  <input type="hidden" name="cleared_$i" value="$ref->{cleared}">
+	  <input type="hidden" name="oldcleared_$i" value="$ref->{oldcleared}">
+	  <input type="hidden" name="source_$i" value="$ref->{source}">
+          <input type="hidden" name="amount_$1" value="$ref->{amount}">|;
                 }
                 else {
                     $cleared += $ref->{amount} * $ml if $checked;
                     $clearfx = ($checked) ? 1 : 0;
                     $column_data{cleared} =
-qq|<td align=center><input name="cleared_$i" type=checkbox class=checkbox value=1 $checked>
-	  <input type=hidden name="source_$i" value="$ref->{source}">
-          <input type=hidden name="amount_$i" value="$ref->{amount}">
+qq|<td align="center"><input name="cleared_$i" type="checkbox" class="checkbox" value="1" $checked>
+	  <input type="hidden" name="source_$i" value="$ref->{source}">
+          <input type="hidden" name="amount_$i" value="$ref->{amount}">
           </td>|;
                 }
 
@@ -693,12 +693,12 @@ qq|<td align=center><input name="cleared_$i" type=checkbox class=checkbox value=
         }
 
         $column_data{transdate} = qq|<td>$temp{transdate}&nbsp;</td>
-    <input type=hidden name="transdate_$i" value=$ref->{transdate}>|;
+    <input type="hidden" name="transdate_$i" value="$ref->{transdate}">|;
 
         $j++;
         $j %= 2;
         print qq|
-	<tr class=listrow$j>
+	<tr class="listrow$j">
 |;
 
         for (@column_index) { print "\n$column_data{$_}" }
@@ -715,15 +715,15 @@ qq|<td align=center><input name="cleared_$i" type=checkbox class=checkbox value=
     for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
 
     $column_data{debit} =
-      "<th class=listtotal align=right>"
+      '<th class="listtotal" align="right">'
       . $form->format_amount( \%myconfig, $totaldebits, 2, "&nbsp;" ) . "</th>";
     $column_data{credit} =
-        "<th class=listtotal align=right>"
+        '<th class="listtotal" align="right">'
       . $form->format_amount( \%myconfig, $totalcredits, 2, "&nbsp;" )
       . "</th>";
 
     print qq|
-	<tr class=listtotal>
+	<tr class="listtotal">
 |;
 
     for (@column_index) { print "\n$column_data{$_}" }
@@ -760,18 +760,18 @@ qq|<td align=center><input name="cleared_$i" type=checkbox class=checkbox value=
     if ( $form->{'pos'} ) {
         $difference = qq|
               <tr>
-                 <th align=right><select name=over_under>
-                     <option value=under>|
+                 <th align="right"><select name="over_under">
+                     <option value="under">|
           . $locale->text('Under')
           . qq|</option>
-                     <option value=over>| . $locale->text('Over') . qq|</option>
-                   </select><input type=hidden name=pos value='true'>
+                     <option value="over">| . $locale->text('Over') . qq|</option>
+                   </select><input type="hidden" name="pos" value='true'>
                  </th>
-		<td width=10%></td>
-		<td align=right><input name=null size=11 
+		<td width="10%"></td>
+		<td align="right"><input name="null" size="11" 
                     value='| . $form->{null2} . qq|'></td>
-		<input type=hidden name=difference 
-                     value=$difference>
+		<input type="hidden" name="difference" 
+                     value="$difference">
                 
     |;
         if ( $form->{'over_under'} ) {
@@ -782,10 +782,10 @@ qq|<td align=center><input name="cleared_$i" type=checkbox class=checkbox value=
     else {
         $difference = qq|
 	      <tr>
-		<th align=right nowrap>| . $locale->text('Difference') . qq|</th>
-                <td width=10%></td>
-		<td align=right><input name=null size=11 value=$difference></td>
-		<input type=hidden name=difference value=$difference>
+		<th align="right" nowrap>| . $locale->text('Difference') . qq|</th>
+                <td width="10%"></td>
+		<td align="right"><input name="null" size="11" value="$difference"></td>
+		<input type="hidden" name="difference" value="$difference">
 	      </tr>|;
     }
 
@@ -803,14 +803,14 @@ qq|<td align=center><input name="cleared_$i" type=checkbox class=checkbox value=
    
   <tr>
     <td>
-      <table width=100%>
+      <table width="100%">
         <tr>
-	  <td align=right>
+	  <td align="right">
 	    <table>
 	      <tr>
-		<th align=right nowrap>| . $locale->text('Statement Balance') . qq|</th>
-		<td width=10%></td>
-		<td align=right><input name=statementbalance size=11 value=$form->{statementbalance}></td>
+		<th align="right" nowrap>| . $locale->text('Statement Balance') . qq|</th>
+		<td width="10%"></td>
+		<td align="right"><input name="statementbalance" size="11" value="$form->{statementbalance}"></td>
 	      </tr>
 		$difference
 	    </table>
@@ -820,7 +820,7 @@ qq|<td align=center><input name="cleared_$i" type=checkbox class=checkbox value=
     </td>
   </tr>
   <tr>
-    <td><hr size=3 noshade></td>
+    <td><hr size="3" noshade></td>
   </tr>
 </table>
 |;
author	tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>	2007-09-18 02:53:07 +0000
committer	tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>	2007-09-18 02:53:07 +0000
commit	db61c90de910fcaa179ed764e8e588a23584a3a1 (patch)
tree	18e129b785e8ea81ba089453e9d817eb76f98660
parent	c1ccbe59533c208e0769ccd58478db58c34f1aaf (diff)