extra argument for crazy search

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5198 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
index 7098442..6666498 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -1098,13 +1098,13 @@ __PACKAGE__->register_method(
        method  => "patron_adv_search",
        api_name        => "open-ils.actor.patron.search.advanced" );
 sub patron_adv_search {
-       my( $self, $client, $auth, $search_hash, $search_limit, $search_sort ) = @_;
+       my( $self, $client, $auth, $search_hash, $search_limit, $search_sort, $include_inactive ) = @_;
        my $e = new_editor(authtoken=>$auth);
        return $e->event unless $e->checkauth;
        return $e->event unless $e->allowed('VIEW_USER');
        return $U->storagereq(
                "open-ils.storage.actor.user.crazy_search", 
-               $search_hash, $search_limit, $search_sort);
+               $search_hash, $search_limit, $search_sort, $include_inactive);
 }