From: kenstir <kenstir@gmail.com>
Date: Sun, 24 May 2020 22:21:03 +0000 (-0400)
Subject: Try to fix error Method [] not found for $app
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=39e4a9494a93b1be9a2dfc9b241dec47a46b7bd1;p=working%2FEvergreen.git

Try to fix error Method [] not found for $app
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Selfcheck.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Selfcheck.pm
index ec838bf0c6..5583fdb038 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Selfcheck.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Selfcheck.pm
@@ -27,10 +27,10 @@ sub enabled {
     );
 }
 __PACKAGE__->register_method(
-    method   => "enabled",
+    method => "enabled",
     api_name => "open-ils.selfcheck.enabled",
-    stream   => 1,
-    argc     => 0,
+    api_level => 1,
+    argc => 0,
     signature => {
         desc => 'Check if selfcheck is enabled',
         return => {
@@ -40,4 +40,18 @@ __PACKAGE__->register_method(
     }
 );
 
+sub xyzzy {
+    my ($self, $conn, $authtoken) = @_;
+
+    return new OpenILS::Event("SELFCHECK_NOT_ALLOWED") unless ($U->is_true(
+        $U->ou_ancestor_setting_value($org, 'circ.selfcheck')
+    ));
+
+    return 'xyzzy';
+}
+__PACKAGE__->register_method(
+    method => "xyzzy",
+    api_name => "open-ils.selfcheck.xyzzy"
+);
+
 1;