From 3cee27e41f8c90ba63086bc29cab9fa01cb6bb7a Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Thu, 20 Oct 2011 10:37:39 -0400 Subject: [PATCH] Tpac; repair format icon display in holds lists * Fetch MARC XML from unapi to pick up metabib::record_attr's for each record. * Update format icon code in holds list to use new-style precompiled format_icon Signed-off-by: Bill Erickson Signed-off-by: Lebbeous Fogle-Weekley --- .../src/perlmods/lib/OpenILS/Application/Circ/Holds.pm | 3 ++- .../src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm | 8 +++++--- Open-ILS/src/templates/opac/myopac/hold_history.tt2 | 7 ++----- Open-ILS/src/templates/opac/myopac/holds.tt2 | 7 ++----- 4 files changed, 11 insertions(+), 14 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm index 3265ae3d89..8a0674ad27 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm @@ -3049,7 +3049,8 @@ sub uber_hold_impl { my $details = retrieve_hold_queue_status_impl($e, $hold); my $resp = { - hold => $hold, + hold => $hold, + bre_id => $bre->id, ($copy ? (copy => $copy) : ()), ($volume ? (volume => $volume) : ()), ($issuance ? (issuance => $issuance) : ()), 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 59bc862dd5..fe0da834f4 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Account.pm @@ -368,8 +368,7 @@ sub fetch_user_holds { suppress_notices => 1, suppress_transits => 1, suppress_mvr => 1, - suppress_patron_details => 1, - include_bre => $flesh ? 1 : 0 + suppress_patron_details => 1 }; # ---------------------------------------------------------------- @@ -405,7 +404,10 @@ sub fetch_user_holds { @collected = grep { $_->{hold}->{status} == 4 } @collected; } while(my $blob = pop(@collected)) { - $blob->{marc_xml} = XML::LibXML->new->parse_string($blob->{hold}->{bre}->marc) if $flesh; + my (undef, @data) = $self->get_records_and_facets( + [$blob->{hold}->{bre_id}], undef, {flesh => '{mra}'} + ); + $blob->{marc_xml} = $data[0]->{marc_xml}; push(@holds, $blob); } } diff --git a/Open-ILS/src/templates/opac/myopac/hold_history.tt2 b/Open-ILS/src/templates/opac/myopac/hold_history.tt2 index d57fd63d2f..314741d0b0 100644 --- a/Open-ILS/src/templates/opac/myopac/hold_history.tt2 +++ b/Open-ILS/src/templates/opac/myopac/hold_history.tt2 @@ -73,11 +73,8 @@
[% IF attrs.format_icon %] - [% attrs.format %] - [% ELSE; - attrs.format; - END %] + [% attrs.format_label | html %] + [% END %]
diff --git a/Open-ILS/src/templates/opac/myopac/holds.tt2 b/Open-ILS/src/templates/opac/myopac/holds.tt2 index f008fb722a..3c43ab29cf 100644 --- a/Open-ILS/src/templates/opac/myopac/holds.tt2 +++ b/Open-ILS/src/templates/opac/myopac/holds.tt2 @@ -146,11 +146,8 @@
[% IF attrs.format_icon %] - [% attrs.format %] - [% ELSE; - attrs.format; - END %] + [% attrs.format_label | html %] + [% END %]
-- 2.43.2