Spellchecks

diff --git a/SL/BP.pm b/SL/BP.pm
index c8b4a3d..f7eaf2b 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 8212a64..6a9977b 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 600460c..0a332ff 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);