diff options
author | ivan <ivan> | 2006-09-29 17:22:22 +0000 |
---|---|---|
committer | ivan <ivan> | 2006-09-29 17:22:22 +0000 |
commit | 8abffd15f7fa51e8b62f03ffa21a01974813f99f (patch) | |
tree | 9853a3a3708a9ab797e3551d121d3580041a28c4 | |
parent | dfb864326bac0a7b1f2e5156c2c35b4444b38ff3 (diff) |
fix problem with viewing unlinked services
-rw-r--r-- | FS/FS/access_user.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/FS/FS/access_user.pm b/FS/FS/access_user.pm index 874da6687..ca0bcd657 100644 --- a/FS/FS/access_user.pm +++ b/FS/FS/access_user.pm @@ -298,12 +298,13 @@ Returns an sql fragement to select only agentnums this user can view. sub agentnums_sql { my $self = shift; - my @agentnums = $self->agentnums; - return ' 1 = 0 ' unless scalar(@agentnums); + my @agentnums = map { "agentnum = $_" } $self->agentnums; + + push @agentnums, 'agentnum IS NULL' + if $self->access_right('View/link unlinked services'); - '( '. - join( ' OR ', map "agentnum = $_", @agentnums ). - ' )'; + return ' 1 = 0 ' unless scalar(@agentnums); + '( '. join( ' OR ', @agentnums ). ' )'; } =item agentnum |