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