improvements to bulk DID orders, RT11291

[freeside.git] / FS / FS / did_order.pm

diff --git a/FS/FS/did_order.pm b/FS/FS/did_order.pm
index f46d72b..adc965f 100644 (file)
--- a/FS/FS/did_order.pm
+++ b/FS/FS/did_order.pm
@@ -138,6 +138,17 @@ sub did_order_item {
   qsearch( 'did_order_item', { 'ordernum' => $self->ordernum } );
 }
 
+=item cust_main
+
+Returns the cust_main (see L<FS::cust_main>), if any, associated with this bulk DID order.
+
+=cut
+
+sub cust_main {
+  my $self = shift;
+  return '' unless $self->custnum;
+  qsearchs('cust_main', { 'custnum' => $self->custnum } );
+}
 
 =back