diff options
author | mark <mark> | 2010-12-14 07:29:13 +0000 |
---|---|---|
committer | mark <mark> | 2010-12-14 07:29:13 +0000 |
commit | f424f11eb366fe64f5f7bb42b21745e22537cab1 (patch) | |
tree | 753152c3f27fb84ef5757fb59d0567ff0eabae2b /FS/FS | |
parent | 93f811c014058da26e734fc621028741b156c5d7 (diff) |
cust_location editing features, RT#10766
Diffstat (limited to 'FS/FS')
-rw-r--r-- | FS/FS/Conf.pm | 7 | ||||
-rw-r--r-- | FS/FS/Schema.pm | 1 | ||||
-rw-r--r-- | FS/FS/cust_location.pm | 69 |
3 files changed, 77 insertions, 0 deletions
diff --git a/FS/FS/Conf.pm b/FS/FS/Conf.pm index a05ad0358..072982ab4 100644 --- a/FS/FS/Conf.pm +++ b/FS/FS/Conf.pm @@ -2689,6 +2689,13 @@ and customer address. Include units.', }, { + 'key' => 'cust_pkg-group_by_location', + 'section' => 'UI', + 'description' => "Group packages by location.", + 'type' => 'checkbox', + }, + + { 'key' => 'cust_pkg-show_fcc_voice_grade_equivalent', 'section' => 'UI', 'description' => "Show a field on package definitions for assigning a DSO equivalency number suitable for use on FCC form 477.", diff --git a/FS/FS/Schema.pm b/FS/FS/Schema.pm index b48e5af8a..253eb6602 100644 --- a/FS/FS/Schema.pm +++ b/FS/FS/Schema.pm @@ -909,6 +909,7 @@ sub tables_hashref { 'location_type', 'varchar', 'NULL', 20, '', '', 'location_number', 'varchar', 'NULL', 20, '', '', 'location_kind', 'char', 'NULL', 1, '', '', + 'disabled', 'char', 'NULL', 1, '', '', ], 'primary_key' => 'locationnum', 'unique' => [], diff --git a/FS/FS/cust_location.pm b/FS/FS/cust_location.pm index ab80941f9..60c0181a3 100644 --- a/FS/FS/cust_location.pm +++ b/FS/FS/cust_location.pm @@ -3,6 +3,7 @@ package FS::cust_location; use strict; use base qw( FS::geocode_Mixin FS::Record ); use Locale::Country; +use FS::UID qw( dbh ); use FS::Record qw( qsearch ); #qsearchs ); use FS::prospect_main; use FS::cust_main; @@ -74,6 +75,10 @@ Country (see L<FS::cust_main_county>) Geocode +=item disabled + +Disabled flag; set to 'Y' to disable the location. + =back =head1 METHODS @@ -192,6 +197,70 @@ city, county, state, zip, country, geocode. =cut +=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; +} + =back =head1 BUGS |