|
Lines 39-44
use Koha::Holds;
Link Here
|
| 39 |
use Koha::Old::Checkouts; |
39 |
use Koha::Old::Checkouts; |
| 40 |
use Koha::Patron::Attributes; |
40 |
use Koha::Patron::Attributes; |
| 41 |
use Koha::Patron::Categories; |
41 |
use Koha::Patron::Categories; |
|
|
42 |
use Koha::Patron::Discharge; |
| 42 |
use Koha::Patron::HouseboundProfile; |
43 |
use Koha::Patron::HouseboundProfile; |
| 43 |
use Koha::Patron::HouseboundRole; |
44 |
use Koha::Patron::HouseboundRole; |
| 44 |
use Koha::Patron::Images; |
45 |
use Koha::Patron::Images; |
|
Lines 693-698
sub is_going_to_expire {
Link Here
|
| 693 |
return 0; |
694 |
return 0; |
| 694 |
} |
695 |
} |
| 695 |
|
696 |
|
|
|
697 |
=head3 is_discharged |
| 698 |
|
| 699 |
my $is_discharged = $patron->is_discharged; |
| 700 |
|
| 701 |
Returns if the patron is currently discharged (1) or not (0). |
| 702 |
|
| 703 |
=cut |
| 704 |
|
| 705 |
sub is_discharged { |
| 706 |
my ($self) = @_; |
| 707 |
|
| 708 |
my $is_discharged = Koha::Patron::Discharge->is_discharged( { borrowernumber => $self->borrowernumber } ); |
| 709 |
return $is_discharged; |
| 710 |
} |
| 711 |
|
| 696 |
=head3 set_password |
712 |
=head3 set_password |
| 697 |
|
713 |
|
| 698 |
$patron->set_password({ password => $plain_text_password [, skip_validation => 1 ] }); |
714 |
$patron->set_password({ password => $plain_text_password [, skip_validation => 1 ] }); |