From ac0c752be3db148de89205e5464f45f0d2d9dfce Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Fri, 4 Jan 2013 18:37:22 +0100 Subject: [PATCH] correct case of id --- migrate-db.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/migrate-db.pl b/migrate-db.pl index c91119e..a630d08 100755 --- 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}; -- 2.20.1