X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_pkg%2Fvoip_sqlradacct.pm;h=a9a2faa7ab9164841af2acfb2085b7857da5dde1;hb=fb61f3ce41571d7292b8434891b289c4e89ab1d6;hp=482f87b245e3f91054a4b842995202ef8a035ea2;hpb=34c53b4de70c89194ad0564d1f2a133b93769f05;p=freeside.git diff --git a/FS/FS/part_pkg/voip_sqlradacct.pm b/FS/FS/part_pkg/voip_sqlradacct.pm index 482f87b24..a9a2faa7a 100644 --- a/FS/FS/part_pkg/voip_sqlradacct.pm +++ b/FS/FS/part_pkg/voip_sqlradacct.pm @@ -126,7 +126,7 @@ sub calc_recur { } ); warn " found rate for regionnum $regionnum ". - "and rate detail $rate_detail" + "and rate detail $rate_detail\n" if $DEBUG; ### @@ -155,27 +155,20 @@ sub calc_recur { my $rate_region = $rate_prefix->rate_region; warn " (rate region $rate_region)" if $DEBUG; + my @call_details = ( + #time2str("%Y %b %d - %r", $session->{'acctstarttime'}), + time2str("%c", $session->{'acctstarttime'}), + $minutes.'m', + '$'.$charge, + "+$countrycode $dest", + $rate_region->regionname, + ); + warn " adding details on charge to invoice: ". - join(' - ', - time2str("%Y %b %d - %r", $session->{'acctstarttime'}), - "+$countrycode $dest", - $rate_region->regionname, - $minutes.'m', - '$'.$charge, - ) + join(' - ', @call_details ) if $DEBUG; - push @$details, - #[ - join(' - ', - time2str("%Y %b %d - %r", $session->{'acctstarttime'}), - "+$countrycode $dest", - $rate_region->regionname, - $minutes.'m', - '$'.$charge, - #] - ) - ; + push @$details, join(' - ', @call_details); #\@call_details, } # $session