Spellchecks

diff --git a/SL/BP.pm b/SL/BP.pm
index c8b4a3ddd696449ddff4497490d908eecbceea43..f7eaf2b5c2ff65a216a829224fdc3443df6c082c 100644 (file)
--- a/SL/BP.pm
+++ b/SL/BP.pm
@@ -196,7 +196,7 @@ sub get_spoolfiles {
     }
   }
 
-  if ($form->{type} =~ /(invoice|sales_order|sales_quotation|puchase_order|request_quotation|packing_list)$/) {
+  if ($form->{type} =~ /(invoice|sales_order|sales_quotation|purchase_order|request_quotation|packing_list)$/) {
     if ($form->{transdatefrom}) {
       $query .= " AND a.transdate >= ?";
       push(@values, $form->{transdatefrom});

diff --git a/SL/DB/Order.pm b/SL/DB/Order.pm
index 8212a647e6bf3fd992b909c2a1d651ffcdddd9b1..6a9977b0792c102479843fce7543be35429313e5 100644 (file)
--- a/SL/DB/Order.pm
+++ b/SL/DB/Order.pm
@@ -155,7 +155,7 @@ sub number {
   my %number_method = (
     sales_order       => 'ordnumber',
     sales_quotation   => 'quonumber',
-    puchase_order     => 'ordnumber',
+    purchase_order    => 'ordnumber',
     request_quotation => 'quonumber',
   );
 

diff --git a/t/006spellcheck.t b/t/006spellcheck.t
index 600460c666988da6b4d9fc1b16e6e18d23d97fc6..0a332ffbbbee430a70de07e7798dd877aacbbe3f 100644 (file)
--- a/t/006spellcheck.t
+++ b/t/006spellcheck.t
@@ -41,6 +41,9 @@ paramater
 varsion
 fomr
 puhs
+invoce
+CONTANTS
+puchase
 );
 
 $testcount = scalar(@Support::Files::testitems);