[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.75,1.76
From: |
doXulting |
Subject: |
[Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.75,1.76 |
Date: |
Mon, 24 May 2004 05:14:41 -0700 |
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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.75,1.76,
doXulting <=
- Prev by Date:
[Koha-cvs] CVS: koha/misc/translator intranet.zh_TW,1.17.2.44,1.17.2.45 opac.zh_TW,1.8.2.13,1.8.2.14
- Next by Date:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/en/circ circulation.tmpl,1.22,1.23
- Previous by thread:
[Koha-cvs] CVS: koha/misc/translator intranet.zh_TW,1.17.2.44,1.17.2.45 opac.zh_TW,1.8.2.13,1.8.2.14
- Next by thread:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/en/circ circulation.tmpl,1.22,1.23
- Index(es):