LP#1053397 MR detail page additions

Signed-off-by: Bill Erickson <berick@esilibrary.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm
index 2a68c0e..0b00694 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm
@@ -585,7 +585,7 @@ sub load_metarecord {
     my $self = shift;
     my %kwargs = @_;
     my $ctx = $self->ctx;
-    $ctx->{page} = 'metrecord';  
+    $ctx->{page} = 'metarecord';  
     my $e = OpenILS::Utils::CStoreEditor->new;
 
     $self->timelog("load_metarecord() began");
@@ -594,6 +594,8 @@ sub load_metarecord {
     return Apache2::Const::HTTP_BAD_REQUEST 
         unless $mmr_id and $mmr_id =~ /^\d+$/;
 
+    $ctx->{metarecord_id} = $mmr_id;
+
     my $mmr = $e->retrieve_metabib_metarecord($mmr_id)
         or return Apache2::Const::HTTP_BAD_REQUEST; # bad ID
 

diff --git a/Open-ILS/src/templates/opac/parts/record/summary.tt2 b/Open-ILS/src/templates/opac/parts/record/summary.tt2
index c6e3b7c..d00d086 100644 (file)
--- a/Open-ILS/src/templates/opac/parts/record/summary.tt2
+++ b/Open-ILS/src/templates/opac/parts/record/summary.tt2
@@ -148,6 +148,17 @@ IF num_uris > 0;
 </div>
 [%- END %]
 
+[%- IF ctx.page == 'metarecord' %]
+[%# link to list of metarecord constituent records %]
+<div>
+  <br/>
+  <a class="bold"
+    href="[% mkurl(ctx.opac_root _ '/results', {metarecord => ctx.metarecord_id}) %]">
+    [% l('View All Formats and Editions') %]
+  </a>     
+</div>
+[%- END %]
+
 <h2 id='rdetail_record_details'>[% l("Record details") %]</h2>
 <ul>
     [%- IF attrs.isbns.0; FOR isbn IN attrs.isbns %]
@@ -227,4 +238,4 @@ IF num_uris > 0;
 [%- INCLUDE "opac/parts/record/contents.tt2" %]
 [%- INCLUDE "opac/parts/record/subjects.tt2" %]
 [%- INCLUDE "opac/parts/record/series.tt2" %]
-[%- INCLUDE "opac/parts/record/extras.tt2" %]
+[%- INCLUDE "opac/parts/record/extras.tt2" UNLESS ctx.page == 'metarecord' -%]