|
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 |
- |
|
|