@@ -, +, @@ --- Koha/Patron.pm | 15 +++++++++ .../prog/en/includes/patron_messages.inc | 31 +++++++++++++++++++ t/db_dependent/Koha/CurbsidePickups.t | 3 +- 3 files changed, 48 insertions(+), 1 deletion(-) --- a/Koha/Patron.pm +++ a/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 --- a/koha-tmpl/intranet-tmpl/prog/en/includes/patron_messages.inc +++ a/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 ) %]