self-service improvements: DIDs, RT10885

2 files changed, 21 insertions, 0 deletions

diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm
index e62d9a466..8ca38ab1f 100644
--- a/FS/FS/ClientAPI/MyAccount.pm
+++ b/FS/FS/ClientAPI/MyAccount.pm
@@ -1532,6 +1532,20 @@ sub alter_pkg {
 
 }
 
+sub provision_phone {
+ my $p = shift;
+ my @bulkdid = @{$p->{'bulkdid'}};
+ unless (scalar(@bulkdid)) {
+    return _provision( 'FS::svc_phone',
+		  [qw(phonenum countrycode)],
+		  [qw(phonenum countrycode)],
+		  $p,
+		  @_
+		);
+ }
+#XXX: finish bulk orders
+}
+
 sub provision_acct {
   my $p = shift;
   warn "provision_acct called\n"
diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm
index e3f4777aa..1b8696d2a 100644
--- a/FS/FS/cust_pkg.pm
+++ b/FS/FS/cust_pkg.pm
@@ -1728,6 +1728,13 @@ sub available_part_svc {
           my $part_svc = $_->part_svc;
           $part_svc->{'Hash'}{'num_avail'} = #evil encapsulation-breaking
             $_->quantity - $self->num_cust_svc($_->svcpart);
+
+	  # more evil encapsulation breakage
+	  if($part_svc->{'Hash'}{'num_avail'} > 0) {
+	    my @exports = $part_svc->part_export_did;
+	    $part_svc->{'Hash'}{'can_get_dids'} = scalar(@exports);
+	  }
+
           $part_svc;
         }
       $self->part_pkg->pkg_svc;