X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_location.pm;h=7ffa5ed411263e353c19b993d92498212b55e68c;hb=5af515ac6bdc6ff88860c618207660eac48c276a;hp=3a9cc7f972c94230bd5de371784fb9a37d494684;hpb=40a7b3dc653e099f7bd0bd762b649b04c4432db2;p=freeside.git diff --git a/FS/FS/cust_location.pm b/FS/FS/cust_location.pm index 3a9cc7f97..7ffa5ed41 100644 --- a/FS/FS/cust_location.pm +++ b/FS/FS/cust_location.pm @@ -1,9 +1,12 @@ package FS::cust_location; use strict; -use base qw( FS::Record ); +use base qw( FS::geocode_Mixin FS::Record ); use Locale::Country; +use FS::UID qw( dbh ); use FS::Record qw( qsearch ); #qsearchs ); +use FS::Conf; +use FS::prospect_main; use FS::cust_main; use FS::cust_main_county; @@ -73,6 +76,10 @@ Country (see L) Geocode +=item disabled + +Disabled flag; set to 'Y' to disable the location. + =back =head1 METHODS @@ -119,7 +126,8 @@ sub check { my $error = $self->ut_numbern('locationnum') - || $self->ut_foreign_key('custnum', 'cust_main', 'custnum') + || $self->ut_foreign_keyn('prospectnum', 'prospect_main', 'prospectnum') + || $self->ut_foreign_keyn('custnum', 'cust_main', 'custnum') || $self->ut_text('address1') || $self->ut_textn('address2') || $self->ut_text('city') @@ -127,10 +135,22 @@ sub check { || $self->ut_textn('state') || $self->ut_country('country') || $self->ut_zip('zip', $self->country) + || $self->ut_alphan('location_type') + || $self->ut_textn('location_number') + || $self->ut_enum('location_kind', [ '', 'R', 'B' ] ) || $self->ut_alphan('geocode') ; return $error if $error; + return "No prospect or customer!" unless $self->prospectnum || $self->custnum; + return "Prospect and customer!" if $self->prospectnum && $self->custnum; + + my $conf = new FS::Conf; + return 'Location kind is required' + if $self->prospectnum + && $conf->exists('prospect_main-alt_address_format') + && ! $self->location_kind; + unless ( qsearch('cust_main_county', { 'country' => $self->country, 'state' => '', @@ -160,56 +180,174 @@ sub country_full { =item line -Returns this location on one line +Synonym for location_label =cut sub line { my $self = shift; - my $cydefault = FS::conf->new->config('countrydefault') || 'US'; + $self->location_label; +} + +=item has_ship_address - my $line = $self->address1; - $line .= ', '. $self->address2 if $self->address2; - $line .= ', '. $self->city; - $line .= ' ('. $self->county. ' county)' if $self->county; - $line .= ', '. $self->state if $self->state; - $line .= ' '. $self->zip if $self->zip; - $line .= ' '. code2country($self->country) if $self->country ne $cydefault; +Returns false since cust_location objects do not have a separate shipping +address. + +=cut - $line; +sub has_ship_address { + ''; } -=item line_short +=item location_hash -Returns this location on one line in a shortened form +Returns a list of key/value pairs, with the following keys: address1, address2, +city, county, state, zip, country, geocode, location_type, location_number, +location_kind. =cut -# configurable? +=item move_to HASHREF + +Takes a hashref with one or more cust_location fields. Creates a duplicate +of the existing location with all fields set to the values in the hashref. +Moves all packages that use the existing location to the new one, then sets +the "disabled" flag on the old location. Returns nothing on success, an +error message on error. + +=cut + +sub move_to { + my $old = shift; + my $hashref = shift; + + 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 $error = ''; + + my $new = FS::cust_location->new({ + $old->location_hash, + 'custnum' => $old->custnum, + 'prospectnum' => $old->prospectnum, + %$hashref + }); + $error = $new->insert; + if ( $error ) { + $dbh->rollback if $oldAutoCommit; + return "Error creating location: $error"; + } + + my @pkgs = qsearch('cust_pkg', { + 'locationnum' => $old->locationnum, + 'cancel' => '' + }); + foreach my $cust_pkg (@pkgs) { + $error = $cust_pkg->change( + 'locationnum' => $new->locationnum, + 'keep_dates' => 1 + ); + if ( $error and not ref($error) ) { + $dbh->rollback if $oldAutoCommit; + return "Error moving pkgnum ".$cust_pkg->pkgnum.": $error"; + } + } + + $old->disabled('Y'); + $error = $old->replace; + if ( $error ) { + $dbh->rollback if $oldAutoCommit; + return "Error disabling old location: $error"; + } + + $dbh->commit if $oldAutoCommit; + return; +} + +=item alternize + +Attempts to parse data for location_type and location_number from address1 +and address2. + +=cut -sub line_short { +sub alternize { my $self = shift; - my $cydefault = FS::conf->new->config('countrydefault') || 'US'; - my $line = $self->address1; - #$line .= ', '. $self->address2 if $self->address2; - $line .= ', '. $self->city; - $line .= ', '. $self->state if $self->state; - $line .= ' '. $self->zip if $self->zip; - $line .= ' '. code2country($self->country) if $self->country ne $cydefault; + return '' if $self->get('location_type') + || $self->get('location_number'); + + my %parse; + if ( 1 ) { #ikano, switch on via config + { no warnings 'void'; + eval { 'use FS::part_export::ikano;' }; + die $@ if $@; + } + %parse = FS::part_export::ikano->location_types_parse; + } else { + %parse = (); #? + } + + foreach my $from ('address1', 'address2') { + foreach my $parse ( keys %parse ) { + my $value = $self->get($from); + if ( $value =~ s/(^|\W+)$parse\W+(\w+)\W*$//i ) { + $self->set('location_type', $parse{$parse}); + $self->set('location_number', $2); + $self->set($from, $value); + return ''; + } + } + } - $line; + #nothing matched, no changes + $self->get('address2') + ? "Can't parse unit type and number from address2" + : ''; } -=item location_label_short +=item dealternize -Synonym for line_short +Moves data from location_type and location_number to the end of address1. =cut -sub location_label_short { +sub dealternize { my $self = shift; - $self->line_short; + + #false laziness w/geocode_Mixin.pm::line + my $lt = $self->get('location_type'); + if ( $lt ) { + + my %location_type; + if ( 1 ) { #ikano, switch on via config + { no warnings 'void'; + eval { 'use FS::part_export::ikano;' }; + die $@ if $@; + } + %location_type = FS::part_export::ikano->location_types; + } else { + %location_type = (); #? + } + + $self->address1( $self->address1. ' '. $location_type{$lt} || $lt ); + $self->location_type(''); + } + + if ( length($self->location_number) ) { + $self->address1( $self->address1. ' '. $self->location_number ); + $self->location_number(''); + } + + ''; } =back