} elsif ( $svcdb eq 'svc_external' ) {
my $conf = new FS::Conf;
if ( $conf->config('svc_external-display_type') eq 'artera_turbo' ) {
- $tag = sprintf('%010d', $svc_x->id). '-'. sprintf('%010d', $svc_x->title);
+ $tag = sprintf('%010d', $svc_x->id). '-'.
+ substr('0000000000'.uc($svc_x->title), -10);
} else {
$tag = $svc_x->id. ': '. $svc_x->title;
}
}
-=item get_session_history_sqlradacct TIMESTAMP_START TIMESTAMP_END
+=item get_session_history TIMESTAMP_START TIMESTAMP_END
-See L<FS::svc_acct/get_session_history_sqlradacct>. Equivalent to
-$cust_svc->svc_x->get_session_history_sqlradacct, but more efficient.
-Meaningless for records where B<svcdb> is not "svc_acct".
+See L<FS::svc_acct/get_session_history>. Equivalent to
+$cust_svc->svc_x->get_session_history, but more efficient. Meaningless for
+records where B<svcdb> is not "svc_acct".
=cut
my @sessions = ();
foreach my $part_export ( @part_export ) {
- push @sessions, $part_export->usage_sessions( $start, $end, $self->svc_x );
+ push @sessions,
+ @{ $part_export->usage_sessions( $start, $end, $self->svc_x ) };
}
- \@sessions;
+ @sessions;
}