From 212d423210bf58328663f00e4e856ad0b4fbc3c0 Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Sat, 21 Oct 2006 17:33:11 +0000
Subject: Fourth batch of files prepared for RFTL removal

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@257 4979c152-3d1c-0410-bac9-87ea11338e46
---
 bin/login.pl |  4 ++--
 bin/oe.pl    | 32 ++++++++++++++++----------------
 bin/pe.pl    | 36 ++++++++++++++++++------------------
 bin/pos.pl   | 10 +++++-----
 bin/pw.pl    |  4 ++--
 5 files changed, 43 insertions(+), 43 deletions(-)

diff --git a/bin/login.pl b/bin/login.pl
index 64d7bfa0..d1712383 100755
--- a/bin/login.pl
+++ b/bin/login.pl
@@ -144,7 +144,7 @@ sub login_screen {
 					</table>
 						<input type="hidden" name="path" value="$form->{path}" />
 						<input type="hidden" name="js" value="$form->{js}" />
-						<input type="submit" name="action" value="|.$locale->text('Login').qq|" />
+						<button type="submit" name="action" value="login">|.$locale->text('Login').qq|</button>
 					</form>
 					</p>
 				</td>
@@ -209,7 +209,7 @@ sub selectdataset {
 									</tr>
 								</table>
 								<br />
-								<input type="submit" name="action" value="|.$locale->text('Login').qq|">
+								<button type="submit" name="action" value="login">|.$locale->text('Login').qq|</button>
 							</td>
 						</tr>
 					</table>
diff --git a/bin/oe.pl b/bin/oe.pl
index 90d8fd89..7d87b297 100755
--- a/bin/oe.pl
+++ b/bin/oe.pl
@@ -1256,7 +1256,7 @@ sub search {
   $form->hide_form(qw(path login sessionid vc type));
   
   print qq|
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
+<button class="submit" type="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button>
 </form>
 |;
 
@@ -1338,7 +1338,7 @@ sub transactions {
     if ($form->{type} eq 'purchase_order') {
       $form->{title} = $locale->text('Purchase Orders');
       if ($myconfig{acs} !~ /Order Entry--Order Entry/) {
-	$button{'Order Entry--Purchase Order'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Purchase Order').qq|"> |;
+	$button{'Order Entry--Purchase Order'}{code} = qq|<button class="submit" type="submit" name="action" value="purchase_order">|.$locale->text('Purchase Order').qq|</button> |;
 	$button{'Order Entry--Purchase Order'}{order} = $i++;
       }
     }
@@ -1347,7 +1347,7 @@ sub transactions {
       $form->{type} = "purchase_order";
       unshift @column_index, "ndx";
       if ($myconfig{acs} !~ /Order Entry--Order Entry/) {
-	$button{'Order Entry--Sales Order'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Generate Sales Order').qq|"> |;
+	$button{'Order Entry--Sales Order'}{code} = qq|<button class="submit" type="submit" name="action" value="generate_sales_order">|.$locale->text('Generate Sales Order').qq|</button> |;
 	$button{'Order Entry--Sales Order'}{order} = $i++;
       }
     }
@@ -1356,7 +1356,7 @@ sub transactions {
       $form->{type} = "purchase_order";
       unshift @column_index, "ndx";
       if ($myconfig{acs} !~ /Order Entry--Order Entry/) {
-	$button{'Order Entry--Purchase Order'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Consolidate Orders').qq|"> |;
+	$button{'Order Entry--Purchase Order'}{code} = qq|<button class="submit" type="submit" name="action" value="consolidate_orders">|.$locale->text('Consolidate Orders').qq|</button> |;
 	$button{'Order Entry--Purchase Order'}{order} = $i++;
       }
     }
@@ -1366,7 +1366,7 @@ sub transactions {
       $quotation = $locale->text('RFQ');
 
       if ($myconfig{acs} !~ /Quotations--Quotations/) {
-	$button{'Quotations--RFQ'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('RFQ ').qq|"> |;
+	$button{'Quotations--RFQ'}{code} = qq|<button class="submit" type="submit" name="action" value="rfq_">|.$locale->text('RFQ ').qq|"</button> |;
 	$button{'Quotations--RFQ'}{order} = $i++;
       }
       
@@ -1380,7 +1380,7 @@ sub transactions {
       $employee = $locale->text('Salesperson');
 
       if ($myconfig{acs} !~ /Order Entry--Order Entry/) {
-	$button{'Order Entry--Sales Order'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Sales Order').qq|"> |;
+	$button{'Order Entry--Sales Order'}{code} = qq|<button class="submit" type="submit" name="action" value="sales_order">|.$locale->text('Sales Order').qq|</button> |;
 	$button{'Order Entry--Sales Order'}{order} = $i++;
       }
 
@@ -1391,7 +1391,7 @@ sub transactions {
       $employee = $locale->text('Salesperson');
       unshift @column_index, "ndx";
       if ($myconfig{acs} !~ /Order Entry--Order Entry/) {
-	$button{'Order Entry--Purchase Order'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Generate Purchase Orders').qq|"> |;
+	$button{'Order Entry--Purchase Order'}{code} = qq|<button class="submit" type="submit" name="action" value="generate_purchase_orders">|.$locale->text('Generate Purchase Orders').qq|</button> |;
 	$button{'Order Entry--Purchase Order'}{order} = $i++;
       }
     }
@@ -1400,7 +1400,7 @@ sub transactions {
       $form->{type} = "sales_order";
       unshift @column_index, "ndx";
       if ($myconfig{acs} !~ /Order Entry--Order Entry/) {
-	$button{'Order Entry--Sales Order'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Consolidate Orders').qq|"> |;
+	$button{'Order Entry--Sales Order'}{code} = qq|<button class="submit" type="submit" name="action" value="consolidate_orders">|.$locale->text('Consolidate Orders').qq|</button> |;
 	$button{'Order Entry--Sales Order'}{order} = $i++;
       }
     }
@@ -1416,7 +1416,7 @@ sub transactions {
       $quotation = $locale->text('Quotation');
 
       if ($myconfig{acs} !~ /Quotations--Quotations/) {
-	$button{'Quotations--Quotation'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Quotation ').qq|"> |;
+	$button{'Quotations--Quotation'}{code} = qq|<button class="submit" type="submit" name="action" value="quotation_">|.$locale->text('Quotation ').qq|</button> |;
 	$button{'Quotations--Quotation'}{order} = $i++;
       }
       
@@ -1838,7 +1838,7 @@ sub delete {
 
 <h4>$msg $form->{$ordnumber}</h4>
 <p>
-<input name=action class=submit type=submit value="|.$locale->text('Yes').qq|">
+<button name="action" class="submit" type="submit" value="yes">|.$locale->text('Yes').qq|</button>
 </form>
 
 </body>
@@ -2037,7 +2037,7 @@ sub backorder_exchangerate {
 <br>
 <input type=hidden name=nextsub value=save_exchangerate>
 
-<input name=action class=submit type=submit value="|.$locale->text('Continue').qq|">
+<button name="action" class="submit" type="submit" value="continue">|.$locale->text('Continue').qq|</button>
 
 </form>
 
@@ -2548,7 +2548,7 @@ sub search_transfer {
 <br>
 <input type=hidden name=nextsub value=list_transfer>
 
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">|;
+<button class="submit" type="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button>|;
 
   $form->hide_form(qw(path login sessionid));
 
@@ -2706,7 +2706,7 @@ print qq|
   $form->hide_form(qw(path login sessionid action));
 
   print qq|
-<input class=submit type=submit name=action value="|.$locale->text('Transfer').qq|">|;
+<button class="submit" type="submit" name="action" value="transfer">|.$locale->text('Transfer').qq|</button>|;
 
   if ($form->{lynx}) {
     require "bin/menu.pl";
@@ -2912,10 +2912,10 @@ BLANKROW:
   $form->hide_form(qw(callback department ponumber path login sessionid employee_id vc nextsub rowcount type));
   
   print qq|
-<input class=submit type=submit name=action value="|.$locale->text('Generate Orders').qq|">|;
+<button class="submit" type="submit" name="action" value="generate_orders">|.$locale->text('Generate Orders').qq|</button>|;
 
   print qq|
-<input class=submit type=submit name=action value="|.$locale->text('Select Vendor').qq|">|;
+<button class="submit" type="submit" name="action" value="select_vendor">|.$locale->text('Select Vendor').qq|</button>|;
  
   if ($form->{lynx}) {
     require "bin/menu.pl";
@@ -2996,7 +2996,7 @@ sub select_vendor {
   $form->hide_form;
   
   print qq|
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
+<button class="submit" type="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button>
 
 </form>
 |;
diff --git a/bin/pe.pl b/bin/pe.pl
index 67222607..8d4c380c 100755
--- a/bin/pe.pl
+++ b/bin/pe.pl
@@ -527,9 +527,9 @@ sub list_stock {
   $form->hide_form(qw(callback type path login sessionid status));
 
   print qq|
-<input type=hidden name=nextsub value="stock">
+<input type="hidden" name="nextsub" value="stock">
 <br>
-<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|">
+<button type="submit" class="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button>
 </form>
 
 </body>
@@ -741,7 +741,7 @@ sub search {
   $form->hide_form(qw(path login sessionid title));
 
   print qq|
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
+<button class="submit" type="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button>
 </form>
 |;
 
@@ -916,7 +916,7 @@ sub list_projects {
   $i = 1;
   if ($form->{type} eq 'project') {
     if ($myconfig{acs} !~ /Projects--Projects/) {
-      $button{'Projects--Add Project'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Project').qq|"> |;
+      $button{'Projects--Add Project'}{code} = qq|<button class="submit" type="submit" name="action" value="add_project">|.$locale->text('Add Project').qq|</button> |;
       $button{'Projects--Add Project'}{order} = $i++;
 
       for (split /;/, $myconfig{acs}) {
@@ -925,7 +925,7 @@ sub list_projects {
     }
   } else {
     if ($myconfig{acs} !~ /Job Costing--Job Costing/) {
-      $button{'Job Costing--Add Job'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Job').qq|"> |;
+      $button{'Job Costing--Add Job'}{code} = qq|<button class="submit" type="submit" name="action" value="add_job">|.$locale->text('Add Job').qq|</button> |;
       $button{'Job Costing--Add Job'}{order} = $i++;
 
       for (split /;/, $myconfig{acs}) {
@@ -1257,7 +1257,7 @@ sub partsgroup_report {
 
   $i = 1;
   if ($myconfig{acs} !~ /Goods \& Services--Goods \& Services/) {
-    $button{'Goods & Services--Add Group'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Group').qq|"> |;
+    $button{'Goods & Services--Add Group'}{code} = qq|<button class="submit" type="submit" name="action" value="add_group">|.$locale->text('Add Group').qq|</button> |;
     $button{'Goods & Services--Add Group'}{order} = $i++;
 
     foreach $item (split /;/, $myconfig{acs}) {
@@ -1351,12 +1351,12 @@ sub partsgroup_footer {
 
   if ($myconfig{acs} !~ /Goods \& Services--Add Group/) {
     print qq|
-<input type=submit class=submit name=action value="|.$locale->text('Save').qq|">
+<button type="submit" class="submit" name="action" value="save">|.$locale->text('Save').qq|</button>
 |;
 
     if ($form->{id} && $form->{orphaned}) {
       print qq|
-<input type=submit class=submit name=action value="|.$locale->text('Delete').qq|">|;
+<button type="submit" class="submit" name="action" value="delete">|.$locale->text('Delete').qq|</button>|;
     }
   }
 
@@ -1453,7 +1453,7 @@ sub pricegroup_report {
 
   $i = 1;
   if ($myconfig{acs} !~ /Goods \& Services--Goods \& Services/) {
-    $button{'Goods & Services--Add Pricegroup'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Pricegroup').qq|"> |;
+    $button{'Goods & Services--Add Pricegroup'}{code} = qq|<button class="submit" type="submit" name="action" value="add_pricegroup">|.$locale->text('Add Pricegroup').qq|</button> |;
     $button{'Goods & Services--Add Pricegroup'}{order} = $i++;
 
     foreach $item (split /;/, $myconfig{acs}) {
@@ -1545,12 +1545,12 @@ sub pricegroup_footer {
   
   if ($myconfig{acs} !~ /Goods \& Services--Add Pricegroup/) {
     print qq|
-<input type=submit class=submit name=action value="|.$locale->text('Save').qq|">
+<button type="submit" class="submit" name="action" value="save">|.$locale->text('Save').qq|</button>
 |;
 
     if ($form->{id} && $form->{orphaned}) {
       print qq|
-<input type=submit class=submit name=action value="|.$locale->text('Delete').qq|">|;
+<button type="submit" class="submit" name="action" value="delete">|.$locale->text('Delete').qq|</button>|;
     }
   }
 
@@ -1639,7 +1639,7 @@ $sort
   print qq|
 
 <br>
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
+<button class="submit" type="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button>
 </form>
 
 </body>
@@ -2068,9 +2068,9 @@ sub select_name {
   $form->hide_form;
 
   print qq|
-<input type=hidden name=nextsub value=name_selected>
+<input type="hidden" name="nextsub" value="name_selected">
 <br>
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
+<button class="submit" type="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button>
 </form>
 
 </body>
@@ -2218,7 +2218,7 @@ sub project_sales_order {
   $form->hide_form(qw(path login sessionid nextsub type vc));
 
   print qq|
-<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|">
+<button type="submit" class="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button>
 
 </form>
 |;
@@ -2399,10 +2399,10 @@ sub jcitems {
 
   if ($form->{rowcount}) {
     print qq|
-<input class=submit type=submit name=action value="|.$locale->text('Generate Sales Orders').qq|">|;
+<button class="submit" type="submit" name="action" value="generate_sales_orders">|.$locale->text('Generate Sales Orders').qq|</button>|;
 
     print qq|
-<input class=submit type=submit name=action value="|.$locale->text('Select Customer').qq|">|;
+<button class="submit" type="submit" name="action" value="select_customer">|.$locale->text('Select Customer').qq|</button>|;
 
   }
 
@@ -2448,7 +2448,7 @@ sub select_customer {
   $form->hide_form;
 
   print qq|
-<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|"> 
+<button class="submit" type="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button> 
     
 </form>
 |;
diff --git a/bin/pos.pl b/bin/pos.pl
index d9d1d4bd..e501d19e 100755
--- a/bin/pos.pl
+++ b/bin/pos.pl
@@ -572,7 +572,7 @@ sub form_footer {
       foreach $item (split /\n/, $form->{partsgroup}) {
 	($partsgroup, $translation) = split /--/, $item;
 	$item = ($translation) ? $translation : $partsgroup;
-	print qq| <input class=submit type=submit name=action value="$spc$item">\n| if $item;
+	print qq| <button class="submit" type="submit" name="action" value="$spc$item">$spc$item</button>\n| if $item;
       }
     }
   }
@@ -1034,11 +1034,11 @@ sub receipts {
 </table>
 
 <br>
-<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="path" value="$form->{path}">
+<input type="hidden" name="login" value="$form->{login}">
+<input type="hidden" name="sessionid" value="$form->{sessionid}">
 
-<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|">
+<button type="submit" class="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button>
 |;
 
   if ($form->{lynx}) {
diff --git a/bin/pw.pl b/bin/pw.pl
index a4aa2808..a1dabe07 100755
--- a/bin/pw.pl
+++ b/bin/pw.pl
@@ -65,8 +65,8 @@ function sf(){
 <table>
   <tr>
     <th align=right>|.$locale->text('Password').qq|</th>
-    <td><input type=password name=password size=30></td>
-    <td><input type=submit value="|.$locale->text('Continue').qq|"></td>
+    <td><input type="password" name="password" size="30"></td>
+    <td><button type="submit" value="continue">|.$locale->text('Continue').qq|</button></td>
   </tr>
 </table>
 
-- 
cgit v1.2.3