3 use FS::UID 'adminsuidsetup';
4 use FS::Record qw(dbh qsearch qsearchs);
9 adminsuidsetup('ivan');
10 $FS::UID::AutoCommit = 0;
11 my @location = ( geocode => { op => 'like', value => '24%' } );
13 # convert TELECOMM RELAY SYSTEMS SURCHARGE:CENTREX LINES
14 # to TELECOMM RELAY SYSTEMS SURCHARGE:TELECOMMUNICATIONS
15 my $old_taxclassnum = qsearchs('tax_class', { 'taxclass' => '09:35' })->taxclassnum;
16 my $new_taxclassnum = qsearchs('tax_class', { 'taxclass' => '09:00' })->taxclassnum;
19 my @bindings = qsearch('part_pkg_taxrate', {
20 'taxclassnum' => $old_taxclassnum,
23 print "remapping ".scalar(@bindings)." tax rate bindings.\n";
24 foreach my $part_pkg_taxrate (@bindings) {
25 $part_pkg_taxrate->set('taxclassnum', $new_taxclassnum);
26 $error = $part_pkg_taxrate->replace;
27 die $part_pkg_taxrate->pkgtaxratenum .": $error" if $error;
30 # change the fee to 0.05.
31 my @tax_rates = qsearch('tax_rate', {
32 taxclassnum => $new_taxclassnum,
35 print "changing rate on ".scalar(@tax_rates)." tax rate definitions.\n";
36 foreach my $tax_rate (@tax_rates) {
37 $tax_rate->set('fee', 0.05);
38 my $error = $tax_rate->replace;
39 die $tax_rate->taxnum . ": $error\n" if $error;