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 76e7282..91bfe8b 100644 (file)
--- 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();