invoice and quotation borders
[freeside.git] / bin / svc_phone-bulk_delete
1 #!/usr/bin/perl -w
2
3 use strict;
4 use DBIx::Profile;
5 use FS::UID qw( adminsuidsetup );
6 use FS::Record qw( qsearch );
7 use FS::svc_phone;
8
9 my $user = shift or die &usage;
10 my $dbh = adminsuidsetup($user);
11
12 #my $pkgnum = shift or die &usage;
13 #my $svcpart = shift or die &usage;
14
15 my @svc_phone = qsearch( {
16   'table'   => 'svc_phone',
17   'hashref' => { 'phonenum' => { op=>'LIKE', value=>'3125%', } },
18 });
19
20 my $num = 0;
21
22 foreach my $svc_phone ( @svc_phone ) {
23   my $error = $svc_phone->delete;
24   die $error if $error;
25   #last if $num++ > 54;
26 }
27
28
29 print "\n";
30 print $dbh->sprintProfile;
31
32 sub usage {
33   die "Usage:\n svc_phone-bulk_delete user\n";
34 }
35
36 1;