From 70a0e5c25985f86515a7601cee10bb221a42a8ed Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Thu, 22 Aug 2013 14:15:16 -0400 Subject: [PATCH] some circ wrappers --- .../perlmods/lib/OpenILS/Utils/Cronscript.pm.in | 25 ++++++++++++++++++++++ 1 file changed, 25 insertions(+) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/Cronscript.pm.in b/Open-ILS/src/perlmods/lib/OpenILS/Utils/Cronscript.pm.in index 32ac711ce5..26607f56c7 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/Cronscript.pm.in +++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/Cronscript.pm.in @@ -401,6 +401,31 @@ sub cache { return $self->{memcache}; } +sub register_workstation { + my ($self,$name,$lib) = (shift,shift,shift); + my $resp = $apputils->simplereq( + 'open-ils.actor', + 'open-ils.actor.workstation.register', + $self->authtoken, $name, $lib); + return $resp; +} + +sub do_checkout { + my ($self,$args) = (shift,shift); + my $resp = $apputils->simplereq( + 'open-ils.circ', + 'open-ils.circ.checkout.full', $self->authtoken, $args); + return $resp; +} + +sub do_checkin { + my ($self,$args) = (shift,shift); + my $resp = $apputils->simplereq( + 'open-ils.circ', + 'open-ils.circ.checkin', $self->authtoken, $args ); + return $resp; +} + 1; __END__ -- 2.11.0