X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=Koha%2FPatron.pm;h=db2e9acad8592841855f91b08835b1eed3eefd53;hb=cf57457d34eed3a5fe3aff86ad5fbc9c1147cd81;hp=92e70a5b910aa8760f1526336b873d69784f5428;hpb=3d720e9ede3da4cb612d1517c776d5636e12452e;p=srvgit

diff --git a/Koha/Patron.pm b/Koha/Patron.pm
index 92e70a5b91..db2e9acad8 100644
--- a/Koha/Patron.pm
+++ b/Koha/Patron.pm
@@ -512,14 +512,26 @@ sub add_enrolment_fee_if_needed {
 
 =head3 checkouts
 
-my $issues = $patron->checkouts
+my $checkouts = $patron->checkouts
 
 =cut
 
 sub checkouts {
     my ($self) = @_;
-    my $issues = $self->_result->issues;
-    return Koha::Checkouts->_new_from_dbic( $issues );
+    my $checkouts = $self->_result->issues;
+    return Koha::Checkouts->_new_from_dbic( $checkouts );
+}
+
+=head3 old_checkouts
+
+my $old_checkouts = $patron->old_checkouts
+
+=cut
+
+sub old_checkouts {
+    my ($self) = @_;
+    my $old_checkouts = $self->_result->old_issues;
+    return Koha::Old::Checkouts->_new_from_dbic( $old_checkouts );
 }
 
 =head3 get_overdues