From 06a4d261c7b7c1d8692fd2dfd33b06e090c17d53 Mon Sep 17 00:00:00 2001 From: ivan Date: Sun, 10 Feb 2002 22:06:28 +0000 Subject: [PATCH] another bug in quantity checking --- FS/FS/cust_svc.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/FS/FS/cust_svc.pm b/FS/FS/cust_svc.pm index 8a8dbe7c9..3e38be39e 100644 --- a/FS/FS/cust_svc.pm +++ b/FS/FS/cust_svc.pm @@ -128,7 +128,7 @@ sub check { }); return "Already ". scalar(@cust_svc). " ". $part_svc->svc. " services for pkgnum ". $self->pkgnum - if $pkg_svc->quantity >= scalar(@cust_svc); + if scalar(@cust_svc) >= $pkg_svc->quantity; } ''; #no error @@ -245,7 +245,7 @@ sub seconds_since { =head1 VERSION -$Id: cust_svc.pm,v 1.11 2002-02-10 21:37:24 ivan Exp $ +$Id: cust_svc.pm,v 1.12 2002-02-10 22:06:28 ivan Exp $ =head1 BUGS -- 2.11.0