[freeside-commits] freeside/FS/FS cust_svc.pm,1.84,1.84.2.1

Mark Wells mark at wavetail.420.am
Fri Jan 7 21:23:08 PST 2011


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

Modified Files:
      Tag: FREESIDE_2_1_BRANCH
	cust_svc.pm 
Log Message:
count available services correctly, RT#10340

Index: cust_svc.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_svc.pm,v
retrieving revision 1.84
retrieving revision 1.84.2.1
diff -u -w -d -r1.84 -r1.84.2.1
--- cust_svc.pm	5 Aug 2010 04:17:07 -0000	1.84
+++ cust_svc.pm	8 Jan 2011 05:23:06 -0000	1.84.2.1
@@ -300,22 +300,11 @@
   if ( $self->pkgnum ) {
     my $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $self->pkgnum } );
     return "Unknown pkgnum" unless $cust_pkg;
-    my $pkg_svc = qsearchs( 'pkg_svc', {
-      'pkgpart' => $cust_pkg->pkgpart,
-      'svcpart' => $self->svcpart,
-    });
-    # or new FS::pkg_svc ( { 'pkgpart'  => $cust_pkg->pkgpart,
-    #                        'svcpart'  => $self->svcpart,
-    #                        'quantity' => 0                   } );
-    my $quantity = $pkg_svc ? $pkg_svc->quantity : 0;
+    ($part_svc) = grep { $_->svcpart == $self->svcpart } $cust_pkg->part_svc;
 
-    my @cust_svc = qsearch('cust_svc', {
-      'pkgnum'  => $self->pkgnum,
-      'svcpart' => $self->svcpart,
-    });
-    return "Already ". scalar(@cust_svc). " ". $part_svc->svc.
+    return "Already ". $part_svc->get('num_cust_svc'). " ". $part_svc->svc.
            " services for pkgnum ". $self->pkgnum
-      if scalar(@cust_svc) >= $quantity && !$ignore_quantity;
+      if $part_svc->get('num_avail') == 0 and !$ignore_quantity;
   }
 
   $self->SUPER::check;



More information about the freeside-commits mailing list