From 6e89d1fc2704514612044998a0b3ed831c3aae5f Mon Sep 17 00:00:00 2001
From: Chris Sharp <csharp@georgialibraries.org>
Date: Mon, 20 Jul 2020 10:35:45 -0400
Subject: [PATCH] Disable KCLS BiblioCommons bits

---
 .../perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm  | 104 ++++++++++-----------
 1 file changed, 52 insertions(+), 52 deletions(-)

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm
index eda9c13871..808cf43f90 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Ecard.pm
@@ -21,9 +21,9 @@ my $PROVISIONAL_ECARD_GRP = 951;
 my $FULL_ECARD_GRP = 952;
 my $ECARD_VERIFY_IDENT = 102;
 
-my $HEADER_FOOTER_URL = 
-    'https://kcls.bibliocommons.com/widgets/external_templates.json';
-my $HEADER_FOOTER_TIMEOUT = 5;
+#my $HEADER_FOOTER_URL = 
+#    'https://kcls.bibliocommons.com/widgets/external_templates.json';
+#my $HEADER_FOOTER_TIMEOUT = 5;
 
 my @api_fields = (
     {name => 'vendor_username', required => 1},
@@ -68,7 +68,7 @@ sub load_ecard_form {
     my $ctx = $self->ctx;
     my $cgi = $self->cgi;
 
-    $self->collect_header_footer;
+#    $self->collect_header_footer;
     return Apache2::Const::OK;
 }
 
@@ -76,7 +76,7 @@ sub load_ecard_form {
 sub load_ecard_verify {
     my $self = shift;
     my $cgi = $self->cgi;
-    $self->collect_header_footer;
+#    $self->collect_header_footer;
 
     # Loading the form.
     return Apache2::Const::OK if $cgi->request_method eq 'GET';
@@ -636,50 +636,50 @@ sub save_user {
     return 1;
 }
 
-my %bc_parts; # cache
-my @bc_part_keys = qw/css screen_reader_navigation header footer js/;
-sub collect_header_footer {
-    my $self = shift;
-
-    # kiosk == no header/footer
-    return if $self->cgi->param('kiosk');
-
-    if ($bc_parts{header}) {
-        $self->ctx->{"bc_$_"} = $bc_parts{$_} for @bc_part_keys;
-        return;
-    }
-
-    my $agent = LWP::UserAgent->new(timeout => 5);
-    my $res = $agent->get($HEADER_FOOTER_URL); 
-    $logger->info("Self-reg header/footer request returned code ".$res->code);
-    
-    if (!$res->is_success) {
-        $logger->error("Self-reg header/footer request ".
-          "[$HEADER_FOOTER_URL] failed with error " . $res->status_line);
-
-        return;
-    }
-
-    my $json = $res->content;
-
-    if (!$json) {
-        $logger->error("Self-reg header/footer ".
-            "[$HEADER_FOOTER_URL] returned an empty response");
-        return;
-    }
-        
-
-    my $blob;
-    eval { $blob = OpenSRF::Utils::JSON->JSON2perl($json) };
-
-    if ($@) {
-        $logger->error("Self-reg header/footer ".
-            "[$HEADER_FOOTER_URL] returned invalid JSON : $@");
-        return;
-    }
-
-    $self->ctx->{"bc_$_"} = $bc_parts{$_} = $blob->{$_} for @bc_part_keys;
-}
-
-1;
-
+#my %bc_parts; # cache
+#my @bc_part_keys = qw/css screen_reader_navigation header footer js/;
+#sub collect_header_footer {
+#    my $self = shift;
+#
+#    # kiosk == no header/footer
+#    return if $self->cgi->param('kiosk');
+#
+#    if ($bc_parts{header}) {
+#        $self->ctx->{"bc_$_"} = $bc_parts{$_} for @bc_part_keys;
+#        return;
+#    }
+#
+#    my $agent = LWP::UserAgent->new(timeout => 5);
+#    my $res = $agent->get($HEADER_FOOTER_URL); 
+#    $logger->info("Self-reg header/footer request returned code ".$res->code);
+#    
+#    if (!$res->is_success) {
+#        $logger->error("Self-reg header/footer request ".
+#          "[$HEADER_FOOTER_URL] failed with error " . $res->status_line);
+#
+#        return;
+#    }
+#
+#    my $json = $res->content;
+#
+#    if (!$json) {
+#        $logger->error("Self-reg header/footer ".
+#            "[$HEADER_FOOTER_URL] returned an empty response");
+#        return;
+#    }
+#        
+#
+#    my $blob;
+#    eval { $blob = OpenSRF::Utils::JSON->JSON2perl($json) };
+#
+#    if ($@) {
+#        $logger->error("Self-reg header/footer ".
+#            "[$HEADER_FOOTER_URL] returned invalid JSON : $@");
+#        return;
+#    }
+#
+#    $self->ctx->{"bc_$_"} = $bc_parts{$_} = $blob->{$_} for @bc_part_keys;
+#}
+#
+#1;
+#
-- 
2.11.0