projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
725c051
)
fix cancellations of cust_svc records without corresponding svc_* records
author
ivan
<ivan>
Tue, 27 Dec 2011 00:37:38 +0000
(
00:37
+0000)
committer
ivan
<ivan>
Tue, 27 Dec 2011 00:37:38 +0000
(
00:37
+0000)
FS/FS/cust_pkg.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_pkg.pm
b/FS/FS/cust_pkg.pm
index
aecb894
..
b49ed6c
100644
(file)
--- a/
FS/FS/cust_pkg.pm
+++ b/
FS/FS/cust_pkg.pm
@@
-775,7
+775,7
@@
sub cancel {
#schwartz
map { $_->[0] }
sort { $a->[1] <=> $b->[1] }
#schwartz
map { $_->[0] }
sort { $a->[1] <=> $b->[1] }
- map { [ $_, $_->svc_x
->table_info->{'cancel_weight'}
]; }
+ map { [ $_, $_->svc_x
? $_->svc_x->table_info->{'cancel_weight'} : -1
]; }
qsearch( 'cust_svc', { 'pkgnum' => $self->pkgnum } )
) {
my $part_svc = $cust_svc->part_svc;
qsearch( 'cust_svc', { 'pkgnum' => $self->pkgnum } )
) {
my $part_svc = $cust_svc->part_svc;