projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
time-based prepaid cards, session monitor. woop!
[freeside.git]
/
FS
/
FS
/
cust_pkg.pm
diff --git
a/FS/FS/cust_pkg.pm
b/FS/FS/cust_pkg.pm
index
2de664b
..
08be4e4
100644
(file)
--- a/
FS/FS/cust_pkg.pm
+++ b/
FS/FS/cust_pkg.pm
@@
-8,6
+8,7
@@
use FS::cust_svc;
use FS::part_pkg;
use FS::cust_main;
use FS::type_pkgs;
use FS::part_pkg;
use FS::cust_main;
use FS::type_pkgs;
+use FS::pkg_svc;
# need to 'use' these instead of 'require' in sub { cancel, suspend, unsuspend,
# setup }
# need to 'use' these instead of 'require' in sub { cancel, suspend, unsuspend,
# setup }
@@
-15,6
+16,7
@@
use FS::type_pkgs;
use FS::svc_acct;
use FS::svc_acct_sm;
use FS::svc_domain;
use FS::svc_acct;
use FS::svc_acct_sm;
use FS::svc_domain;
+use FS::svc_www;
@ISA = qw( FS::Record );
@ISA = qw( FS::Record );
@@
-428,16
+430,15
@@
sub order {
push @cust_svc, [
map {
( $svcnum{$_} && @{ $svcnum{$_} } ) ? shift @{ $svcnum{$_} } : ();
push @cust_svc, [
map {
( $svcnum{$_} && @{ $svcnum{$_} } ) ? shift @{ $svcnum{$_} } : ();
- } (split(/,/,
- qsearchs('part_pkg',{'pkgpart'=>$pkgpart})->getfield('services')
- ))
+ } map { $_->svcpart } qsearch('pkg_svc', { 'pkgpart' => $pkgpart })
];
}
#check for leftover services
foreach (keys %svcnum) {
next unless @{ $svcnum{$_} };
];
}
#check for leftover services
foreach (keys %svcnum) {
next unless @{ $svcnum{$_} };
- return "Leftover services!";
+ return "Leftover services, svcpart $_: svcnum ".
+ join(', ', map { $_->svcnum } @{ $svcnum{$_} } );
}
#no leftover services, let's make changes.
}
#no leftover services, let's make changes.
@@
-490,7
+491,7
@@
sub order {
=head1 VERSION
=head1 VERSION
-$Id: cust_pkg.pm,v 1.
2 1999-08-04 11:50:41
ivan Exp $
+$Id: cust_pkg.pm,v 1.
4 2000-02-03 05:16:52
ivan Exp $
=head1 BUGS
=head1 BUGS