some circ wrappers

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 32ac711..26607f5 100644 (file)
--- 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__