From 20fd7bb9d558ae75a6bd1ccde77865fc3e318fce Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Mon, 25 Feb 2013 13:17:59 -0500 Subject: [PATCH] Z39.50 Batch Search/Overlay TPAC my-list entry point Similar to the staff client bucket UI, this adds a button which allows staff to access the batch Z39 search-and-queue operation directly from the TPAC my-lists UI. Signed-off-by: Bill Erickson --- .../lib/OpenILS/WWW/EGCatLoader/Account.pm | 7 +++++++ Open-ILS/src/templates/opac/myopac/lists.tt2 | 21 +++++++++++++++++++ 2 files changed, 28 insertions(+) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm index ec7bb9658a..ca917a9ac4 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm @@ -23,6 +23,10 @@ sub prepare_extended_user_info { my $local_xact = !$e->{xact_id}; $e->xact_begin if $local_xact; + # keep the original user object so we can restore + # login-specific data (e.g. workstation) + my $usr = $self->ctx->{user}; + $self->ctx->{user} = $self->editor->retrieve_actor_user([ $self->ctx->{user}->id, { @@ -36,6 +40,9 @@ sub prepare_extended_user_info { $e->rollback if $local_xact; + $self->ctx->{user}->wsid($usr->wsid); + $self->ctx->{user}->ws_ou($usr->ws_ou); + # discard replaced (negative-id) addresses. $self->ctx->{user}->addresses([ grep {$_->id > 0} @{$self->ctx->{user}->addresses} ]); diff --git a/Open-ILS/src/templates/opac/myopac/lists.tt2 b/Open-ILS/src/templates/opac/myopac/lists.tt2 index 0b2977dc93..ba78f76f2b 100644 --- a/Open-ILS/src/templates/opac/myopac/lists.tt2 +++ b/Open-ILS/src/templates/opac/myopac/lists.tt2 @@ -151,6 +151,27 @@ [% END %] + [% IF ctx.is_staff %] +
+ +
+ [% END %]
[% IF bbag.pub == 't'; %]