From 4f541091f2827b7537dbed9a5b29e1ddcf001f68 Mon Sep 17 00:00:00 2001
From: Chris Sharp <csharp@georgialibraries.org>
Date: Fri, 8 Jan 2021 13:24:02 -0500
Subject: [PATCH] Revert "LP1881607 Angular catalog e-resource links display"

This reverts commit db72e04fb13eba74fc8304bab0db6b5a050615e5.
---
 .../src/eg2/src/app/share/catalog/bib-record.service.ts   |  5 -----
 Open-ILS/src/perlmods/lib/OpenILS/Application/AppUtils.pm | 15 +--------------
 .../src/perlmods/lib/OpenILS/Application/Cat/Authority.pm |  8 +++++++-
 3 files changed, 8 insertions(+), 20 deletions(-)

diff --git a/Open-ILS/src/eg2/src/app/share/catalog/bib-record.service.ts b/Open-ILS/src/eg2/src/app/share/catalog/bib-record.service.ts
index c64357d4cb..ca6007d59b 100644
--- a/Open-ILS/src/eg2/src/app/share/catalog/bib-record.service.ts
+++ b/Open-ILS/src/eg2/src/app/share/catalog/bib-record.service.ts
@@ -17,11 +17,6 @@ export const NAMESPACE_MAPS = {
 export const HOLDINGS_XPATH =
     '/holdings:holdings/holdings:counts/holdings:count';
 
-interface EResourceUrl {
-    href: string;
-    note: string;
-    label: string;
-}
 
 export interface HoldingsSummary {
     org_unit: number;
diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/AppUtils.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/AppUtils.pm
index bc24016a00..97eec3103e 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/AppUtils.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/AppUtils.pm
@@ -1,7 +1,5 @@
 package OpenILS::Application::AppUtils;
 use strict; use warnings;
-use MARC::Record;
-use MARC::File::XML (BinaryEncoding => 'utf8', RecordFormat => 'USMARC');
 use OpenILS::Application;
 use base qw/OpenILS::Application/;
 use OpenSRF::Utils::Cache;
@@ -25,7 +23,7 @@ use Digest::MD5 qw(md5_hex);
 # Pile of utilty methods used accross applications.
 # ---------------------------------------------------------------------------
 my $cache_client = "OpenSRF::Utils::Cache";
-my $MARC_NAMESPACE = 'http://www.loc.gov/MARC21/slim';
+
 
 # ---------------------------------------------------------------------------
 # on sucess, returns the created session, on failure throws ERROR exception
@@ -2448,16 +2446,5 @@ sub verify_migrated_user_password {
 }
 
 
-# generate a MARC XML document from a MARC XML string
-sub marc_xml_to_doc {
-    my ($class, $xml) = @_;
-    my $marc_doc = XML::LibXML->new->parse_string($xml);
-    $marc_doc->documentElement->setNamespace($MARC_NAMESPACE, 'marc', 1);
-    $marc_doc->documentElement->setNamespace($MARC_NAMESPACE);
-    return $marc_doc;
-}
-
-
-
 1;
 
diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/Authority.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/Authority.pm
index 746f528150..82d04f56e9 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/Authority.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/Authority.pm
@@ -11,13 +11,19 @@ use OpenILS::Utils::Fieldmapper;
 use OpenILS::Const qw/:const/;
 use OpenILS::Event;
 my $U = 'OpenILS::Application::AppUtils';
+my $MARC_NAMESPACE = 'http://www.loc.gov/MARC21/slim';
+
 
 # generate a MARC XML document from a MARC XML string
 sub marc_xml_to_doc {
     my $xml = shift;
-    return $U->marc_xml_to_doc($xml);
+    my $marc_doc = XML::LibXML->new->parse_string($xml);
+    $marc_doc->documentElement->setNamespace($MARC_NAMESPACE, 'marc', 1);
+    $marc_doc->documentElement->setNamespace($MARC_NAMESPACE);
+    return $marc_doc;
 }
 
+
 __PACKAGE__->register_method(
     method  => 'import_authority_record',
     api_name    => 'open-ils.cat.authority.record.import',
-- 
2.11.0