From 47e661eff64c9ac28f584664b40b904a8bba18e7 Mon Sep 17 00:00:00 2001
From: doxulting <doxulting>
Date: Wed, 23 Mar 2005 09:53:21 +0000
Subject: [PATCH] Adding a parameter to allow acces to people with
 management/tools flags

---
 export/marc.pl     | 2 +-
 import/breeding.pl | 5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/export/marc.pl b/export/marc.pl
index 1ea7b32d24..280c479502 100755
--- a/export/marc.pl
+++ b/export/marc.pl
@@ -36,7 +36,7 @@ if ($op eq "export") {
 					query => $query,
 					type => "intranet",
 					authnotrequired => 0,
-					flagsrequired => {parameters => 1},
+					flagsrequired => {parameters => 1, management => 1, tools => 1},
 					debug => 1,
 					});
 	output_html_with_http_headers $query, $cookie, $template->output;
diff --git a/import/breeding.pl b/import/breeding.pl
index 0e52625a4f..7d0e2177a6 100755
--- a/import/breeding.pl
+++ b/import/breeding.pl
@@ -73,7 +73,7 @@ my ($template, $loggedinuser, $cookie)
 					query => $input,
 					type => "intranet",
 					authnotrequired => 0,
-					flagsrequired => {parameters => 1},
+					flagsrequired => {parameters => 1, management => 1, tools => 1},
 					debug => 1,
 					});
 
@@ -103,6 +103,9 @@ my $file;
 #---------------
 # log cleared, as marcimport is (almost) rewritten from scratch.
 # $Log$
+# Revision 1.3  2005/03/23 09:57:47  doxulting
+# Adding a parameter to allow acces to people with management/tools flags
+#
 # Revision 1.2  2003/10/06 09:10:38  slef
 # Removing config info from z3950*sh and using C4::Context in processz3950queue (Fixed bug 39)
 #
-- 
2.39.5