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