Lines 43-49
if ( $response->is_success ) {
Link Here
|
43 |
my $content = $response->decoded_content(); |
43 |
my $content = $response->decoded_content(); |
44 |
my $decoded_json = decode_json($content); |
44 |
my $decoded_json = decode_json($content); |
45 |
my ( $userid, $cookie, $sessionID ) = |
45 |
my ( $userid, $cookie, $sessionID ) = |
46 |
checkauth( $query, 1, { borrow => 1 }, 'opac', $decoded_json->{'email'} ); |
46 |
checkauth( $query, 1, {}, 'opac', $decoded_json->{'email'} ); |
47 |
if ($userid) { # a valid user has logged in |
47 |
if ($userid) { # a valid user has logged in |
48 |
print $query->header( -cookie => $cookie ); |
48 |
print $query->header( -cookie => $cookie ); |
49 |
print $decoded_json; |
49 |
print $decoded_json; |
50 |
- |
|
|