X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fdid_order.pm;h=1479565b158b91458998e5707b4d2da5b8b34864;hp=6b199a969f686dab4991aa3734d82bef3af6655b;hb=8d0e8149e7b19ad8543ac6c8c663be63dbc34762;hpb=0fb307c305e4bc2c9c27dc25a3308beae3a4d33c diff --git a/FS/FS/did_order.pm b/FS/FS/did_order.pm index 6b199a969..1479565b1 100644 --- a/FS/FS/did_order.pm +++ b/FS/FS/did_order.pm @@ -1,8 +1,8 @@ package FS::did_order; +use base qw( FS::o2m_Common FS::Record ); use strict; -use base qw( FS::Record ); -use FS::Record qw( qsearch qsearchs ); +use FS::Record qw( qsearch qsearchs dbh ); =head1 NAME @@ -42,26 +42,6 @@ vendornum vendor_order_id -=item msa - -msa - -=item latanum - -latanum - -=item rate_center - -rate_center - -=item state - -state - -=item quantity - -quantity - =item submitted submitted @@ -109,7 +89,130 @@ Delete this record from the database. =cut -# the delete method can be inherited from FS::Record +sub delete { + my $self = shift; + + return "Can't delete a DID order which has DIDs received" + if qsearch( 'phone_avail', { 'ordernum' => $self->ordernum } ); + + 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 @did_order_item = $self->did_order_item; + + foreach my $did_order_item ( @did_order_item ) { + my $error = $did_order_item->delete; + if ( $error ) { + $dbh->rollback if $oldAutoCommit; + return "can't delete DID order item " + . $did_order_item->orderitemnum . ": $error"; + } + } + + my $error = $self->SUPER::delete(@_); + if ( $error ) { + $dbh->rollback if $oldAutoCommit; + return $error; + } + + $dbh->commit or die $dbh->errstr if $oldAutoCommit; + + ''; +} + +=item merge SOURCE_ORDER + +Merges the DID order given by SOURCE_ORDER into THIS order. + +The following fields from the source order are transferred, only if they aren't +set in this order: +-vendor order # +-confirmed +-customer + +DID order items are transferred into this order. Per-order customer is cleared +if any order items are assigned to a customer. + +The source order is deleted. + +The operation fails if: +-either order has a received time; or +-the DID vendors do not match between the orders + +=cut + +sub merge { + my $self = shift; + my $src = shift; + return "invalid source order" unless $src; + + return "DIDs received for either order" + if $src->received || $self->received; + + return "DID vendors do not match" + if $src->vendornum != $self->vendornum; + + 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 @move_if_unset = qw( vendor_order_id confirmed custnum ); + foreach my $f ( @move_if_unset ) { + $self->$f($src->$f) if !$self->$f; + } + + my $error = ''; + my $item_has_cust = 0; + my @did_order_item = $src->did_order_item; + foreach my $did_order_item ( @did_order_item ) { + $did_order_item->ordernum($self->ordernum); + $item_has_cust = 1 if $did_order_item->custnum; + $error = $did_order_item->replace; + if ( $error ) { + $dbh->rollback if $oldAutoCommit; + return "can't replace did order item " + . $did_order_item->orderitemnum . ": $error"; + } + } + + @did_order_item = $self->did_order_item; + foreach my $did_order_item ( @did_order_item ) { + $item_has_cust = 1 if $did_order_item->custnum; + } + + $self->custnum('') if $item_has_cust; + + $error = $src->delete; + if ( $error ) { + $dbh->rollback if $oldAutoCommit; + return "can't delete source order: $error"; + } + + $error = $self->replace; + if ( $error ) { + $dbh->rollback if $oldAutoCommit; + return "can't replace target order: $error"; + } + + $dbh->commit or die $dbh->errstr if $oldAutoCommit; + + ''; +} =item replace OLD_RECORD @@ -137,12 +240,7 @@ sub check { my $error = $self->ut_numbern('ordernum') || $self->ut_foreign_key('vendornum', 'did_vendor', 'vendornum' ) - || $self->ut_text('vendor_order_id') - || $self->ut_textn('msa') - || $self->ut_foreign_keyn('latanum', 'lata', 'latanum') - || $self->ut_textn('rate_center') - || $self->ut_textn('state') - || $self->ut_number('quantity') + || $self->ut_textn('vendor_order_id') || $self->ut_number('submitted') || $self->ut_numbern('confirmed') || $self->ut_numbern('received') @@ -152,9 +250,70 @@ sub check { $self->SUPER::check; } -=back +=item did_order_item + +Returns the did_order_items (see L) associated with this bulk DID order. + +=item cust_main + +Returns all cust_main (see L), if any, associated with this +bulk DID order. + +=cut + +sub cust_main { + my $self = shift; + my @did_order_item = $self->did_order_item; + my @custnums; + push @custnums, $self->custnum if $self->custnum; + foreach my $did_order_item ( @did_order_item ) { + push @custnums, $did_order_item->custnum if $did_order_item->custnum; + } + my @cust_main; + foreach my $custnum ( @custnums ) { + push @cust_main, qsearchs('cust_main', { 'custnum' => $custnum } ); + } + @cust_main; +} + + +=item has_stock + +Returns true if and only if the order has any stock order items. -=head1 BUGS +=cut + +sub has_stock { + my $self = shift; + my $items_with_custnum = 0; + my @did_order_item = $self->did_order_item; + foreach my $did_order_item ( @did_order_item ) { + $items_with_custnum++ if $did_order_item->custnum; + } + + return 0 if ($items_with_custnum == scalar(@did_order_item) + && $items_with_custnum != 0 && !$self->custnum) + || $self->custnum; + 1; +} + + +=item provisioned + +Returns the provisioned DIDs, if any, as phone_avail (see L) objects. + +=cut + +sub provisioned { + my $self = shift; + qsearch({ table => 'phone_avail', + hashref => { 'ordernum' => $self->ordernum, }, + select => 'phone_avail.*', + extra_sql => ' and svcnum is not null ', + }); +} + +=back =head1 SEE ALSO