From 97168edae6af4a4d98c4f790b0c064b73efbb9fd Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 14 Aug 2006 08:38:08 +0000
Subject: [PATCH] bugfix for agentless access users, triggered by part_referral
 (advertising source) agent virtualization

---
 FS/FS/access_user.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/FS/FS/access_user.pm b/FS/FS/access_user.pm
index 830d7f826..874da6687 100644
--- a/FS/FS/access_user.pm
+++ b/FS/FS/access_user.pm
@@ -297,8 +297,12 @@ 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);
+
   '( '.
-    join( ' OR ', map "agentnum = $_", $self->agentnums ).
+    join( ' OR ', map "agentnum = $_", @agentnums ).
   ' )';
 }
 
-- 
2.11.0