diff options
| -rw-r--r-- | LedgerSMB/Form.pm | 3 | ||||
| -rw-r--r-- | 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){ |