Lines 44-51
if ( $response->is_success ) {
Link Here
|
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, { borrow => 1 }, 'opac', $decoded_json->{'email'} ); |
47 |
print $query->header( -cookie => $cookie ); |
47 |
if ($userid) { # a valid user has logged in |
48 |
print $decoded_json; |
48 |
print $query->header( -cookie => $cookie ); |
|
|
49 |
print $decoded_json; |
50 |
} |
51 |
else { |
52 |
# logged in with an email that isn't associated with a borrower |
53 |
die "Email not associated with a borrower"; |
54 |
} |
49 |
} |
55 |
} |
50 |
else { |
56 |
else { |
51 |
warn $response->status_line, "\n"; |
57 |
warn $response->status_line, "\n"; |
52 |
- |
|
|