[Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.75,1.76

[doXulting]

Update of /cvsroot/koha/koha/C4/Circulation
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31283/C4/Circulation

Modified Files:
        Circ2.pm 
Log Message:
Premier commit JB34. Verification du nombre maximum de livre a emprunter.

Index: Circ2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.75
retrieving revision 1.76
diff -C2 -r1.75 -r1.76
*** Circ2.pm    4 May 2004 16:15:56 -0000       1.75
--- Circ2.pm    24 May 2004 12:14:38 -0000      1.76
***************
*** 590,593 ****
--- 590,597 ----
  sticky due date is invalid
  
+ =head3 TOO_MUCH
+ 
+ if the borrower borrows to much things
+ 
  =cut
  
***************
*** 595,598 ****
--- 599,639 ----
  # returns an array with errors if any
  
+ sub HowManyBurrows ($){
+     my $borrower = shift;
+     my $dbh = C4::Context->dbh;
+     
+     my $sth = $dbh->prepare('select COUNT(borrowernumber) 
nombre_livre_emprunte from issues where borrowernumber = ?');
+     $sth->execute($borrower->{'borrowernumber'});
+     my $data = $sth->fetchrow;
+     return $data;
+ }
+ 
+ sub NumberBurrowsOk(@)
+ {
+     (my $biblionbr, my $cat) = @_;
+     my $dbh = C4::Context->dbh;
+ 
+     my $sth = $dbh->prepare('select itemtype from biblioitems where 
biblionumber = ?');
+     $sth->execute($biblionbr);
+     my $data = $sth->fetchrow;
+     $sth = $dbh->prepare('select maxissueqty from issuingrules where 
categorycode = ? and itemtype = ?');
+     $sth->execute($cat, $data);
+     my $value = $sth->fetchrow;
+     return $value if (defined($value));
+     $sth = $dbh->prepare('select maxissueqty from issuingrules where 
categorycode = "*" and itemtype = ?');
+     $sth->execute($data);
+     $value = $sth->fetchrow;
+     return $value if (defined($value));
+     $sth = $dbh->prepare('select maxissueqty from issuingrules where 
categorycode = ? and itemtype = "*"');
+     $sth->execute($cat);
+     $value = $sth->fetchrow;
+     return $value if (defined($value));
+     $sth = $dbh->prepare('select maxissueqty from issuingrules where 
categorycode = "*" and itemtype = "*"');
+     $sth->execute();
+     $value = $sth->fetchrow;
+     return $value if (defined($value));
+     return 5; # valeur max par default si la base est endommagee
+ }
+ 
  sub canbookbeissued {
        my ($env,$borrower,$barcode,$year,$month,$day) = @_;
***************
*** 630,633 ****
--- 671,683 ----
        }
  
+ 
+ #
+ # JB34 CHECK IF BORROWERS DONT HAVE ISSUE TOO MANY BOOKS
+ #
+ 
+       $needsconfirmation{TOO_MUCH} = 1 
+       if (HowManyBurrows($borrower) > 
NumberBurrowsOk($iteminformation->{'biblionumber'}, 
+                                                           
$borrower->{'categorycode'}));
+ 
  #
  # ITEM CHECKING
***************
*** 649,652 ****
--- 699,704 ----
        }
  
+           
+ 
  #
  # CHECK IF BOOK ALREADY ISSUED TO THIS BORROWER
***************
*** 665,669 ****
  # issued to someone else
                my $currborinfo = getpatroninformation(0,$currentborrower);
!               warn "=>.$currborinfo->{'firstname'} $currborinfo->{'surname'} 
($currborinfo->{'cardnumber'})";
                $needsconfirmation{ISSUED_TO_ANOTHER} = 
"$currborinfo->{'reservedate'} : $currborinfo->{'firstname'} 
$currborinfo->{'surname'} ($currborinfo->{'cardnumber'})";
        }
--- 717,721 ----
  # issued to someone else
                my $currborinfo = getpatroninformation(0,$currentborrower);
! #             warn "=>.$currborinfo->{'firstname'} $currborinfo->{'surname'} 
($currborinfo->{'cardnumber'})";
                $needsconfirmation{ISSUED_TO_ANOTHER} = 
"$currborinfo->{'reservedate'} : $currborinfo->{'firstname'} 
$currborinfo->{'surname'} ($currborinfo->{'cardnumber'})";
        }
***************
*** 716,720 ****
  #     my ($borrower, $flags) = &getpatroninformation($env, $borrowernumber, 
0);
        my $iteminformation = getiteminformation($env, 0, $barcode);
!               warn "B : ".$borrower->{borrowernumber}." / I : 
".$iteminformation->{'itemnumber'};
  #
  # check if we just renew the issue.
--- 768,772 ----
  #     my ($borrower, $flags) = &getpatroninformation($env, $borrowernumber, 
0);
        my $iteminformation = getiteminformation($env, 0, $barcode);
! #             warn "B : ".$borrower->{borrowernumber}." / I : 
".$iteminformation->{'itemnumber'};
  #
  # check if we just renew the issue.