[freeside-commits] freeside/FS/FS/ClientAPI MyAccount.pm, 1.127, 1.128

Erik Levinson levinse at wavetail.420.am
Sun Jan 30 22:30:38 PST 2011


Update of /home/cvs/cvsroot/freeside/FS/FS/ClientAPI
In directory wavetail.420.am:/tmp/cvs-serv30961/FS/FS/ClientAPI

Modified Files:
	MyAccount.pm 
Log Message:
torrus various changes, RT10574

Index: MyAccount.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/ClientAPI/MyAccount.pm,v
retrieving revision 1.127
retrieving revision 1.128
diff -u -w -d -r1.127 -r1.128
--- MyAccount.pm	23 Jan 2011 20:55:14 -0000	1.127
+++ MyAccount.pm	31 Jan 2011 06:30:36 -0000	1.128
@@ -1084,9 +1084,12 @@
   #@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 @@
                 # more...
               );
 
-            } elsif ( $svcdb eq 'svc_phone' ) {
+            } elsif ( $svcdb eq 'svc_phone' || $svcdb eq 'svc_port' ) {
               %hash = (
                 %hash,
               );
@@ -1136,6 +1139,20 @@
 
 }
 
+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 = ();



More information about the freeside-commits mailing list