JBAS-1554 User circ history transitional API

Retain dummy versions of the old circ history API calls to avoid any
unexpected explosions during the 2.9.003 upgrade and BC circ history
code migration.

Signed-off-by: Bill Erickson <berickxx@gmail.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm
index cbf50a2..5026fbf 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm
@@ -4488,9 +4488,35 @@ __PACKAGE__->register_method(
     }
 );
 
+
+# KCLS JBAS-1554 
+# Dummy API calls to ease transition to new circ history API for BC.
+# Any calls to these deprecated circ history methods return 0 results.
+# TODO Remove these API calls once BC deployment is confirmed.
+__PACKAGE__->register_method(
+    method    => "user_visible_holds",
+    api_name  => "open-ils.actor.history.circ.visible",
+    stream => 1
+);
+__PACKAGE__->register_method(
+    method    => "user_visible_holds",
+    api_name  => "open-ils.actor.history.circ.visible.print",
+    stream => 1
+);
+__PACKAGE__->register_method(
+    method    => "user_visible_holds",
+    api_name  => "open-ils.actor.history.circ.visible.email",
+    stream => 1
+);
+
+
 sub user_visible_holds {
     my($self, $conn, $auth, $user_id, $options) = @_;
 
+    # KCLS JBAS-1554 
+    # TODO remove me.
+    return undef if ($self->api_name =~ /history.circ/);
+
     my $is_hold = 1;
     my $for_print = ($self->api_name =~ /print/);
     my $for_email = ($self->api_name =~ /email/);