package FS::did_order;
use strict;
-use base qw( FS::Record );
-use FS::Record qw( qsearch qsearchs );
+use base qw( FS::o2m_Common FS::Record );
+use FS::Record qw( qsearch qsearchs dbh );
=head1 NAME
vendor_order_id
-=item msa
-
-msa
-
-=item latanum
-
-latanum
-
-=item rate_center
-
-rate_center
-
-=item state
-
-state
-
-=item quantity
-
-quantity
-
=item submitted
submitted
=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
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')
$self->SUPER::check;
}
-=back
+=item did_order_item
+
+Returns the did_order_items (see L<FS::did_order_item>) associated with this bulk DID order.
+
+=cut
+
+sub did_order_item {
+ my $self = shift;
+ qsearch( 'did_order_item', { 'ordernum' => $self->ordernum } );
+}
+
+=item cust_main
+
+Returns all cust_main (see L<FS::cust_main>), 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;
+}
+
-=head1 BUGS
+=item has_stock
+
+Returns true if and only if the order has any stock order items.
+
+=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<FS::phone_avail>) 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