[freeside-commits] freeside/FS/FS cdr.pm,1.5.2.4,1.5.2.5

[Ivan,,,]

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

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	cdr.pm 
Log Message:
add am/pm to voxlinesystems2 display format, remove name, revsere src/dst

Index: cdr.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cdr.pm,v
retrieving revision 1.5.2.4
retrieving revision 1.5.2.5
diff -u -d -r1.5.2.4 -r1.5.2.5
--- cdr.pm	5 Jun 2008 19:24:37 -0000	1.5.2.4
+++ cdr.pm	5 Jun 2008 22:44:43 -0000	1.5.2.5
@@ -400,7 +400,8 @@
                        },
   'voxlinesystems2' => { 'name'           => 'VoxLineSystems with source',
                          'invoice_header' =>
-                           "Date,Time,Name,Destination,Called From,Duration,Price",
+                           #"Date,Time,Name,Called From,Destination,Duration,Price",
+                           "Date,Time,Called From,Destination,Duration,Price",
                        },
 );
 
@@ -430,7 +431,7 @@
   ],
   'voxlinesystems2' => [
     sub { time2str('%D', shift->calldate_unix ) },   #DATE
-    sub { time2str('%T', shift->calldate_unix ) },   #TIME
+    sub { time2str('%r', shift->calldate_unix ) },   #TIME
     'userfield',                                     #USER
     'dst',                                           #NUMBER_DIALED
     'src',                                           #called from
@@ -732,6 +733,7 @@
     'accountcode',                        #Calling customer... map to agent_custid??
     sub { my($cdr, $field) = @_; },       #Calling type
     'src',
+    #sub { my($cdr, $field) = @_; },       #Calling number
     'userfield',                          #Calling name #?
     sub { my($cdr, $field) = @_; },       #Called type
     'dst',                                #Called number
@@ -740,6 +742,7 @@
     sub { my($cdr, $field) = @_; },       #Destination Number
     sub { my($cdr, $field) = @_; },       #Inbound calling type
     sub { my($cdr, $field) = @_; },       #Inbound calling number
+    #'src',
     sub { my($cdr, $field) = @_; },       #Inbound called type
     sub { my($cdr, $field) = @_; },       #Inbound called number
     sub { my($cdr, $field) = @_; },       #Inbound destination type