import torrus 1.0.9
[freeside.git] / FS / FS / svc_phone.pm
index a0a2c3e..b61a93d 100644 (file)
@@ -13,6 +13,7 @@ use FS::phone_device;
 use FS::svc_pbx;
 use FS::svc_domain;
 use FS::cust_location;
+use FS::phone_avail;
 
 $me = '[' . __PACKAGE__ . ']';
 $DEBUG = 0;
@@ -96,19 +97,21 @@ points to.  You can ask the object for a copy with the I<hash> method.
 # the new method can be inherited from FS::Record, if a table method is defined
 #
 sub table_info {
+ my %dis2 = ( disable_inventory=>1, disable_select=>1 );
   {
     'name' => 'Phone number',
     'sorts' => 'phonenum',
     'display_weight' => 60,
     'cancel_weight'  => 80,
     'fields' => {
+        'svcnum'       => 'Service',
         'countrycode'  => { label => 'Country code',
                             type  => 'text',
                             disable_inventory => 1,
                             disable_select => 1,
                           },
         'phonenum'     => 'Phone number',
-        'pin'          => { label => 'Personal Identification Number',
+        'pin'          => { label => 'Voicemail PIN', #'Personal Identification Number',
                             type  => 'text',
                             disable_inventory => 1,
                             disable_select => 1,
@@ -133,6 +136,26 @@ sub table_info {
                            disable_inventory => 1,
                            disable_select    => 1,
                          },
+       'lnp_status' => {       label => 'LNP Status',
+                               type => 'select-lnp_status.html',
+                               %dis2,
+                       },
+       'portable' =>   {       label => 'Portable?', %dis2, },
+       'lrn'   =>      {       label => 'LRN', 
+                               disable_inventory => 1, 
+                       },
+       'lnp_desired_due_date' =>
+                       { label => 'LNP Desired Due Date', %dis2 },
+       'lnp_due_date' =>
+                       { label => 'LNP Due Date', %dis2 },
+       'lnp_other_provider' =>
+                       {       label => 'LNP Other Provider', 
+                               disable_inventory => 1, 
+                       },
+       'lnp_other_provider_account' =>
+                       {       label => 'LNP Other Provider Account #', 
+                               %dis2 
+                       },
     },
   };
 }
@@ -262,6 +285,16 @@ sub delete {
     }
   }
 
+  my @phone_avail = qsearch('phone_avail', { 'svcnum' => $self->svcnum } );
+  foreach my $phone_avail ( @phone_avail ) {
+    $phone_avail->svcnum('');
+    my $error = $phone_avail->replace;
+    if ( $error ) {
+      $dbh->rollback if $oldAutoCommit;
+      return $error;
+    }
+  }
+
   my $error = $self->SUPER::delete;
   if ( $error ) {
     $dbh->rollback if $oldAutoCommit;
@@ -381,6 +414,13 @@ sub check {
     || $self->ut_foreign_keyn('pbxsvc', 'svc_pbx',    'svcnum' )
     || $self->ut_foreign_keyn('domsvc', 'svc_domain', 'svcnum' )
     || $self->ut_foreign_keyn('locationnum', 'cust_location', 'locationnum')
+    || $self->ut_numbern('lrn')
+    || $self->ut_numbern('lnp_desired_due_date')
+    || $self->ut_numbern('lnp_due_date')
+    || $self->ut_textn('lnp_other_provider')
+    || $self->ut_textn('lnp_other_provider_account')
+    || $self->ut_enumn('lnp_status', ['','portingin','portingout','portedin','native'])
+    || $self->ut_enumn('portable', ['','Y'])
   ;
   return $error if $error;
 
@@ -547,6 +587,8 @@ with the chosen prefix.
 
 =item disable_src => 1: Only match on "charged_party", not "src".
 
+=item by_svcnum: not supported for svc_phone
+
 =back
 
 =cut