diff --git a/Koha/Patron.pm b/Koha/Patron.pm index 0a165ae0d1..8031257304 100644 --- a/Koha/Patron.pm +++ b/Koha/Patron.pm @@ -39,6 +39,7 @@ use Koha::DateUtils qw( dt_from_string ); use Koha::Encryption; use Koha::Exceptions::Password; use Koha::Holds; +use Koha::CurbsidePickups; use Koha::Old::Checkouts; use Koha::Patron::Attributes; use Koha::Patron::Categories; @@ -1311,6 +1312,20 @@ sub old_holds { return Koha::Old::Holds->_new_from_dbic($old_holds_rs); } +=head3 curbside_pickups + +my $curbside_pickups = $patron->curbside_pickups; + +Return all the curbside pickups for this patron + +=cut + +sub curbside_pickups { + my ($self) = @_; + my $curbside_pickups_rs = $self->_result->curbside_pickups_borrowernumbers->search; + return Koha::CurbsidePickups->_new_from_dbic($curbside_pickups_rs); +} + =head3 return_claims my $return_claims = $patron->return_claims diff --git a/koha-tmpl/intranet-tmpl/prog/en/includes/patron_messages.inc b/koha-tmpl/intranet-tmpl/prog/en/includes/patron_messages.inc index 6f6f6704c9..ffec80fbac 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/includes/patron_messages.inc +++ b/koha-tmpl/intranet-tmpl/prog/en/includes/patron_messages.inc @@ -1,3 +1,4 @@ +[% USE raw %] [% SET ClaimReturnedWarningThreshold = Koha.Preference('ClaimReturnedWarningThreshold') %] [% SET return_claims = patron.return_claims %] [% SET logged_in_branchcode = Branches.GetLoggedInBranchcode() %] @@ -246,6 +247,36 @@ [% END # /IF WaitingHolds.count %] +[% IF Koha.Preference("CurbsidePickup") %] + [% SET curbside_pickups = patron.curbside_pickups.search( branchcode => logged_in_user.branchcode ) %] + [% IF curbside_pickups.count %] +
+ [% END %] +[% END %] + [% IF ( patron.borrowernotes ) %]