use strict;
use vars qw( @ISA );
use Carp qw( cluck );
-use FS::Record qw( qsearchs dbh );
+use FS::Record qw( qsearch qsearchs dbh );
use FS::cust_pkg;
use FS::part_pkg;
use FS::part_svc;
});
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
=head1 VERSION
-$Id: cust_svc.pm,v 1.10 2002-02-09 17:45:26 ivan Exp $
+$Id: cust_svc.pm,v 1.12 2002-02-10 22:06:28 ivan Exp $
=head1 BUGS