X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=circ%2Fwaitingreserves.pl;h=c9c9f0e921c0918bade4ea379b85acedd261d958;hb=223bf0099fcb837fb6bc1c719517e175c43f6ffc;hp=028f82dae7464ed2267085cb81462d467b227eba;hpb=0c020dd8bf6ec6419a05df887756abd3c32b9691;p=koha_fer diff --git a/circ/waitingreserves.pl b/circ/waitingreserves.pl index 028f82dae7..c9c9f0e921 100755 --- a/circ/waitingreserves.pl +++ b/circ/waitingreserves.pl @@ -1,8 +1,7 @@ #!/usr/bin/perl -# $Id$ - # Copyright 2000-2002 Katipo Communications +# parts copyright 2010 BibLibre # # This file is part of Koha. # @@ -15,20 +14,22 @@ # 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, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. use strict; +use warnings; +use CGI; use C4::Context; use C4::Output; -use CGI; use C4::Branch; # GetBranchName use C4::Auth; -use C4::Date; +use C4::Dates qw/format_date/; use C4::Circulation; use C4::Members; use C4::Biblio; +use C4::Items; use Date::Calc qw( Today @@ -37,125 +38,168 @@ use Date::Calc qw( ); use C4::Reserves; use C4::Koha; -use C4::Interface::CGI::Output; my $input = new CGI; my $item = $input->param('itemnumber'); my $borrowernumber = $input->param('borrowernumber'); -my $fbr = $input->param('fbr'); -my $tbr = $input->param('tbr'); +my $fbr = $input->param('fbr') || ''; +my $tbr = $input->param('tbr') || ''; +my $all_branches = $input->param('allbranches') || ''; +my $cancelall = $input->param('cancelall'); my $cancel; -my $theme = $input->param('theme'); # only used if allowthemeoverride is set - my ( $template, $loggedinuser, $cookie ) = get_template_and_user( { template_name => "circ/waitingreserves.tmpl", query => $input, type => "intranet", authnotrequired => 0, - flagsrequired => { circulate => 1 }, + flagsrequired => { circulate => "circulate_remaining_permissions" }, debug => 1, } ); my $default = C4::Context->userenv->{'branch'}; -my @datearr = localtime( time() ); -my $todaysdate = - ( 1900 + $datearr[5] ) . '-' - . sprintf( "%0.2d", ( $datearr[4] + 1 ) ) . '-' - . sprintf( "%0.2d", $datearr[3] ); +my $transfer_when_cancel_all = C4::Context->preference('TransferWhenCancelAllWaitingHolds'); +$template->param( TransferWhenCancelAllWaitingHolds => 1 ) if $transfer_when_cancel_all; +my @cancel_result; # if we have a return from the form we launch the subroutine CancelReserve if ($item) { - my $messages; - my $nextreservinfo; - my $waiting; - ( $messages, $nextreservinfo ) = GlobalCancel( $item, $borrowernumber ); + my $res = cancel( $item, $borrowernumber, $fbr, $tbr ); + push @cancel_result, $res if $res; +} - # if we have a result - if ($nextreservinfo) { - my $borrowerinfo = GetMemberDetails( $nextreservinfo ); - my $iteminfo = GetBiblioFromItemNumber($item); - if ( $messages->{'transfert'} ) { - my $branchname = GetBranchName( $messages->{'transfert'} ); - $template->param( - messagetransfert => $messages->{'transfert'}, - branchname => $branchname, - ); - } - if ( $messages->{'waiting'} ) { - $waiting = 1; - } +if ( C4::Context->preference('IndependantBranches') ) { + undef $all_branches; +} else { + $template->param( all_branches_link => $input->url . '?allbranches=1' ) + unless $all_branches; +} +$template->param( all_branches => 1 ) if $all_branches; - $template->param( - message => 1, - nextreservnumber => $nextreservinfo, - nextreservsurname => $borrowerinfo->{'surname'}, - nextreservfirstname => $borrowerinfo->{'firstname'}, - nextreservitem => $item, - nextreservtitle => $iteminfo->{'title'}, - waiting => $waiting - ); - } +my (@reservloop, @overloop); +my ($reservcount, $overcount); +my @getreserves = $all_branches ? GetReservesForBranch() : GetReservesForBranch($default); +# get reserves for the branch we are logged into, or for all branches -# 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 ) ) { - dotransfer( $item, $fbr, $tbr ); +my $today = Date_to_Days(&Today); +foreach my $num (@getreserves) { + next unless ($num->{'waitingdate'} && $num->{'waitingdate'} ne '0000-00-00'); + + my $itemnumber = $num->{'itemnumber'}; + my $gettitle = GetBiblioFromItemNumber( $itemnumber ); + my $borrowernum = $num->{'borrowernumber'}; + my $holdingbranch = $gettitle->{'holdingbranch'}; + my $homebranch = $gettitle->{'homebranch'}; + + if ($cancelall) { + my $res = cancel( $itemnumber, $borrowernum, $holdingbranch, $homebranch, !$transfer_when_cancel_all ); + push @cancel_result, $res if $res; + next; } -} -my @reservloop; + my %getreserv = ( + itemnumber => $itemnumber, + borrowernum => $borrowernum, + ); -my @getreserves = GetReservesForBranch($default); - -foreach my $num (@getreserves) { - my %getreserv; - my $gettitle = GetBiblioFromItemNumber( $num->{'itemnumber'} ); - my $getborrower = GetMemberDetails( $num->{'borrowernumber'} ); - my $itemtypeinfo = getitemtypeinfo( $gettitle->{'itemtype'} ); + # 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'} ); - - next unless $num->{'waitingdate'} ne '0000-00-00'; - my ( $waiting_year, $waiting_month, $waiting_day ) = split /-/, - $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 ); - my $today = Date_to_Days(&Today); - my $warning = ( $today > $calcDate ); - if ( $warning > 0 ) { - $getreserv{'messcompa'} = 1; - } - $getreserv{'title'} = $gettitle->{'title'}; - $getreserv{'itemnumber'} = $gettitle->{'itemnumber'}; - $getreserv{'biblionumber'} = $gettitle->{'biblionumber'}; - $getreserv{'barcode'} = $gettitle->{'barcode'}; - $getreserv{'itemtype'} = $itemtypeinfo->{'description'}; - $getreserv{'homebranch'} = $gettitle->{'homebranch'}; - $getreserv{'holdingbranch'} = $gettitle->{'holdingbranch'}; - if ( $gettitle->{'homebranch'} ne $gettitle->{'holdingbranch'} ) { + $getreserv{'itemtype'} = $itemtypeinfo->{'description'}; + $getreserv{'title'} = $gettitle->{'title'}; + $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'}; + $getreserv{'enumchron'} = $gettitle->{'enumchron'}; + $getreserv{'copynumber'} = $gettitle->{'copynumber'}; + if ( $homebranch ne $holdingbranch ) { $getreserv{'dotransfer'} = 1; } - $getreserv{'itemcallnumber'} = $gettitle->{'itemcallnumber'}; - $getreserv{'borrowernum'} = $getborrower->{'borrowernumber'}; $getreserv{'borrowername'} = $getborrower->{'surname'}; $getreserv{'borrowerfirstname'} = $getborrower->{'firstname'}; + $getreserv{'borrowerphone'} = $getborrower->{'phone'}; if ( $getborrower->{'emailaddress'} ) { - $getreserv{'borrowermail'} = $getborrower->{'emailaddress'}; + $getreserv{'borrowermail'} = $getborrower->{'emailaddress'}; } - $getreserv{'borrowerphone'} = $getborrower->{'phone'}; - push( @reservloop, \%getreserv ); + + if ($today > $calcDate) { + push @overloop, \%getreserv; + $overcount++; + }else{ + push @reservloop, \%getreserv; + $reservcount++; + } + } +$template->param(cancel_result => \@cancel_result) if @cancel_result; $template->param( reserveloop => \@reservloop, - show_date => format_date($todaysdate), + reservecount => $reservcount, + overloop => \@overloop, + overcount => $overcount, + show_date => format_date(C4::Dates->today('iso')), + dateformat => C4::Context->preference("dateformat"), + ReservesMaxPickUpDelay => C4::Context->preference('ReservesMaxPickUpDelay') ); -output_html_with_http_headers $input, $cookie, $template->output; +if ($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 $borrowerinfo = GetMemberDetails( $nextreservinfo ); + my $iteminfo = GetBiblioFromItemNumber($item); + if ( $messages->{'transfert'} ) { + $res{messagetransfert} = $messages->{'transfert'}; + $res{branchname} = GetBranchName($messages->{'transfert'}); + } + + $res{message} = 1; + $res{nextreservnumber} = $nextreservinfo; + $res{nextreservsurname} = $borrowerinfo->{'surname'}; + $res{nextreservfirstname} = $borrowerinfo->{'firstname'}; + $res{nextreservitem} = $item; + $res{nextreservtitle} = $iteminfo->{'title'}; + $res{waiting} = $messages->{'waiting'} ? 1 : 0; + + return \%res; + } + + return; +}