bin/svc_broadband.reset_coords

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use Text::CSV_XS;
   5 use FS::UID qw( adminsuidsetup );
   6 use FS::Record qw( qsearch );
   7 use FS::svc_broadband;
   8
   9 my $user = shift or die &usage;
  10 adminsuidsetup $user;
  11
  12 foreach my $svc_broadband (
  13   qsearch({
  14     'table'     => 'svc_broadband',
  15     'hashref'   => {},
  16     #'extra_sql' => 'WHERE latitude IS NOT NULL OR longitude IS NOT NULL',
  17   })
  18 ) {
  19   $svc_broadband->latitude('');
  20   $svc_broadband->longitude('');
  21   my $error = $svc_broadband->replace;
  22   die $error if $error;
  23 }
  24
  25 sub usage {
  26   "Usage:
  27   svc_broadband.reset_coords user
  28 ";
  29 }
  30
  31 1;