diff options
author | levinse <levinse> | 2011-01-31 06:30:36 +0000 |
---|---|---|
committer | levinse <levinse> | 2011-01-31 06:30:36 +0000 |
commit | ec681a87b33fe272276f367aea4da3ed4d689605 (patch) | |
tree | 238542a56494a3d9e8ef4d1e7766db77f06822bb /FS/FS/ClientAPI | |
parent | df6a0d9c94240a8d10a9ab02161beab92e8577e4 (diff) |
torrus various changes, RT10574
Diffstat (limited to 'FS/FS/ClientAPI')
-rw-r--r-- | FS/FS/ClientAPI/MyAccount.pm | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm index c82d370..be1146e 100644 --- a/FS/FS/ClientAPI/MyAccount.pm +++ b/FS/FS/ClientAPI/MyAccount.pm @@ -1084,9 +1084,12 @@ sub list_svcs { #@svc_x = sort { $a->domain cmp $b->domain || $a->username cmp $b->username } # @svc_x; + my $conf = new FS::Conf; + { 'svcnum' => $session->{'svcnum'}, 'custnum' => $custnum, + 'date_format' => $conf->config('date_format') || '%m/%d/%Y', 'svcs' => [ map { my $svc_x = $_->svc_x; @@ -1122,7 +1125,7 @@ sub list_svcs { # more... ); - } elsif ( $svcdb eq 'svc_phone' ) { + } elsif ( $svcdb eq 'svc_phone' || $svcdb eq 'svc_port' ) { %hash = ( %hash, ); @@ -1136,6 +1139,20 @@ sub list_svcs { } +sub port_graph { + my $p = shift; + _usage_details( \&_port_graph, $p, + 'svcdb' => 'svc_port', + ); +} + +sub _port_graph { + my($svc_port, $begin, $end) = @_; + my @usage = (); + push @usage, 999; + (@usage); +} + sub _list_svc_usage { my($svc_acct, $begin, $end) = @_; my @usage = (); |