From 71180454c6f80037a7a2fa58a662b6b5cd4a67b1 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Thu, 24 May 2012 12:32:52 +0200
Subject: [PATCH] Spellchecks

---
 SL/BP.pm          | 2 +-
 SL/DB/Order.pm    | 2 +-
 t/006spellcheck.t | 3 +++
 3 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/SL/BP.pm b/SL/BP.pm
index c8b4a3ddd..f7eaf2b5c 100644
--- 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 8212a647e..6a9977b07 100644
--- 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 600460c66..0a332ffbb 100644
--- a/t/006spellcheck.t
+++ b/t/006spellcheck.t
@@ -41,6 +41,9 @@ paramater
 varsion
 fomr
 puhs
+invoce
+CONTANTS
+puchase
 );
 
 $testcount = scalar(@Support::Files::testitems);
-- 
2.20.1