From 3c1095e2427a297630f57cd9d6a7c334a634cb3d Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 5 Aug 2008 20:55:59 +0000
Subject: Correcting date comparison bug

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2232 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/Form.pm   | 3 +--
 scripts/vouchers.pl | 2 ++
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index 48ef9c8f..9883839c 100644
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -977,7 +977,7 @@ sub datetonum {
     my ( $self, $myconfig, $date, $picture ) = @_;
 
     if ($date =~ /^\d{4}-\d{2}-\d{2}$/){
-        $date =~ s/-//;
+        $date =~ s/-//g;
         return $date;
     }
 
@@ -1003,7 +1003,6 @@ sub datetonum {
 
         $dd = substr( "0$dd", -2 );
         $mm = substr( "0$mm", -2 );
-
         $date = "$yy$mm$dd";
     }
 
diff --git a/scripts/vouchers.pl b/scripts/vouchers.pl
index 5173045a..d6ed9b23 100644
--- a/scripts/vouchers.pl
+++ b/scripts/vouchers.pl
@@ -106,6 +106,8 @@ sub add_vouchers {
     };
 
     our $form = new Form;
+    our %myconfig = ();
+    %myconfig = %{$request->{_user}};
     our $locale = $request->{_locale};
 
     for (keys %$request){
-- 
cgit v1.2.3