[Koha-cvs] koha/C4 Circulation.pm
Henri-Damien LAURENT
laurenthdl at alinto.com
Wed Apr 25 16:09:10 CEST 2007
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 ( \@GetItemIssues );
}
-=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 ( \@GetBorrowerIssues );
-}
-
=head2 GetBiblioIssues
$issues = GetBiblioIssues($biblionumber);
More information about the Koha-cvs
mailing list