1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
#!/usr/bin/perl
use strict;
use warnings;
use FS::UID qw( adminsuidsetup dbh );
use FS::Record qw( qsearch );
use FS::cust_main_county;
adminsuidsetup shift or die "Usage: copy-cust_main_county username\n";
my $from_state = 'XX'; #XXX
$FS::UID::AutoCommit = 0;
my @from_cust_main_county = qsearch({
'table' => 'cust_main_county',
'hashref' => { 'state' => $from_state,
'country' => 'US',
},
'extra_sql' => "AND taxname LIKE 'FED%'",
});
#select distinct state from cust_main_county where country = 'US'
#and then exclude the one other state?
#my @to_states = ();
#no, just find the target records directly. there should be one per state?
my @to_cust_main_county = qsearchs({
'table' => 'cust_main_county',
'hashref' => { 'taxclass' => '',
'country' => 'US',
'taxname' => '',
'tax' => 0,
},
});
foreach my $to_cust_main_county (@to_cust_main_county) {
foreach my $from_cust_main_county (@from_cust_main_county) {
my $new = new FS::cust_main_county {
'state' => $to_cust_main_county->state,
'country' => 'US',
map { $_ => $from_cust_main_county->$_ }
qw( tax taxclass taxname setuptax recurtax ),
};
my $error = $new->insert;
if ( $error ) {
dbh->rollback;
die $error;
}
}
my $error = $to_cust_main_county->delete;
if ( $error ) {
dbh->rollback;
die $error;
}
}
dbh->rollback or die dbh->errstr;
#dbh->commit or die dbh->errstr;
1;
|
