X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=circ%2Fwaitingreserves.pl;h=aae9cbe7d0ea9eb1c69ac3cb8fd8d18e1515d528;hb=1e856e7e7316749f59cb4e721e352b0a60237def;hp=128d1eb2a4ea9cc0dc79b0ae1db7f82084711eaf;hpb=c0234dd9b9649063acf2617fecf5c6efda38a532;p=koha.git diff --git a/circ/waitingreserves.pl b/circ/waitingreserves.pl index 128d1eb2a4..aae9cbe7d0 100755 --- a/circ/waitingreserves.pl +++ b/circ/waitingreserves.pl @@ -5,32 +5,28 @@ # # 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., -# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +# You should have received a copy of the GNU General Public License +# along with Koha; if not, see . -use strict; -use warnings; -use CGI; +use Modern::Perl; +use CGI qw ( -utf8 ); use C4::Context; use C4::Output; -use C4::Branch; # GetBranchName use C4::Auth; -use C4::Dates qw/format_date/; use C4::Circulation; use C4::Members; use C4::Biblio; use C4::Items; - use Date::Calc qw( Today Add_Delta_Days @@ -38,6 +34,11 @@ use Date::Calc qw( ); use C4::Reserves; use C4::Koha; +use Koha::DateUtils; +use Koha::BiblioFrameworks; +use Koha::Items; +use Koha::ItemTypes; +use Koha::Patrons; my $input = new CGI; @@ -46,12 +47,12 @@ my $borrowernumber = $input->param('borrowernumber'); my $fbr = $input->param('fbr') || ''; my $tbr = $input->param('tbr') || ''; my $all_branches = $input->param('allbranches') || ''; +my $cancelall = $input->param('cancelall'); +my $tab = $input->param('tab'); -my $cancel; - -my ( $template, $loggedinuser, $cookie ) = get_template_and_user( +my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user( { - template_name => "circ/waitingreserves.tmpl", + template_name => "circ/waitingreserves.tt", query => $input, type => "intranet", authnotrequired => 0, @@ -62,87 +63,84 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( my $default = C4::Context->userenv->{'branch'}; -# if we have a return from the form we launch the subroutine CancelReserve -if ($item) { - my ( $messages, $nextreservinfo ) = ModReserveCancelAll( $item, $borrowernumber ); - # if we have a result - if ($nextreservinfo) { - my $borrowerinfo = GetMemberDetails( $nextreservinfo ); - my $iteminfo = GetBiblioFromItemNumber($item); - if ( $messages->{'transfert'} ) { - $template->param( - messagetransfert => $messages->{'transfert'}, - branchname => GetBranchName($messages->{'transfert'}), - ); - } +my $transfer_when_cancel_all = C4::Context->preference('TransferWhenCancelAllWaitingHolds'); +$template->param( TransferWhenCancelAllWaitingHolds => 1 ) if $transfer_when_cancel_all; - $template->param( - message => 1, - nextreservnumber => $nextreservinfo, - nextreservsurname => $borrowerinfo->{'surname'}, - nextreservfirstname => $borrowerinfo->{'firstname'}, - nextreservitem => $item, - nextreservtitle => $iteminfo->{'title'}, - waiting => ($messages->{'waiting'}) ? 1 : 0, - ); - } - -# if the document is not in his homebranch location and there is not reservation after, we transfer it - if ($fbr ne $tbr and not $nextreservinfo) { - ModItemTransfer( $item, $fbr, $tbr ); - } +my @cancel_result; +# if we have a return from the form we cancel the holds +if ($item) { + my $res = cancel( $item, $borrowernumber, $fbr, $tbr ); + push @cancel_result, $res if $res; } -if ( C4::Context->preference('IndependantBranches') ) { + +if ( C4::Context->preference('IndependentBranches') ) { undef $all_branches; } else { - $template->param( all_branches_link => $input->url . '?allbranches=1&' . $input->query_string ) + $template->param( all_branches_link => '/cgi-bin/koha/circ/waitingreserves.pl' . '?allbranches=1' ) unless $all_branches; } +$template->param( all_branches => 1 ) if $all_branches; my (@reservloop, @overloop); my ($reservcount, $overcount); -my @getreserves = $all_branches ? GetReservesForBranch() : GetReservesForBranch($default); +# FIXME - Is priority => 0 useful? If yes it must be moved to waiting, otherwise we need to remove it from here. +my $holds = Koha::Holds->waiting->search({ priority => 0, ( $all_branches ? () : ( branchcode => $default ) ) }, { order_by => ['waitingdate'] }); # get reserves for the branch we are logged into, or for all branches my $today = Date_to_Days(&Today); -foreach my $num (@getreserves) { - next unless ($num->{'waitingdate'} && $num->{'waitingdate'} ne '0000-00-00'); - my %getreserv; - my $gettitle = GetBiblioFromItemNumber( $num->{'itemnumber'} ); - # fix up item type for display - $gettitle->{'itemtype'} = C4::Context->preference('item-level_itypes') ? $gettitle->{'itype'} : $gettitle->{'itemtype'}; - my $getborrower = GetMember(borrowernumber => $num->{'borrowernumber'}); - my $itemtypeinfo = getitemtypeinfo( $gettitle->{'itemtype'} ); # using the fixed up itype/itemtype - $getreserv{'waitingdate'} = format_date( $num->{'waitingdate'} ); - my ( $waiting_year, $waiting_month, $waiting_day ) = split (/-/, $num->{'waitingdate'}); - ( $waiting_year, $waiting_month, $waiting_day ) = - Add_Delta_Days( $waiting_year, $waiting_month, $waiting_day, - C4::Context->preference('ReservesMaxPickUpDelay')); - my $calcDate = Date_to_Days( $waiting_year, $waiting_month, $waiting_day ); - - $getreserv{'itemtype'} = $itemtypeinfo->{'description'}; - $getreserv{'title'} = $gettitle->{'title'}; - $getreserv{'itemnumber'} = $gettitle->{'itemnumber'}; - $getreserv{'biblionumber'} = $gettitle->{'biblionumber'}; - $getreserv{'barcode'} = $gettitle->{'barcode'}; - $getreserv{'branchname'} = GetBranchName($gettitle->{'homebranch'}); - $getreserv{'homebranch'} = $gettitle->{'homebranch'}; - $getreserv{'holdingbranch'} = $gettitle->{'holdingbranch'}; - $getreserv{'itemcallnumber'} = $gettitle->{'itemcallnumber'}; - if ( $gettitle->{'homebranch'} ne $gettitle->{'holdingbranch'} ) { +my $max_pickup_delay = C4::Context->preference('ReservesMaxPickUpDelay'); + +while ( my $hold = $holds->next ) { + next unless ($hold->waitingdate && $hold->waitingdate ne '0000-00-00'); + + my $item = $hold->item; + my $patron = $hold->borrower; + my $biblio = $item->biblio; + my $holdingbranch = $item->holdingbranch; + my $homebranch = $item->homebranch; + + my %getreserv = ( + title => $biblio->title, + itemnumber => $item->itemnumber, + waitingdate => $hold->waitingdate, + reservedate => $hold->reservedate, + borrowernum => $patron->borrowernumber, + biblionumber => $biblio->biblionumber, + barcode => $item->barcode, + homebranch => $homebranch, + holdingbranch => $item->holdingbranch, + itemcallnumber => $item->itemcallnumber, + enumchron => $item->enumchron, + copynumber => $item->copynumber, + borrowername => $patron->surname, # FIXME Let's send $patron to the template + borrowerfirstname => $patron->firstname, + borrowerphone => $patron->phone, + ); + + my $itemtype = Koha::ItemTypes->find( $item->effective_itemtype ); + my ( $expire_year, $expire_month, $expire_day ) = split (/-/, $hold->expirationdate); + my $calcDate = Date_to_Days( $expire_year, $expire_month, $expire_day ); + + $getreserv{'itemtype'} = $itemtype->description; # FIXME Should not it be translated_description? + $getreserv{'subtitle'} = GetRecordValue( + 'subtitle', + GetMarcBiblio({ biblionumber => $biblio->biblionumber }), + $biblio->frameworkcode); + if ( $homebranch ne $holdingbranch ) { $getreserv{'dotransfer'} = 1; } - $getreserv{'borrowernum'} = $getborrower->{'borrowernumber'}; - $getreserv{'borrowername'} = $getborrower->{'surname'}; - $getreserv{'borrowerfirstname'} = $getborrower->{'firstname'}; - $getreserv{'borrowerphone'} = $getborrower->{'phone'}; - if ( $getborrower->{'emailaddress'} ) { - $getreserv{'borrowermail'} = $getborrower->{'emailaddress'}; - } - + + $getreserv{patron} = $patron; + if ($today > $calcDate) { - push @overloop, \%getreserv; - $overcount++; + if ($cancelall) { + my $res = cancel( $item->itemnumber, $patron->borrowernumber, $holdingbranch, $homebranch, !$transfer_when_cancel_all ); + push @cancel_result, $res if $res; + next; + } else { + push @overloop, \%getreserv; + $overcount++; + } }else{ push @reservloop, \%getreserv; $reservcount++; @@ -150,14 +148,64 @@ foreach my $num (@getreserves) { } +$template->param(cancel_result => \@cancel_result) if @cancel_result; + $template->param( reserveloop => \@reservloop, reservecount => $reservcount, overloop => \@overloop, overcount => $overcount, - show_date => format_date(C4::Dates->today('iso')), - dateformat => C4::Context->preference("dateformat"), - ReservesMaxPickUpDelay => C4::Context->preference('ReservesMaxPickUpDelay') + show_date => output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }), + ReservesMaxPickUpDelay => $max_pickup_delay, + tab => $tab, ); -output_html_with_http_headers $input, $cookie, $template->output; +# Checking if there is a Fast Cataloging Framework +$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find( 'FA' ); + +if ($item && $tab eq 'holdsover' && !@cancel_result) { + print $input->redirect("/cgi-bin/koha/circ/waitingreserves.pl#holdsover"); +} elsif ($cancelall) { + print $input->redirect("/cgi-bin/koha/circ/waitingreserves.pl"); +} else { + output_html_with_http_headers $input, $cookie, $template->output; +} + +exit; + +sub cancel { + my ($item, $borrowernumber, $fbr, $tbr, $skip_transfers ) = @_; + + my $transfer = $fbr ne $tbr; # XXX && !$nextreservinfo; + + return if $transfer && $skip_transfers; + + my ( $messages, $nextreservinfo ) = ModReserveCancelAll( $item, $borrowernumber ); + +# if the document is not in his homebranch location and there is not reservation after, we transfer it + if ($transfer && !$nextreservinfo) { + ModItemTransfer( $item, $fbr, $tbr ); + } + # if we have a result + if ($nextreservinfo) { + my %res; + my $patron = Koha::Patrons->find( $nextreservinfo ); + my $title = Koha::Items->find( $item )->biblio->title; + if ( $messages->{'transfert'} ) { + $res{messagetransfert} = $messages->{'transfert'}; + $res{branchcode} = $messages->{'transfert'}; + } + + $res{message} = 1; + $res{nextreservnumber} = $nextreservinfo; + $res{nextreservsurname} = $patron->surname; + $res{nextreservfirstname} = $patron->firstname; + $res{nextreservitem} = $item; + $res{nextreservtitle} = $title; + $res{waiting} = $messages->{'waiting'} ? 1 : 0; + + return \%res; + } + + return; +}