X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=reserve%2Fplacerequest.pl;h=89c591d55bfeecb2508aed80f58c985efef382cb;hb=7aeec1bfef47ea83ceeb51d552c1f5e537a1b84c;hp=00474b9e07274a283e5e17b98d536e63596d6182;hpb=c0a44fe1151c38ee58514f418d8b127729849a94;p=koha-ffzg.git diff --git a/reserve/placerequest.pl b/reserve/placerequest.pl index 00474b9e07..89c591d55b 100755 --- a/reserve/placerequest.pl +++ b/reserve/placerequest.pl @@ -1,97 +1,143 @@ #!/usr/bin/perl #script to place reserves/requests -#writen 2/1/00 by chris@katipo.oc.nz +#written 2/1/00 by chris@katipo.oc.nz # Copyright 2000-2002 Katipo Communications # # This file is part of Koha. # -# Koha is free software; you can redistribute it and/or modify it under the -# terms of the GNU General Public License as published by the Free Software -# Foundation; either version 2 of the License, or (at your option) any later -# version. +# Koha is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. # -# Koha is distributed in the hope that it will be useful, but WITHOUT ANY -# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR -# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# Koha is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA +# You should have received a copy of the GNU General Public License +# along with Koha; if not, see . -use strict; -#use DBI; -use C4::Search; +use Modern::Perl; + +use CGI qw ( -utf8 ); use C4::Biblio; -use CGI; +use C4::Items; use C4::Output; -use C4::Reserves2; -use C4::Circulation::Circ2; +use C4::Reserves; +use C4::Circulation; use C4::Members; +use C4::Auth qw/checkauth/; + +use Koha::Items; +use Koha::Patrons; + +my $input = CGI->new(); + +checkauth($input, 0, { reserveforothers => 'place_holds' }, 'intranet'); + +my @bibitems = $input->multi_param('biblioitem'); +my @reqbib = $input->multi_param('reqbib'); +my $biblionumber = $input->param('biblionumber'); +my $borrowernumber = $input->param('borrowernumber'); +my $notes = $input->param('notes'); +my $branch = $input->param('pickup'); +my $startdate = $input->param('reserve_date') || ''; +my @rank = $input->multi_param('rank-request'); +my $type = $input->param('type'); +my $title = $input->param('title'); +my $checkitem = $input->param('checkitem'); +my $expirationdate = $input->param('expiration_date'); +my $itemtype = $input->param('itemtype') || undef; + +my $borrower = Koha::Patrons->find( $borrowernumber ); +$borrower = $borrower->unblessed if $borrower; + +my $multi_hold = $input->param('multi_hold'); +my $biblionumbers = $multi_hold ? $input->param('biblionumbers') : ($biblionumber . '/'); +my $bad_bibs = $input->param('bad_bibs'); +my $holds_to_place_count = $input->param('holds_to_place_count') || 1; + +my %bibinfos = (); +my @biblionumbers = split '/', $biblionumbers; +foreach my $bibnum (@biblionumbers) { + my %bibinfo = (); + $bibinfo{title} = $input->param("title_$bibnum"); + $bibinfo{rank} = $input->param("rank_$bibnum"); + $bibinfos{$bibnum} = \%bibinfo; +} -my $input = new CGI; -#print $input->header; - -my @bibitems=$input->param('biblioitem'); -my @reqbib=$input->param('reqbib'); -my $biblio=$input->param('biblio'); -my $borrower=$input->param('member'); -my $notes=$input->param('notes'); -my $branch=$input->param('pickup'); -my @rank=$input->param('rank-request'); -my $type=$input->param('type'); -my $title=$input->param('title'); -my $bornum=borrdata($borrower,''); -# Nouveau developpement -my $checkitem=$input->param('checkitem'); -# my $priority; my $found; -#new op : if we have an item selectionned, and the pickup branch is the same as the holdingbranch of the document, we force the value $rank and $found . -if ($checkitem ne ''){ - $rank[0] = '0'; - my %env; - my $item = $checkitem; - $item = getiteminformation(\%env,$item); - if ( $item->{'holdingbranch'} eq $branch ){ - $found = 'W'; - } +if ( $type eq 'str8' && $borrower ) { + + foreach my $biblionumber ( keys %bibinfos ) { + my $count = @bibitems; + @bibitems = sort @bibitems; + my $i2 = 1; + my @realbi; + $realbi[0] = $bibitems[0]; + for ( my $i = 1 ; $i < $count ; $i++ ) { + my $i3 = $i2 - 1; + if ( $realbi[$i3] ne $bibitems[$i] ) { + $realbi[$i2] = $bibitems[$i]; + $i2++; + } + } + + my $can_override = C4::Context->preference('AllowHoldPolicyOverride'); + if ( defined $checkitem && $checkitem ne '' ) { + + my $item = Koha::Items->find($checkitem); + + if ( $item->biblionumber ne $biblionumber ) { + $biblionumber = $item->biblionumber; + } + + my $can_item_be_reserved = CanItemBeReserved($borrower->{'borrowernumber'}, $item->itemnumber, $branch)->{status}; + + if ( $can_item_be_reserved eq 'OK' || ( $can_item_be_reserved ne 'itemAlreadyOnHold' && $can_override ) ) { + AddReserve( $branch, $borrower->{'borrowernumber'}, + $biblionumber, \@realbi, $rank[0], $startdate, $expirationdate, $notes, $title, + $checkitem, $found, $itemtype ); + } + } elsif ($multi_hold) { + my $bibinfo = $bibinfos{$biblionumber}; + if ( $can_override || CanBookBeReserved($borrower->{'borrowernumber'}, $biblionumber)->{status} eq 'OK' ) { + AddReserve($branch,$borrower->{'borrowernumber'},$biblionumber,[$biblionumber], + $bibinfo->{rank},$startdate,$expirationdate,$notes,$bibinfo->{title},$checkitem,$found); + } + } else { + # place a request on 1st available + for ( my $i = 0 ; $i < $holds_to_place_count ; $i++ ) { + if ( $can_override || CanBookBeReserved($borrower->{'borrowernumber'}, $biblionumber)->{status} eq 'OK' ) { + AddReserve( $branch, $borrower->{'borrowernumber'}, + $biblionumber, \@realbi, $rank[0], $startdate, $expirationdate, $notes, $title, + $checkitem, $found, $itemtype ); + } + } + } + } + if ($multi_hold) { + if ($bad_bibs) { + $biblionumbers .= $bad_bibs; + } + print $input->redirect("request.pl?biblionumbers=$biblionumbers&multi_hold=1"); + } + else { + print $input->redirect("request.pl?biblionumber=$biblionumber"); + } } +elsif ( $borrowernumber eq '' ) { + print $input->header(); + print "Invalid borrower number please try again"; -# END of new op . - -if ($type eq 'str8' && $bornum ne ''){ - my $count=@bibitems; - @bibitems=sort @bibitems; - my $i2=1; - my @realbi; - $realbi[0]=$bibitems[0]; - for (my $i=1;$i<$count;$i++) { - my $i3=$i2-1; - if ($realbi[$i3] ne $bibitems[$i]) { - $realbi[$i2]=$bibitems[$i]; - $i2++; - } - } - my $env; - my $const; - if ($input->param('request') eq 'any'){ - $const='a'; - CreateReserve(\$env,$branch,$bornum->{'borrowernumber'},$biblio,$const,\@realbi,$rank[0],$notes,$title,$checkitem,$found); - } elsif ($reqbib[0] ne ''){ - $const='o'; - CreateReserve(\$env,$branch,$bornum->{'borrowernumber'},$biblio,$const,\@reqbib,$rank[0],$notes,$title,$checkitem, $found); - } else { - CreateReserve(\$env,$branch,$bornum->{'borrowernumber'},$biblio,'a',\@realbi,$rank[0],$notes,$title,$checkitem, $found); - } - -print $input->redirect("request.pl?bib=$biblio"); -} elsif ($bornum eq ''){ - print $input->header(); - print "Invalid card number please try again"; - print $input->Dump; + # Not sure that Dump() does HTML escaping. Use firebug or something to trace + # instead. + #print $input->Dump; }