Open-ILS/src/perlmods/lib/OpenILS/Application/JustInTime.pm

   1 package OpenILS::Application::JustInTime;
   2
   3 use strict;
   4 use warnings;
   5
   6 use OpenILS::Application;
   7 use base qw/OpenILS::Application/;
   8 use OpenILS::Application::AppUtils;
   9 my $U = "OpenILS::Application::AppUtils";
  10
  11 sub revalidate_events {
  12     my ($self, $conn, $event_id_list) = @_;
  13
  14     return $U->simplereq(
  15         "open-ils.trigger",
  16         "open-ils.trigger.event_group.revalidate.test",
  17         $event_id_list
  18     );
  19 }
  20
  21 __PACKAGE__->register_method(
  22     method   => "revalidate_events",
  23     api_name => "open-ils.justintime.events.revalidate",
  24     argc     => 1,
  25     signature=> {
  26         params => [
  27             {type => "array", desc => "list of action_trigger.event IDs"},
  28         ],
  29         return => { desc => "A list of equal length as the input list telling us whether events validated" }
  30     }
  31 );
  32
  33 1;