diff options
author | Ivan Kohler <ivan@freeside.biz> | 2014-07-16 06:17:05 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2014-07-16 06:17:05 -0700 |
commit | 5f8111de04a4a914c72a1642722476db4728339c (patch) | |
tree | b7ae766bcb35d53828a1690ae78d9bff179dcbab /FS/FS/part_pkg.pm | |
parent | c7cc0522832d0e1c056f9bce46dd1b4b5551e612 (diff) |
REST API, RT#28181
Diffstat (limited to 'FS/FS/part_pkg.pm')
-rw-r--r-- | FS/FS/part_pkg.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm index 2f06467..2ad7859 100644 --- a/FS/FS/part_pkg.pm +++ b/FS/FS/part_pkg.pm @@ -1,5 +1,7 @@ package FS::part_pkg; -use base qw( FS::m2m_Common FS::o2m_Common FS::option_Common ); +use base qw( FS::part_pkg::API + FS::m2m_Common FS::o2m_Common FS::option_Common + ); use strict; use vars qw( %plans $DEBUG $setup_hack $skip_pkg_svc_hack ); @@ -2017,8 +2019,8 @@ sub _pkgs_sql { #false laziness w/part_export & cdr my %info; foreach my $INC ( @INC ) { - warn "globbing $INC/FS/part_pkg/*.pm\n" if $DEBUG; - foreach my $file ( glob("$INC/FS/part_pkg/*.pm") ) { + warn "globbing $INC/FS/part_pkg/[a-z]*.pm\n" if $DEBUG; + foreach my $file ( glob("$INC/FS/part_pkg/[a-z]*.pm") ) { warn "attempting to load plan info from $file\n" if $DEBUG; $file =~ /\/(\w+)\.pm$/ or do { warn "unrecognized file in $INC/FS/part_pkg/: $file\n"; |