Fix syntax errors

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Selfcheck.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Selfcheck.pm
index 5583fdb..20a9943 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Selfcheck.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Selfcheck.pm
@@ -21,20 +21,23 @@ my $date_parser = DateTime::Format::ISO8601->new;
 
 use OpenSRF::Utils::Logger qw/$logger/;
 
-sub enabled {
-    return $U->is_true(
-        $U->ou_ancestor_setting_value($org, 'circ.selfcheck')
-    );
+sub child_init {
+    my $self = shift;
+    $logger->info("child_init: @_");
+}
+
+sub exists {
+    return 1;
 }
 __PACKAGE__->register_method(
-    method => "enabled",
-    api_name => "open-ils.selfcheck.enabled",
+    method => "exists",
+    api_name => "open-ils.selfcheck.exists",
     api_level => 1,
     argc => 0,
     signature => {
-        desc => 'Check if selfcheck is enabled',
+        desc => 'Check if selfcheck service exists',
         return => {
-            desc => 'True if enabled, false if not'
+            desc => 'True'
             type => 'bool'
         }
     }
@@ -43,9 +46,9 @@ __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 new OpenILS::Event("SELFCHECK_NOT_ALLOWED") unless ($U->is_true(
+    #    $U->ou_ancestor_setting_value($org, 'circ.selfcheck')
+    #));
 
     return 'xyzzy';
 }