From 8abffd15f7fa51e8b62f03ffa21a01974813f99f Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 29 Sep 2006 17:22:22 +0000
Subject: [PATCH] fix problem with viewing unlinked services

---
 FS/FS/access_user.pm | 11 ++++++-----
 1 file 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
-- 
2.11.0