[Koha-cvs] koha/C4 Circulation.pm

[Henri-Damien LAURENT]

CVSROOT:        /cvsroot/koha
Module name:    koha
Changes by:     Henri-Damien LAURENT <hdl>      07/04/25 14:09:10

Modified files:
        C4             : Circulation.pm 

Log message:
        Deleting Sub GetBorrowerIssues.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Circulation.pm?cvsroot=koha&r1=1.21&r2=1.22

Patches:
Index: Circulation.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -b -r1.21 -r1.22
--- Circulation.pm      25 Apr 2007 14:07:34 -0000      1.21
+++ Circulation.pm      25 Apr 2007 14:09:10 -0000      1.22
@@ -17,7 +17,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: Circulation.pm,v 1.21 2007/04/25 14:07:34 hdl Exp $
+# $Id: Circulation.pm,v 1.22 2007/04/25 14:09:10 hdl Exp $
 
 use strict;
 require Exporter;
@@ -43,7 +43,7 @@
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.21 $' =~ /\d+/g; shift(@v).".".join( 
"_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.22 $' =~ /\d+/g; shift(@v).".".join( 
"_", map { sprintf "%03d", $_ } @v ); };
 
 =head1 NAME
 
@@ -1501,53 +1501,6 @@
     return ( address@hidden );
 }
 
-=head2 GetBorrowerIssues
-
-$issues = &GetBorrowerIssues($borrower);
-
-Returns a list of books currently on loan to a patron.
-
-C<$borrower->{borrowernumber}> is the borrower number of the patron
-whose issues we want to list.
-
-C<&GetBorrowerIssues> returns a PHP-style array: C<$issues> is a
-reference-to-hash whose keys are integers in the range 1...I<n>, where
-I<n> is the number of items on issue (either today or before today).
-C<$issues-E<gt>{I<n>}> is a reference-to-hash whose keys are all of
-the fields of the biblio, biblioitems, items, and issues fields of the
-Koha database for that particular item.
-
-=cut
-
-sub GetBorrowerIssues {
-    my ( $borrower ) = @_;
-    my $dbh = C4::Context->dbh;
-    my @GetBorrowerIssues;
-    # get today date
-    my $today = POSIX::strftime("%Y%m%d", localtime);
-
-    my $sth = $dbh->prepare(
-        "SELECT * FROM issues 
-    LEFT JOIN items ON issues.itemnumber=items.itemnumber
-    LEFT JOIN biblio ON     items.biblionumber=biblio.biblionumber 
-    LEFT JOIN biblioitems ON 
items.biblioitemnumber=biblioitems.biblioitemnumber
-    WHERE
-    borrowernumber=? AND returndate IS NULL
-    ORDER BY issues.date_due"
-    );
-    $sth->execute($borrower->{'borrowernumber'});
-    while ( my $data = $sth->fetchrow_hashref ) {
-        my $datedue = $data->{'date_due'};
-        $datedue =~ s/-//g;
-        if ( $datedue < $today ) {
-            $data->{'overdue'} = 1;
-        }
-        push @GetBorrowerIssues, $data;
-    }
-    $sth->finish;
-    return ( address@hidden );
-}
-
 =head2 GetBiblioIssues
 
 $issues = GetBiblioIssues($biblionumber);