From f33654827e4be96cdd4158ad02c88ca6b9920e1d Mon Sep 17 00:00:00 2001
From: Bill Erickson <erickson@esilibrary.com>
Date: Mon, 14 Feb 2011 11:47:57 -0500
Subject: [PATCH] added sub to collect the HTML version of a record for display

---
 Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm | 7 +++++++
 1 file changed, 7 insertions(+)

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 ac15a595d1..71c7bd40c2 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Record.pm
@@ -116,4 +116,11 @@ sub mk_copy_query {
     #return $self->editor->json_query($query);
 }
 
+sub mk_marc_html {
+    my($self, $rec_id) = @_;
+
+    $self->ctx->{marc_html} = $U->simplereq(
+        'open-ils.search', 'open-ils.search.biblio.record.html', $rec_id);
+}
+
 1;
-- 
2.11.0