From: Bill Erickson <berick@esilibrary.com>
Date: Mon, 6 Jan 2014 19:11:01 +0000 (-0500)
Subject: ff: koha svc supports proto and port configs
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=874349d8d0ac448a5e94d443821817c42b3592a0;p=evergreen%2Fequinox.git

ff: koha svc supports proto and port configs

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

diff --git a/Open-ILS/src/perlmods/lib/FulfILLment/LAIConnector/Koha.pm b/Open-ILS/src/perlmods/lib/FulfILLment/LAIConnector/Koha.pm
index 76e7282e8c..91bfe8b71a 100644
--- a/Open-ILS/src/perlmods/lib/FulfILLment/LAIConnector/Koha.pm
+++ b/Open-ILS/src/perlmods/lib/FulfILLment/LAIConnector/Koha.pm
@@ -18,10 +18,11 @@ sub svc_login {
     my $username = $self->{extra}->{'svc.user'} || $self->{user};
     my $password = $self->{extra}->{'svc.password'} || $self->{passwd};
 
-    # TODO: https (setting)
     my $url = sprintf(
-        "http://%s/cgi-bin/koha/svc", 
-        $self->{extra}->{'svc.host'} || $self->{host}
+        "%s://%s:%s/cgi-bin/koha/svc",
+        $self->{extra}->{'svc.proto'} || $self->{proto} || 'https',
+        $self->{extra}->{'svc.host'} || $self->{host},
+        $self->{extra}->{'svc.port'} || $self->{port} || 443 
     ); 
 
     my $ua = LWP::UserAgent->new();