From 6a857ef97a62c87926857443af851632abe9da43 Mon Sep 17 00:00:00 2001
From: Lebbeous Fogle-Weekley <lebbeous@esilibrary.com>
Date: Mon, 20 Aug 2012 17:04:55 -0400
Subject: [PATCH] use a perm that actually exists

Signed-off-by: Lebbeous Fogle-Weekley <lebbeous@esilibrary.com>
---
 Open-ILS/examples/fm_IDL.xml                               | 2 +-
 Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/Open-ILS/examples/fm_IDL.xml b/Open-ILS/examples/fm_IDL.xml
index d685b20414..1c2b934d96 100644
--- a/Open-ILS/examples/fm_IDL.xml
+++ b/Open-ILS/examples/fm_IDL.xml
@@ -9359,7 +9359,7 @@ SELECT  usr,
 
         <permacrud xmlns="http://open-ils.org/spec/opensrf/IDL/permacrud/v1">
             <actions>
-                <retrieve permission="VERIFY_URL" context_field="owning_lib"/>
+                <retrieve permission="URL_VERIFY" context_field="owning_lib"/>
             </actions>
         </permacrud>
 
diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm
index fbaf3422bb..ecac93f0e9 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/URLVerify.pm
@@ -63,7 +63,7 @@ sub validate_session {
 
     my $e = new_editor(authtoken => $auth, xact => 1);
     return $e->die_event unless $e->checkauth;
-    return $e->die_event unless $e->allowed('VERIFY_URL');
+    return $e->die_event unless $e->allowed('URL_VERIFY');
 
     my $session = $e->retrieve_url_verify_session($session_id)
         or return $e->die_event;
@@ -324,7 +324,7 @@ sub verify_url {
         collect_verify_attempt_and_settings($e, $attempt_id);
 
     return $e->event unless $e->allowed(
-        'VERIFY_URL', $attempt->session->owning_lib);
+        'URL_VERIFY', $attempt->session->owning_lib);
 
     my $cur_url = $url;
     my $loop_detected = 0;
@@ -615,7 +615,7 @@ sub create_session {
     return $e->die_event unless $e->checkauth;
 
     $owning_lib ||= $e->requestor->ws_ou;
-    return $e->die_event unless $e->allowed("VERIFY_URL", $owning_lib);
+    return $e->die_event unless $e->allowed("URL_VERIFY", $owning_lib);
 
     my $session = Fieldmapper::url_verify::session->new;
     $session->name($name);
@@ -742,7 +742,7 @@ sub session_perform_search {
     my $session = $e->retrieve_url_verify_session(int($ses_id));
 
     return $e->die_event unless
-        $session and $e->allowed("VERIFY_URL", $session->owning_lib);
+        $session and $e->allowed("URL_VERIFY", $session->owning_lib);
 
     if ($session->creator != $e->requestor->id) {
         $e->disconnect;
-- 
2.11.0