added angular-strap submodule

[angular-drzb] / migrate-db.pl

diff --git a/migrate-db.pl b/migrate-db.pl
index c91119e..b228eec 100755 (executable)
--- a/migrate-db.pl
+++ b/migrate-db.pl
@@ -8,7 +8,7 @@ use Data::Dump qw(dump);
 my $ua = Mojo::UserAgent->new;
 
 my $from = 'http://10.60.0.95:5984/drzb2013';
-my $to   = 'http://10.60.0.92:5984/drzb2013';
+my $to   = 'http://10.60.0.95:5984/drzb2013v2';
 
 my $docs = $ua->get("$from/_all_docs?include_docs=true")->res->json;
 
@@ -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};
@@ -66,7 +66,7 @@ foreach my $doc ( map { $_->{doc} } @{ $docs->{rows} } ) {
        my $id = $new->{_id} || die "no _id in new";
        my $result = $ua->put("$to/$id" => Mojo::JSON->new->encode( $new ))->res->json;
 
-       die "ERROR $id ",dump($result) unless $result->{ok};
+       die "ERROR $to/$id ",dump($result) unless $result->{ok};
 
        warn "SAVED $id into $to\n";