correct case of id

[angular-drzb] / migrate-db.pl

diff --git a/migrate-db.pl b/migrate-db.pl
index c91119e..a630d08 100755 (executable)
--- a/migrate-db.pl
+++ b/migrate-db.pl
@@ -19,12 +19,12 @@ foreach my $doc ( map { $_->{doc} } @{ $docs->{rows} } ) {
 
        my $new;
 
-       $new->{$_} = delete( $doc->{$_} ) foreach ( qw( _id _rev ) );
+       $new->{$_} = lc( delete( $doc->{$_} ) ) foreach ( qw( _id _rev ) );
 
        $new->{user} = delete $doc->{person};
        $new->{id}   = delete $doc->{'$id'};
 
-       $new->{user}->{registration_type} = delete $doc->{type};
+       $new->{user}->{registration_type} = delete $doc->{type} || die;
 
        $new->{user}->{address}   = delete $new->{user}->{address1};
        $new->{user}->{firstname} = delete $new->{user}->{name};