|
Lines 264-270
sub do_check_for_previous_checkout {
Link Here
|
| 264 |
return $old_issues->count; # 0 || N |
264 |
return $old_issues->count; # 0 || N |
| 265 |
} |
265 |
} |
| 266 |
|
266 |
|
| 267 |
=head2 is_debarred |
267 |
=head3 is_debarred |
| 268 |
|
268 |
|
| 269 |
my $debarment_expiration = $patron->is_debarred; |
269 |
my $debarment_expiration = $patron->is_debarred; |
| 270 |
|
270 |
|
|
Lines 283-289
sub is_debarred {
Link Here
|
| 283 |
return; |
283 |
return; |
| 284 |
} |
284 |
} |
| 285 |
|
285 |
|
| 286 |
=head2 is_expired |
286 |
=head3 is_expired |
| 287 |
|
287 |
|
| 288 |
my $is_expired = $patron->is_expired; |
288 |
my $is_expired = $patron->is_expired; |
| 289 |
|
289 |
|
|
Lines 299-305
sub is_expired {
Link Here
|
| 299 |
return 0; |
299 |
return 0; |
| 300 |
} |
300 |
} |
| 301 |
|
301 |
|
| 302 |
=head2 is_going_to_expire |
302 |
=head3 is_going_to_expire |
| 303 |
|
303 |
|
| 304 |
my $is_going_to_expire = $patron->is_going_to_expire; |
304 |
my $is_going_to_expire = $patron->is_going_to_expire; |
| 305 |
|
305 |
|
|
Lines 319-325
sub is_going_to_expire {
Link Here
|
| 319 |
return 0; |
319 |
return 0; |
| 320 |
} |
320 |
} |
| 321 |
|
321 |
|
| 322 |
=head2 update_password |
322 |
=head3 update_password |
| 323 |
|
323 |
|
| 324 |
my $updated = $patron->update_password( $userid, $password ); |
324 |
my $updated = $patron->update_password( $userid, $password ); |
| 325 |
|
325 |
|
|
Lines 367-373
sub renew_account {
Link Here
|
| 367 |
return dt_from_string( $expiry_date )->truncate( to => 'day' ); |
367 |
return dt_from_string( $expiry_date )->truncate( to => 'day' ); |
| 368 |
} |
368 |
} |
| 369 |
|
369 |
|
| 370 |
=head2 has_overdues |
370 |
=head3 has_overdues |
| 371 |
|
371 |
|
| 372 |
my $has_overdues = $patron->has_overdues; |
372 |
my $has_overdues = $patron->has_overdues; |
| 373 |
|
373 |
|
|
Lines 381-387
sub has_overdues {
Link Here
|
| 381 |
return $self->_result->issues->search({ date_due => { '<' => $dtf->format_datetime( dt_from_string() ) } })->count; |
381 |
return $self->_result->issues->search({ date_due => { '<' => $dtf->format_datetime( dt_from_string() ) } })->count; |
| 382 |
} |
382 |
} |
| 383 |
|
383 |
|
| 384 |
=head2 track_login |
384 |
=head3 track_login |
| 385 |
|
385 |
|
| 386 |
$patron->track_login; |
386 |
$patron->track_login; |
| 387 |
$patron->track_login({ force => 1 }); |
387 |
$patron->track_login({ force => 1 }); |
|
Lines 400-406
sub track_login {
Link Here
|
| 400 |
$self->lastseen( dt_from_string() )->store; |
400 |
$self->lastseen( dt_from_string() )->store; |
| 401 |
} |
401 |
} |
| 402 |
|
402 |
|
| 403 |
=head2 move_to_deleted |
403 |
=head3 move_to_deleted |
| 404 |
|
404 |
|
| 405 |
my $is_moved = $patron->move_to_deleted; |
405 |
my $is_moved = $patron->move_to_deleted; |
| 406 |
|
406 |
|