diff options
author | ivan <ivan> | 2009-02-24 10:06:18 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-02-24 10:06:18 +0000 |
commit | ddec196978bc99c3273a62103993407097c08dc7 (patch) | |
tree | 6dbfbe6fab13cff7ea441c2069febcfc27b10fe2 /FS | |
parent | 6f200fd174151649b99130938d5b65dfa035f89e (diff) |
bootstrapping issues
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/part_referral.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/FS/FS/part_referral.pm b/FS/FS/part_referral.pm index 87bc87cba..c94c57e19 100644 --- a/FS/FS/part_referral.pm +++ b/FS/FS/part_referral.pm @@ -1,11 +1,12 @@ package FS::part_referral; use strict; -use vars qw( @ISA ); +use vars qw( @ISA $setup_hack ); use FS::Record qw( qsearch qsearchs dbh ); use FS::agent; @ISA = qw( FS::Record ); +$setup_hack = 0; =head1 NAME @@ -100,7 +101,10 @@ sub check { || $self->ut_text('referral') || $self->ut_enum('disabled', [ '', 'Y' ] ) #|| $self->ut_foreign_keyn('agentnum', 'agent', 'agentnum') - || $self->ut_agentnum_acl('agentnum', 'Edit global advertising sources') + || ( $setup_hack + ? $self->ut_foreign_keyn('agentnum', 'agent', 'agentnum' ) + : $self->ut_agentnum_acl('agentnum', 'Edit global advertising sources') + ) ; return $error if $error; |