Lines 595-627
sub FirstValidEmailAddress {
Link Here
|
595 |
return $self->email() || $self->emailpro() || $self->b_email() || q{}; |
595 |
return $self->email() || $self->emailpro() || $self->b_email() || q{}; |
596 |
} |
596 |
} |
597 |
|
597 |
|
598 |
=head3 GetClubEnrollments |
598 |
=head3 get_club_enrollments |
599 |
|
599 |
|
600 |
=cut |
600 |
=cut |
601 |
|
601 |
|
602 |
sub GetClubEnrollments { |
602 |
sub get_club_enrollments { |
603 |
my ($self) = @_; |
603 |
my ($self) = @_; |
604 |
|
604 |
|
605 |
return Koha::Club::Enrollments->search( { borrowernumber => $self->borrowernumber(), date_canceled => undef } ); |
605 |
return Koha::Club::Enrollments->search( { borrowernumber => $self->borrowernumber(), date_canceled => undef } ); |
606 |
} |
606 |
} |
607 |
|
607 |
|
608 |
=head3 GetClubEnrollmentsCount |
608 |
=head3 get_club_enrollments_count |
609 |
|
609 |
|
610 |
=cut |
610 |
=cut |
611 |
|
611 |
|
612 |
sub GetClubEnrollmentsCount { |
612 |
sub get_club_enrollments_count { |
613 |
my ($self) = @_; |
613 |
my ($self) = @_; |
614 |
|
614 |
|
615 |
my $e = $self->GetClubEnrollments(); |
615 |
my $e = $self->get_club_enrollments(); |
616 |
|
616 |
|
617 |
return $e->count(); |
617 |
return $e->count(); |
618 |
} |
618 |
} |
619 |
|
619 |
|
620 |
=head3 GetEnrollableClubs |
620 |
=head3 get_enrollable_clubs |
621 |
|
621 |
|
622 |
=cut |
622 |
=cut |
623 |
|
623 |
|
624 |
sub GetEnrollableClubs { |
624 |
sub get_enrollable_clubs { |
625 |
my ( $self, $is_enrollable_from_opac ) = @_; |
625 |
my ( $self, $is_enrollable_from_opac ) = @_; |
626 |
|
626 |
|
627 |
my $params; |
627 |
my $params; |
Lines 631-647
sub GetEnrollableClubs {
Link Here
|
631 |
|
631 |
|
632 |
$params->{borrower} = $self; |
632 |
$params->{borrower} = $self; |
633 |
|
633 |
|
634 |
return Koha::Clubs->GetEnrollable($params); |
634 |
return Koha::Clubs->get_enrollable($params); |
635 |
} |
635 |
} |
636 |
|
636 |
|
637 |
=head3 GetEnrollableClubsCount |
637 |
=head3 get_enrollable_clubs_count |
638 |
|
638 |
|
639 |
=cut |
639 |
=cut |
640 |
|
640 |
|
641 |
sub GetEnrollableClubsCount { |
641 |
sub get_enrollable_clubs_count { |
642 |
my ( $self, $is_enrollable_from_opac ) = @_; |
642 |
my ( $self, $is_enrollable_from_opac ) = @_; |
643 |
|
643 |
|
644 |
my $e = $self->GetEnrollableClubs($is_enrollable_from_opac); |
644 |
my $e = $self->get_enrollable_clubs($is_enrollable_from_opac); |
645 |
|
645 |
|
646 |
return $e->count(); |
646 |
return $e->count(); |
647 |
} |
647 |
} |