Main Koha release repository
https://koha-community.org
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
212 lines
5.1 KiB
212 lines
5.1 KiB
package Koha::Patron::Category;
|
|
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it
|
|
# under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but
|
|
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with Koha; if not, see <http://www.gnu.org/licenses>.
|
|
|
|
use Modern::Perl;
|
|
|
|
use List::MoreUtils qw( any );
|
|
|
|
use C4::Members::Messaging;
|
|
|
|
use Koha::Database;
|
|
use Koha::DateUtils qw( dt_from_string );
|
|
|
|
use base qw(Koha::Object Koha::Object::Limit::Library);
|
|
|
|
=head1 NAME
|
|
|
|
Koha::Patron;;Category - Koha Patron;;Category Object class
|
|
|
|
=head1 API
|
|
|
|
=head2 Class Methods
|
|
|
|
=cut
|
|
|
|
=head3 effective_BlockExpiredPatronOpacActions
|
|
|
|
my $BlockExpiredPatronOpacActions = $category->effective_BlockExpiredPatronOpacActions
|
|
|
|
Return the effective BlockExpiredPatronOpacActions value.
|
|
|
|
=cut
|
|
|
|
sub effective_BlockExpiredPatronOpacActions {
|
|
my( $self) = @_;
|
|
return C4::Context->preference('BlockExpiredPatronOpacActions') if $self->BlockExpiredPatronOpacActions == -1;
|
|
return $self->BlockExpiredPatronOpacActions
|
|
}
|
|
|
|
=head3 store
|
|
|
|
=cut
|
|
|
|
sub store {
|
|
my ($self) = @_;
|
|
|
|
$self->dateofbirthrequired(undef)
|
|
if not defined $self->dateofbirthrequired
|
|
or $self->dateofbirthrequired eq '';
|
|
|
|
$self->upperagelimit(undef)
|
|
if not defined $self->upperagelimit
|
|
or $self->upperagelimit eq '';
|
|
|
|
$self->checkprevcheckout('inherit')
|
|
unless defined $self->checkprevcheckout;
|
|
|
|
return $self->SUPER::store;
|
|
}
|
|
|
|
=head3 default_messaging
|
|
|
|
my $messaging = $category->default_messaging();
|
|
|
|
=cut
|
|
|
|
sub default_messaging {
|
|
my ( $self ) = @_;
|
|
my $messaging_options = C4::Members::Messaging::GetMessagingOptions();
|
|
my @messaging;
|
|
foreach my $option (@$messaging_options) {
|
|
my $pref = C4::Members::Messaging::GetMessagingPreferences(
|
|
{
|
|
categorycode => $self->categorycode,
|
|
message_name => $option->{message_name}
|
|
}
|
|
);
|
|
next unless $pref->{transports};
|
|
my $brief_pref = {
|
|
message_attribute_id => $option->{message_attribute_id},
|
|
message_name => $option->{message_name},
|
|
$option->{'message_name'} => 1,
|
|
};
|
|
foreach my $transport ( keys %{ $pref->{transports} } ) {
|
|
push @{ $brief_pref->{transports} }, { transport => $transport };
|
|
}
|
|
push @messaging, $brief_pref;
|
|
}
|
|
return \@messaging;
|
|
}
|
|
|
|
sub get_expiry_date {
|
|
my ($self, $date ) = @_;
|
|
if ( $self->enrolmentperiod ) {
|
|
$date ||= dt_from_string;
|
|
$date = dt_from_string( $date ) unless ref $date;
|
|
return $date->add( months => $self->enrolmentperiod, end_of_month => 'limit' );
|
|
} else {
|
|
return $self->enrolmentperioddate;
|
|
}
|
|
}
|
|
|
|
=head3 effective_reset_password
|
|
|
|
Returns if patrons in this category can reset their password. If set in $self->reset_password
|
|
or, if undef, falls back to the OpacResetPassword system preference.
|
|
|
|
=cut
|
|
|
|
sub effective_reset_password {
|
|
my ($self) = @_;
|
|
|
|
return $self->reset_password // C4::Context->preference('OpacResetPassword');
|
|
}
|
|
|
|
=head3 effective_change_password
|
|
|
|
Returns if patrons in this category can change their password. If set in $self->change_password
|
|
or, if undef, falls back to the OpacPasswordChange system preference.
|
|
|
|
=cut
|
|
|
|
sub effective_change_password {
|
|
my ($self) = @_;
|
|
|
|
return $self->change_password // C4::Context->preference('OpacPasswordChange');
|
|
}
|
|
|
|
=head3 effective_min_password_length
|
|
|
|
$category->effective_min_password_length()
|
|
|
|
Retrieve category's password length if set, or minPasswordLength otherwise
|
|
|
|
=cut
|
|
|
|
sub effective_min_password_length {
|
|
my ($self) = @_;
|
|
|
|
return $self->min_password_length // C4::Context->preference('minPasswordLength');
|
|
}
|
|
|
|
=head3 effective_require_strong_password
|
|
|
|
$category->effective_require_strong_password()
|
|
|
|
Retrieve category's password strength if set, or RequireStrongPassword otherwise
|
|
|
|
=cut
|
|
|
|
sub effective_require_strong_password {
|
|
my ($self) = @_;
|
|
|
|
return $self->require_strong_password // C4::Context->preference('RequireStrongPassword');
|
|
}
|
|
|
|
=head3 override_hidden_items
|
|
|
|
if ( $patron->category->override_hidden_items ) {
|
|
...
|
|
}
|
|
|
|
Returns a boolean that if patrons of this category are exempt from the OPACHiddenItems policies
|
|
|
|
TODO: Remove on bug 22547
|
|
|
|
=cut
|
|
|
|
sub override_hidden_items {
|
|
my ($self) = @_;
|
|
return any { $_ eq $self->categorycode }
|
|
split( /\|/, C4::Context->preference('OpacHiddenItemsExceptions') );
|
|
}
|
|
|
|
=head2 Internal methods
|
|
|
|
=head3 _library_limits
|
|
|
|
configure library limits
|
|
|
|
=cut
|
|
|
|
sub _library_limits {
|
|
return {
|
|
class => "CategoriesBranch",
|
|
id => "categorycode",
|
|
library => "branchcode",
|
|
};
|
|
}
|
|
|
|
=head3 type
|
|
|
|
=cut
|
|
|
|
sub _type {
|
|
return 'Category';
|
|
}
|
|
|
|
1;
|
|
|