diff options
Diffstat (limited to 'FS/FS/cust_tax_location.pm')
-rw-r--r-- | FS/FS/cust_tax_location.pm | 208 |
1 files changed, 208 insertions, 0 deletions
diff --git a/FS/FS/cust_tax_location.pm b/FS/FS/cust_tax_location.pm new file mode 100644 index 000000000..11faa3f1f --- /dev/null +++ b/FS/FS/cust_tax_location.pm @@ -0,0 +1,208 @@ +package FS::cust_tax_location; + +use strict; +use vars qw( @ISA ); +use FS::Record qw( qsearch qsearchs dbh ); + +@ISA = qw(FS::Record); + +=head1 NAME + +FS::cust_tax_location - Object methods for cust_tax_location records + +=head1 SYNOPSIS + + use FS::cust_tax_location; + + $record = new FS::cust_tax_location \%hash; + $record = new FS::cust_tax_location { 'column' => 'value' }; + + $error = $record->insert; + + $error = $new_record->replace($old_record); + + $error = $record->delete; + + $error = $record->check; + +=head1 DESCRIPTION + +An FS::cust_tax_location object represents a mapping between a customer and +a tax location. FS::cust_tax_location inherits from FS::Record. The +following fields are currently supported: + +=over 4 + +=item custlocationnum + +primary key + +=item data_vendor + +a tax data vendor + +=item zip + +=item state + +=item plus4hi + +the upper bound of the last 4 zip code digits + +=item plus4lo + +the lower bound of the last 4 zip code digits + +=item default_location + +'Y' when this record represents the default for zip + +=item geocode - the foreign key into FS::part_pkg_tax_rate and FS::tax_rate + + +=back + +=head1 METHODS + +=over 4 + +=item new HASHREF + +Creates a new cust_tax_location. To add the cust_tax_location to the database, +see L<"insert">. + +Note that this stores the hash reference, not a distinct copy of the hash it +points to. You can ask the object for a copy with the I<hash> method. + +=cut + +sub table { 'cust_tax_location'; } + +=item insert + +Adds this record to the database. If there is an error, returns the error, +otherwise returns false. + +=cut + +=item delete + +Delete this record from the database. + +=cut + +=item replace OLD_RECORD + +Replaces the OLD_RECORD with this one in the database. If there is an error, +returns the error, otherwise returns false. + +=cut + +=item check + +Checks all fields to make sure this is a valid cust_tax_location. If there is +an error, returns the error, otherwise returns false. Called by the insert +and replace methods. + +=cut + +sub check { + my $self = shift; + + my $error = + $self->ut_numbern('custlocationnum') + || $self->ut_text('data_vendor') + || $self->ut_number('zip') + || $self->ut_text('state') + || $self->ut_number('plus4hi') + || $self->ut_number('plus4lo') + || $self->ut_enum('default', [ '', ' ', 'Y' ] ) + || $self->ut_number('geocode') + ; + return $error if $error; + + $self->SUPER::check; +} + + +sub batch_import { + my $param = shift; + + my $fh = $param->{filehandle}; + my $format = $param->{'format'}; + + my @fields; + if ( $format eq 'cch' ) { + @fields = qw( zip state plus4lo plus4hi geocode default ); + } elsif ( $format eq 'extended' ) { + die "unimplemented\n"; + @fields = qw( ); + } else { + die "unknown format $format"; + } + + eval "use Text::CSV_XS;"; + die $@ if $@; + + my $csv = new Text::CSV_XS; + + my $imported = 0; + + local $SIG{HUP} = 'IGNORE'; + local $SIG{INT} = 'IGNORE'; + local $SIG{QUIT} = 'IGNORE'; + local $SIG{TERM} = 'IGNORE'; + local $SIG{TSTP} = 'IGNORE'; + local $SIG{PIPE} = 'IGNORE'; + + my $oldAutoCommit = $FS::UID::AutoCommit; + local $FS::UID::AutoCommit = 0; + my $dbh = dbh; + + my $line; + while ( defined($line=<$fh>) ) { + $csv->parse($line) or do { + $dbh->rollback if $oldAutoCommit; + return "can't parse: ". $csv->error_input(); + }; + + my @columns = $csv->fields(); + + my %cust_tax_location = ( 'data_vendor' => $format );; + foreach my $field ( @fields ) { + $cust_tax_location{$field} = shift @columns; + } + + my $cust_tax_location = new FS::cust_tax_location( \%cust_tax_location ); + my $error = $cust_tax_location->insert; + + if ( $error ) { + $dbh->rollback if $oldAutoCommit; + return "can't insert cust_tax_location for $line: $error"; + } + + $imported++; + } + + $dbh->commit or die $dbh->errstr if $oldAutoCommit; + + return "Empty file!" unless $imported; + + ''; #no error + +} + +=back + +=head1 BUGS + +The author should be informed of any you find. + +=head1 SEE ALSO + +L<FS::Record>, schema.html from the base documentation. + +=cut + +1; + |