[Koha-cvs] koha/C4/Circulation Circ2.pm [rel_3_0]

[Antoine Farnault]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	Antoine Farnault <toins>	06/11/13 11:07:26

Modified files:
	C4/Circulation : Circ2.pm 

Log message:
	New Function : GetIssuesFromBiblio
	This function is used to get easyly the issue list for a book given by its biblionumber.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Circulation/Circ2.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.114.2.12&r2=1.114.2.13

Patches:
Index: Circ2.pm
===================================================================
RCS file: /sources/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.114.2.12
retrieving revision 1.114.2.13
diff -u -b -r1.114.2.12 -r1.114.2.13
--- Circ2.pm	10 Nov 2006 09:43:17 -0000	1.114.2.12
+++ Circ2.pm	13 Nov 2006 11:07:26 -0000	1.114.2.13
@@ -3,7 +3,7 @@
 
 package C4::Circulation::Circ2;
 
-# $Id: Circ2.pm,v 1.114.2.12 2006/11/10 09:43:17 btoumi Exp $
+# $Id: Circ2.pm,v 1.114.2.13 2006/11/13 11:07:26 toins Exp $
 
 #package to deal with Returns
 #written 3/11/99 by olwen at katipo.co.nz
@@ -45,7 +45,7 @@
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.114.2.12 $' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.114.2.13 $' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
 
 =head1 NAME
 
@@ -96,6 +96,7 @@
         &GetOverduesForBranch
         &AddNotifyLine
         &RemoveNotifyLine
+        &GetIssuesFromBiblio
         );
 # &GetBranches &getprinters &getbranch &getprinter => moved to C4::Koha.pm
 
@@ -1755,11 +1756,44 @@
             # they're there for.
     }
     $sth->finish;
-    use Data::Dumper;
-    warn "currentissues==>".Dumper(\%currentissues);
     return(\%currentissues);
 }
 
+=head2 GetIssuesFromBiblio
+
+$issues = GetIssuesFromBiblio($biblionumber);
+
+this function get all issues from a biblionumer.
+
+Return:
+C<$issues> is a reference to array which each value is ref-to-hash. This ref-to-hash containts all column from
+tables issues and the firstname,surname & cardnumber from borrowers.
+
+=cut
+
+sub GetIssuesFromBiblio {
+    my $biblionumber = shift;
+    return undef unless $biblionumber;
+    my $dbh = C4::Context->dbh;
+    my $query = "
+        SELECT issues.*,biblio.biblionumber,biblio.title, biblio.author,borrowers.cardnumber,borrowers.surname,borrowers.firstname
+        FROM issues
+            LEFT JOIN items ON issues.itemnumber = items.itemnumber
+            LEFT JOIN biblio ON biblio.biblionumber = items.itemnumber
+            LEFT JOIN borrowers ON borrowers.borrowernumber = issues.borrowernumber
+        WHERE biblio.biblionumber = ?
+        ORDER BY issues.timestamp
+    ";
+    my $sth = $dbh->prepare($query);
+    $sth->execute($biblionumber);
+    
+    my @issues;
+    while(my $data = $sth->fetchrow_hashref){
+        push @issues,$data;
+    }
+    return \@issues;
+}
+
 =head2 renewstatus
 
 $ok = &renewstatus($env, $dbh, $borrowernumber, $itemnumber);
@@ -2177,13 +2211,16 @@
 }
 
 sub GetReservesForBranch {
-    my($frombranch) = @_;
+    my ($frombranch) = @_;
     my $dbh = C4::Context->dbh;
-        my $sth=$dbh->prepare("SELECT borrowernumber,reservedate,itemnumber,waitingdate FROM
-    reserves 
-    where priority='0' AND cancellationdate is null 
+    my $sth=$dbh->prepare("
+        SELECT borrowernumber,reservedate,itemnumber,waitingdate
+        FROM   reserves 
+        WHERE   priority='0'
+            AND cancellationdate IS NULL 
     AND found='W' 
-    AND branchcode=? order by reservedate");
+            AND branchcode=?
+        ORDER BY reservedate");
     $sth->execute($frombranch);
     my @transreserv;
     my $i=0;