From 46e04077cc22ff9d31e8e9896cbf97e31f1b0e7d Mon Sep 17 00:00:00 2001
From: levinse <levinse>
Date: Tue, 21 Dec 2010 06:26:12 +0000
Subject: self-service improvements: DIDs, RT10885

---
 FS/FS/ClientAPI/MyAccount.pm | 14 ++++++++++++++
 FS/FS/cust_pkg.pm            |  7 +++++++
 2 files changed, 21 insertions(+)

(limited to 'FS')

diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm
index f6a71cd9b..e41fe7d56 100644
--- a/FS/FS/ClientAPI/MyAccount.pm
+++ b/FS/FS/ClientAPI/MyAccount.pm
@@ -1548,6 +1548,20 @@ sub cancel_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 b97bc93a1..5bb07d4ff 100644
--- a/FS/FS/cust_pkg.pm
+++ b/FS/FS/cust_pkg.pm
@@ -1746,6 +1746,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;
-- 
cgit v1.2.1