+=item set_coord [ PREFIX ]
+
+Look up the coordinates of the location using (currently) the Google Maps
+API and set the 'latitude' and 'longitude' fields accordingly.
+
+PREFIX, if specified, will be prepended to all location field names,
+including latitude and longitude.
+
+=cut
+
+sub set_coord {
+ my $self = shift;
+ my $pre = scalar(@_) ? shift : '';
+
+ #my $module = FS::Conf->new->config('geocode_module') || 'Geo::Coder::Googlev3';
+
+ my $geocoder = Geo::Coder::Googlev3->new;
+
+ my $location = eval {
+ $geocoder->geocode( location =>
+ $self->get($pre.'address1'). ','.
+ ( $self->get($pre.'address2') ? $self->get($pre.'address2').',' : '' ).
+ $self->get($pre.'city'). ','.
+ $self->get($pre.'state'). ','.
+ code2country($self->get($pre.'country'))
+ );
+ };
+ if ( $@ ) {
+ warn "geocoding error: $@\n";
+ return;
+ }
+
+ my $geo_loc = $location->{'geometry'}{'location'} or return;
+ if ( $geo_loc->{'lat'} && $geo_loc->{'lng'} ) {
+ $self->set($pre.'latitude', $geo_loc->{'lat'} );
+ $self->set($pre.'longitude', $geo_loc->{'lng'} );
+ $self->set($pre.'coord_auto', 'Y');
+ }
+
+}
+