projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
tower for svc_acct, RT#15538
[freeside.git]
/
FS
/
FS
/
cust_bill_pkg.pm
diff --git
a/FS/FS/cust_bill_pkg.pm
b/FS/FS/cust_bill_pkg.pm
index
2c15715
..
8d79ed5
100644
(file)
--- a/
FS/FS/cust_bill_pkg.pm
+++ b/
FS/FS/cust_bill_pkg.pm
@@
-470,7
+470,7
@@
sub details {
my $sql = "SELECT detail FROM cust_bill_pkg_detail ".
" WHERE billpkgnum = ". $self->billpkgnum.
my $sql = "SELECT detail FROM cust_bill_pkg_detail ".
" WHERE billpkgnum = ". $self->billpkgnum.
- " AND ( format IS NULL OR format != 'C' ".
+ " AND ( format IS NULL OR format != 'C'
)
".
" ORDER BY detailnum";
my $sth = dbh->prepare($sql) or die dbh->errstr;
$sth->execute or die $sth->errstr;
" ORDER BY detailnum";
my $sth = dbh->prepare($sql) or die dbh->errstr;
$sth->execute or die $sth->errstr;
@@
-531,7
+531,7
@@
sub details {
#avoid the fetchall_arrayref and loop for less memory usage?
#avoid the fetchall_arrayref and loop for less memory usage?
- map {
$_->[0] eq 'C'
+ map {
(defined($_->[0]) && $_->[0] eq 'C')
? &{$format_sub}( $_->[1] )
: &{$escape_function}( $_->[1] );
}
? &{$format_sub}( $_->[1] )
: &{$escape_function}( $_->[1] );
}
@@
-916,9
+916,9
@@
sub usage_classes {
my %seen = ();
foreach my $detail ( grep { ref($_) } @{$self->get('details')} ) {
my %seen = ();
foreach my $detail ( grep { ref($_) } @{$self->get('details')} ) {
- $seen{ ref($detail) eq 'HASH'
+ $seen{
(
ref($detail) eq 'HASH'
? $detail->{'classnum'}
? $detail->{'classnum'}
- : $detail->[3]
+ : $detail->[3]
) || ''
} = 1;
}
keys %seen;
} = 1;
}
keys %seen;