populate open311 meta data in contacts

1 files changed, 8 insertions, 3 deletions

diff --git a/bin/open311-populate-service-list b/bin/open311-populate-service-list
index ddab063f4..7e4411d6b 100755
--- a/bin/open311-populate-service-list
+++ b/bin/open311-populate-service-list
@@ -19,10 +19,8 @@ while ( my $council = $council_list->next ) {
         api_key => $council->api_key
     );
 
-    my $service_list = $open311->get_service_list;
+    my $list = $open311->get_service_list;
 
-    my $xml = XML::Simple->new();
-    my $list = $xml->XMLin( $service_list );
     my @found_contacts;
 
     # print Dumper $list;
@@ -73,6 +71,13 @@ while ( my $council = $council_list->next ) {
                     note => 'created automatically by script',
                 }
             );
+
+            if ( lc( $service->{metadata} ) eq 'true' ) {
+                print "Fetching meta data for $service->{service_code}\n";
+                my $meta_data = $open311->get_service_meta_info( $service->{service_code} );
+                $contact->extra( $meta_data );
+                $contact->update;
+            }
             print "created contact for service code " . $service->{service_code} . " for council @{[$council->area_id]}\n";
         }
     }