Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Merging Katipo changes.

Browse source 
Adding CalcHLTReserveFee(), and change to CreateReserve().
This commit is contained in:
sushi 2006-06-06 23:49:26 +00:00
parent e12623fd0b
commit 1a7c82488a
1 changed files with 53 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

55
C4/Reserves2.pm
View file

@ -27,8 +27,8 @@ require Exporter;
use DBI;
use C4::Context;
use C4::Biblio;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
my $library_name = C4::Context->preference("LibraryName");
# set the version for version checking
$VERSION = 0.01;
@ -73,6 +73,8 @@ FIXME
&OtherReserves
GetFirstReserveDateFromItem
GetNumberReservesFromBorrower
# fixpriority is used only used internally, and by reorder_reserve.pl
);
# make all your functions, whether exported or not;
@ -694,7 +696,12 @@ sub Findgroupreserve {
# XXX - POD
sub CreateReserve {
my ($env,$branch,$borrnum,$biblionumber,$constraint,$bibitems,$priority,$notes,$title,$checkitem,$found)= @_;
my $fee=CalcReserveFee($env,$borrnum,$biblionumber,$constraint,$bibitems);
my $fee;
if($library_name =~ /Horowhenua/){
$fee = CalcHLTReserveFee($env,$borrnum,$biblionumber,$constraint,$bibitems);
} else {
$fee = CalcReserveFee($env,$borrnum,$biblionumber,$constraint,$bibitems);
}
my $dbh = C4::Context->dbh;
my $const = lc substr($constraint,0,1);
my @datearr = localtime(time);
@ -824,6 +831,50 @@ sub CalcReserveFee {
return $fee;
}
# The following are junior and young adult item types that should not incur a
# reserve charge.
#
# Juniors: BJC, BJCN, BJF, BJK, BJM, BJN, BJP, BJSF, BJSN, DJ, DJP, FJ, JVID,
# VJ, VJP, PJ, TJ, TJP, VJ, VJP.
#
# Young adults: BYF, BYN, BYP, DY, DYP, PY, PYP, TY, TYP, VY, VYP.
#
# All other item types should incur a reserve charge.
sub CalcHLTReserveFee {
my ($env,$borrnum,$biblionumber,$constraint,$bibitems) = @_;
my $dbh = C4::Context->dbh;
my $sth = $dbh->prepare("SELECT * FROM borrowers,categories
WHERE (borrowernumber = ?)
AND (borrowers.categorycode = categories.categorycode)");
$sth->execute($borrnum);
my $data = $sth->fetchrow_hashref;
$sth->finish();
my $fee = $data->{'reservefee'};
my $matchno;
my @nocharge = qw/BJC BJCN BJF BJK BJM BJN BJP BJSF BJSN DJ DJP FJ NJ CJ VJ VJP PJ TJ TJP BYF BYN BYP DY DYP PY PYP TY TYP VY VYP/;
my $sth = $dbh->prepare("SELECT * FROM biblio,biblioitems
WHERE (biblio.biblionumber = ?)
AND (biblio.biblionumber = biblioitems.biblionumber)");
$sth->execute($biblionumber);
my $data=$sth->fetchrow_hashref;
my $itemtype = $data->{'itemtype'};
for (my $i = 0; $i < @nocharge; $i++) {
if ($itemtype eq $nocharge[$i]) {
$matchno++;
last;
}
}
if($matchno>0){
$fee = 0;
}
warn "BOB DEBUG: Fee is $fee";
return $fee;
}
# XXX - Internal use
sub getnextacctno {
my ($env,$bornumber,$dbh)=@_;