diff options
| author | ivan <ivan> | 2005-03-03 08:58:45 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2005-03-03 08:58:45 +0000 |
| commit | 4045b74f9dbb7d195772e404966b20a18262b07e (patch) | |
| tree | aa5c46775a57c9c515bd8854d8ecbe9809ce827d | |
| parent | f684dcf1c1e690b2f510ab859b53f7d5c835ca47 (diff) | |
voip: rearrange and compact call details on invoices, so place names get cut off, not anything important
| -rw-r--r-- | FS/FS/part_pkg/voip_sqlradacct.pm | 28 |
1 files changed, 10 insertions, 18 deletions
diff --git a/FS/FS/part_pkg/voip_sqlradacct.pm b/FS/FS/part_pkg/voip_sqlradacct.pm index cbd1654d7..a2f998a17 100644 --- a/FS/FS/part_pkg/voip_sqlradacct.pm +++ b/FS/FS/part_pkg/voip_sqlradacct.pm @@ -155,27 +155,19 @@ 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'}), + "+$countrycode $dest", + $rate_region->regionname, + $minutes.'m', + '$'.$charge, + ); + 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 |