[freeside-commits] freeside/FS/FS cust_pkg.pm, 1.204.2.14, 1.204.2.15

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv4581

Modified Files:
      Tag: FREESIDE_2_3_BRANCH
	cust_pkg.pm 
Log Message:
fix cancellations of cust_svc records without corresponding svc_*  records

Index: cust_pkg.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_pkg.pm,v
retrieving revision 1.204.2.14
retrieving revision 1.204.2.15
diff -u -w -d -r1.204.2.14 -r1.204.2.15
--- cust_pkg.pm	16 Nov 2011 04:00:25 -0000	1.204.2.14
+++ cust_pkg.pm	27 Dec 2011 00:37:38 -0000	1.204.2.15
@@ -775,7 +775,7 @@
     #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;