diff options
| -rwxr-xr-x | bin/open311-populate-service-list | 11 | ||||
| -rw-r--r-- | perllib/Open311.pm | 8 |
2 files changed, 16 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"; } } diff --git a/perllib/Open311.pm b/perllib/Open311.pm index 4d29753a2..b7328bc93 100644 --- a/perllib/Open311.pm +++ b/perllib/Open311.pm @@ -15,6 +15,10 @@ sub get_service_list { my $self = shift; my $service_list_xml = $self->_get( 'services.xml' ); + my $xml = XML::Simple->new(); + my $obj = $xml->XMLin( $service_list_xml ); + + return $obj; } sub get_service_meta_info { @@ -22,6 +26,10 @@ sub get_service_meta_info { my $service_id = shift; my $service_meta_xml = $self->_get( "services/$service_id.xml" ); + my $xml = XML::Simple->new(); + my $obj = $xml->XMLin( $service_meta_xml ); + + return $obj; } sub send_service_request { |