projects
/
angular-drzb
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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;
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} = 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};
$new->{user}->{address} = delete $new->{user}->{address1};
$new->{user}->{firstname} = delete $new->{user}->{name};