diff options
author | ivan <ivan> | 2009-02-24 09:50:44 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-02-24 09:50:44 +0000 |
commit | c8de2cc983d3f014deefb06f1c0b982bc0852247 (patch) | |
tree | ca9b76ccf65303a7e84623021eba5eab094aa187 /FS/FS/part_pkg.pm | |
parent | fa1ac68bf90cb9582f239bce31db157ec2719f43 (diff) |
bootstrapping issues
Diffstat (limited to 'FS/FS/part_pkg.pm')
-rw-r--r-- | FS/FS/part_pkg.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm index f7c56f3..ef24b53 100644 --- a/FS/FS/part_pkg.pm +++ b/FS/FS/part_pkg.pm @@ -1,7 +1,7 @@ package FS::part_pkg; use strict; -use vars qw( @ISA %plans $DEBUG ); +use vars qw( @ISA %plans $DEBUG $setup_hack ); use Carp qw(carp cluck confess); use Scalar::Util qw( blessed ); use Time::Local qw( timelocal_nocheck ); @@ -22,6 +22,7 @@ use FS::part_pkg_link; @ISA = qw( FS::m2m_Common FS::option_Common ); $DEBUG = 0; +$setup_hack = 0; =head1 NAME @@ -454,7 +455,10 @@ sub check { 'part_pkg_taxproduct', 'taxproductnum' ) - || $self->ut_agentnum_acl('agentnum', \@null_agentnum_right) + || ( $setup_hack + ? $self->ut_foreign_keyn('agentnum', 'agent', 'agentnum' ) + : $self->ut_agentnum_acl('agentnum', \@null_agentnum_right) + ) || $self->SUPER::check ; return $error if $error; |