From a07aaf5d087225ea285b2423f06b6f449b59d16c Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Mon, 22 Aug 2011 16:53:36 -0400 Subject: [PATCH] z3950 use_perm links again Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Z3950.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Z3950.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Z3950.pm index 2914472237..6a095290e1 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Z3950.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Z3950.pm @@ -121,7 +121,8 @@ sub fetch_service_defs { record_format => $s->record_format, transmission_format => $s->transmission_format, auth => $s->auth, - use_perm => $s->use_perm + use_perm => ($s->use_perm) ? + $e->retrieve_permission_perm_list($s->use_perm)->code : '' }; for my $a ( @{ $s->attrs } ) { -- 2.11.0