From 874349d8d0ac448a5e94d443821817c42b3592a0 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Mon, 6 Jan 2014 14:11:01 -0500 Subject: [PATCH] ff: koha svc supports proto and port configs Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/FulfILLment/LAIConnector/Koha.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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(); -- 2.11.0