berick's fix for LP 1032808

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/SIP.pm b/Open-ILS/src/perlmods/lib/OpenILS/SIP.pm
index fe312ff..a639a17 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/SIP.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/SIP.pm
@@ -220,9 +220,11 @@ sub login {
        my $key = $response->{payload}->{authtoken};
        syslog('LOG_INFO', "OILS: Login succeeded for $username : authkey = $key");
 
-    $self->fetch_session; # to cache the login
+       $self->{authtoken} = $key;
 
-       return $self->{authtoken} = $key;
+       $self->fetch_session; # to cache the login
+
+       return $key;
 }