SF.net SVN: ledger-smb:[2232] trunk

[..hidden..]

Revision: 2232
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2232&view=rev
Author:   einhverfr
Date:     2008-08-05 20:55:59 +0000 (Tue, 05 Aug 2008)

Log Message:
-----------
Correcting date comparison bug

Modified Paths:
--------------
    trunk/LedgerSMB/Form.pm
    trunk/scripts/vouchers.pl

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2008-08-05 16:27:36 UTC (rev 2231)
+++ trunk/LedgerSMB/Form.pm	2008-08-05 20:55:59 UTC (rev 2232)
@@ -977,7 +977,7 @@
     my ( $self, $myconfig, $date, $picture ) = @_;
 
     if ($date =~ /^\d{4}-\d{2}-\d{2}$/){
-        $date =~ s/-//;
+        $date =~ s/-//g;
         return $date;
     }
 
@@ -1003,7 +1003,6 @@
 
         $dd = substr( "0$dd", -2 );
         $mm = substr( "0$mm", -2 );
-
         $date = "$yy$mm$dd";
     }
 

Modified: trunk/scripts/vouchers.pl
===================================================================
--- trunk/scripts/vouchers.pl	2008-08-05 16:27:36 UTC (rev 2231)
+++ trunk/scripts/vouchers.pl	2008-08-05 20:55:59 UTC (rev 2232)
@@ -106,6 +106,8 @@
     };
 
     our $form = new Form;
+    our %myconfig = ();
+    %myconfig = %{$request->{_user}};
     our $locale = $request->{_locale};
 
     for (keys %$request){


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.