Correcting date comparison bug

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2232 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 1 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";
     }