ff: koha svc supports proto and port configs
authorBill Erickson <berick@esilibrary.com>
Mon, 6 Jan 2014 19:11:01 +0000 (14:11 -0500)
committerBill Erickson <berick@esilibrary.com>
Mon, 6 Jan 2014 19:11:01 +0000 (14:11 -0500)
Signed-off-by: Bill Erickson <berick@esilibrary.com>
Open-ILS/src/perlmods/lib/FulfILLment/LAIConnector/Koha.pm

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