+#!/usr/bin/perl
+
+use strict;
+use Text::CSV_XS;
+use FS::UID qw( adminsuidsetup );
+use FS::Record qw( qsearch );
+use FS::svc_broadband;
+
+my $user = shift or die &usage;
+adminsuidsetup $user;
+
+foreach my $svc_broadband (
+ qsearch({
+ 'table' => 'svc_broadband',
+ 'hashref' => {},
+ #'extra_sql' => 'WHERE latitude IS NOT NULL OR longitude IS NOT NULL',
+ })
+) {
+ $svc_broadband->latitude('');
+ $svc_broadband->longitude('');
+ my $error = $svc_broadband->replace;
+ die $error if $error;
+}
+
+sub usage {
+ "Usage:
+ svc_broadband.reset_coords user
+";
+}
+
+1;