use strict;
use vars qw(@ISA $DEBUG %info);
+use Date::Format;
use FS::Record qw(qsearchs qsearch);
use FS::part_pkg;
#use FS::rate;
} );
warn " found rate for regionnum $regionnum ".
- "and rate detail $rate_detail"
+ "and rate detail $rate_detail\n"
if $DEBUG;
###
}
my $rate_region = $rate_prefix->rate_region;
- warn " (rate region $rate_region)" if $DEBUG;
+ warn " (rate region $rate_region)\n" 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(' - ',
- "+$countrycode $dest",
- $rate_region->regionname,
- $minutes.'m',
- '$'.$charge,
- )
+ join(' - ', @call_details )
if $DEBUG;
- push @$details,
- #[
- join(' - ',
- "+$countrycode $dest",
- $rate_region->regionname,
- $minutes.'m',
- '$'.$charge,
- #]
- )
- ;
+ push @$details, join(' - ', @call_details); #\@call_details,
} # $session