NULL dates istead of 0000-00-00

diff --git a/ferlib2koha.pl b/ferlib2koha.pl
index a3abc3b..a2bfbbb 100755 (executable)
--- a/ferlib2koha.pl
+++ b/ferlib2koha.pl
@@ -56,7 +56,7 @@ sub insert {
        );
 
        foreach my $c ( grep { /(date|timestamp)/ } keys %$row ) {
-               $row->{$c} =~ s/^(\d\d)\.(\d\d)\.(\d\d\d\d)/$3-$2-$1/;
+               $row->{$c} =~ s/^(\d\d)\.(\d\d)\.(\d\d\d\d)/$3-$2-$1/ or $row->{$c} = undef; # XXX NULL dates istead of 0000-00-00
        }
 
        $insert->{$table}->execute( values %$row );