From 4801ee59bcdfca42b6f62ea271ac621eed6e65ae Mon Sep 17 00:00:00 2001
From: Tim Brody <tdb2@ecs.soton.ac.uk>
Date: Wed, 25 Jul 2012 15:07:09 +0000
Subject: [PATCH]  * Show Staff export plugins in generic searches, if the user
 is staff

git-svn-id: https://svn.eprints.org/eprints/trunk/system@7818 9491667e-5006-0410-a446-efbe8990b998
---
 perl_lib/EPrints/Plugin/Screen/AbstractSearch.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/perl_lib/EPrints/Plugin/Screen/AbstractSearch.pm b/perl_lib/EPrints/Plugin/Screen/AbstractSearch.pm
index 8b82d07b5..7622f39bc 100644
--- a/perl_lib/EPrints/Plugin/Screen/AbstractSearch.pm
+++ b/perl_lib/EPrints/Plugin/Screen/AbstractSearch.pm
@@ -306,6 +306,8 @@ sub _vis_level
 {
 	my( $self ) = @_;
 
+	return "staff" if defined $self->{session}->current_user && $self->{session}->current_user->is_staff;
+
 	return "all";
 }