[freeside-commits] freeside/FS/FS/ClientAPI MyAccount.pm, 1.121, 1.122
Erik Levinson
levinse at wavetail.420.am
Tue Dec 21 15:44:56 PST 2010
Update of /home/cvs/cvsroot/freeside/FS/FS/ClientAPI
In directory wavetail.420.am:/tmp/cvs-serv18279/FS/FS/ClientAPI
Modified Files:
MyAccount.pm
Log Message:
self-service improvements: DIDs, RT10885; re-do all of my changes which were undone by Mark
Index: MyAccount.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/ClientAPI/MyAccount.pm,v
retrieving revision 1.121
retrieving revision 1.122
diff -u -w -d -r1.121 -r1.122
--- MyAccount.pm 21 Dec 2010 09:12:45 -0000 1.121
+++ MyAccount.pm 21 Dec 2010 23:44:54 -0000 1.122
@@ -1577,7 +1577,25 @@
@_
);
}
-#XXX: finish bulk orders
+
+# bulk case
+ my $error;
+ foreach my $did ( @bulkdid ) {
+ $did =~ s/[^0-9]//g;
+ $error = _provision( 'FS::svc_phone',
+ [qw(phonenum countrycode)],
+ [qw(phonenum countrycode)],
+ {
+ 'pkgnum' => $p->{'pkgnum'},
+ 'svcpart' => $p->{'svcpart'},
+ 'phonenum' => $did,
+ 'countrycode' => $p->{'countrycode'},
+ 'session_id' => $p->{'session_id'},
+ }
+ );
+ return $error if ($error->{'error'} && length($error->{'error'}) > 1);
+ }
+ { 'bulkdid' => [ @bulkdid ], 'svc' => $error->{'svc'} }
}
sub provision_acct {
More information about the freeside-commits
mailing list