Attachment #168681 for bug #25733

View | Details | Raw Unified | Return to bug 25733
Collapse All | Expand All




    return Koha::Checkouts::ReturnClaims->_new_from_dbic( $return_claims );
}

=head3 unresolved_return_claims

  my $unresolved_return_claims = $patron->unresolved_return_claims;

Returns all unresolved return claims associated with this patron.

=cut

sub unresolved_return_claims {
    my ($self) = @_;
    my $unresolved_return_claims = $self->_result->return_claims_borrowernumbers->search(
        { resolution => undef },
    );
    return Koha::Checkouts::ReturnClaims->_new_from_dbic($unresolved_return_claims);
}

=head3 notice_email_address

  my $email = $patron->notice_email_address;

Lines 2-11 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/patron_messages.inc (-2 / +16 lines)
2	[% USE Branches %]	2	[% USE Branches %]
3	[% USE Categories %]	3	[% USE Categories %]
4	[% SET ClaimReturnedWarningThreshold = Koha.Preference('ClaimReturnedWarningThreshold') %]	4	[% SET ClaimReturnedWarningThreshold = Koha.Preference('ClaimReturnedWarningThreshold') %]
		5	[% SET UnresolvedClaimReturnedWarningThreshold = Koha.Preference('UnresolvedClaimReturnedWarningThreshold') %]
		6
5	[% SET return_claims = patron.return_claims %]	7	[% SET return_claims = patron.return_claims %]
		8	[% SET unresolved_return_claims = patron.unresolved_return_claims %]
6	[% SET logged_in_branchcode = Branches.GetLoggedInBranchcode() %]	9	[% SET logged_in_branchcode = Branches.GetLoggedInBranchcode() %]
7		10
8	[% IF ( has_modifications \|\| warndeparture \|\| returnbeforeexpiry \|\| expired \|\| patron.gonenoaddress \|\| patron.lost \|\| userdebarred \|\| odues \|\| ( return_claims.count > ClaimReturnedWarningThreshold ) \|\| age_limitations \|\| limited_category \|\| charges \|\| charges_guarantors_guarantees \|\| charges_guarantees \|\| credits ) %]	11	[% IF ( has_modifications \|\| warndeparture \|\| returnbeforeexpiry \|\| expired \|\| patron.gonenoaddress \|\| patron.lost \|\| userdebarred \|\| odues \|\| ( return_claims.count > ClaimReturnedWarningThreshold ) \|\| ( unresolved_return_claims.count > UnresolvedClaimReturnedWarningThreshold ) \|\| age_limitations \|\| limited_category \|\| charges \|\| charges_guarantors_guarantees \|\| charges_guarantees \|\| credits ) %]
9	<h3>Attention</h3>	12	<h3>Attention</h3>
10	<ul>	13	<ul>
11	[% IF ( has_modifications ) %]	14	[% IF ( has_modifications ) %]
Lines 103-108 Link Here
103	</li>	106	</li>
104	[% END %]	107	[% END %]
105		108
		109	[% IF unresolved_return_claims.count > UnresolvedClaimReturnedWarningThreshold %]
		110	[% IF unresolved_return_claims.count > 1 %]
		111	<li class="return_claims blocker">
		112	<span class="circ-hlt return-claims">Unresolved return claims:</span> Patron has [% unresolved_return_claims.count \| html %] unresolved RETURN CLAIMS
		113	</li>
		114	[% ELSE %]
		115	<li class="return_claims blocker">
		116	<span class="circ-hlt return-claims">Unresolved return claims:</span> Patron has [% unresolved_return_claims.count \| html %] unresolved RETURN CLAIM
		117	</li>
		118	[% END %]
		119	[% END %]
		120
106	[% IF age_limitations %]	121	[% IF age_limitations %]
107	<li class="invalid_age">	122	<li class="invalid_age">
108	<span class="circ-hlt">Patron's age is incorrect for their category.</span>	123	<span class="circ-hlt">Patron's age is incorrect for their category.</span>
109	-

Return to bug 25733

Lines 1627-1632 sub return_claims { Link Here

(-)a/Koha/Patron.pm (+16 lines)
1627	return Koha::Checkouts::ReturnClaims->_new_from_dbic( $return_claims );	1627	return Koha::Checkouts::ReturnClaims->_new_from_dbic( $return_claims );
1628	}	1628	}
1629		1629
		1630	=head3 unresolved_return_claims
		1631
		1632	my $unresolved_return_claims = $patron->unresolved_return_claims;
		1633
		1634	Returns all unresolved return claims associated with this patron.
		1635
		1636	=cut
		1637
		1638	sub unresolved_return_claims {
		1639	my ($self) = @_;
		1640	my $unresolved_return_claims = $self->_result->return_claims_borrowernumbers->search(
		1641	{ resolution => undef },
		1642	);
		1643	return Koha::Checkouts::ReturnClaims->_new_from_dbic($unresolved_return_claims);
		1644	}
		1645
1630	=head3 notice_email_address	1646	=head3 notice_email_address
1631		1647
1632	my $email = $patron->notice_email_address;	1648	my $email = $patron->notice_email_address;