X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=circ%2Ftransferstoreceive.pl;h=10df07df0771247a1a40775f9cd086b188ff7c41;hb=5ee536c715f90262c344b2afc9a9456382c858b1;hp=5ec5dac3f85b53d8edced640b2e1949556923162;hpb=9f42b8ad49fb17c4cbea4825639de7c4212f681c;p=koha.git diff --git a/circ/transferstoreceive.pl b/circ/transferstoreceive.pl old mode 100644 new mode 100755 index 5ec5dac3f8..10df07df07 --- a/circ/transferstoreceive.pl +++ b/circ/transferstoreceive.pl @@ -1,35 +1,31 @@ #!/usr/bin/perl -# $Id$ # 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 CGI; +use Modern::Perl; +use CGI qw ( -utf8 ); use C4::Context; use C4::Output; -use C4::Branch; use C4::Auth; -use C4::Date; use C4::Biblio; use C4::Circulation; use C4::Members; -use C4::Interface::CGI::Output; use Date::Calc qw( Today Add_Delta_Days @@ -38,25 +34,23 @@ use Date::Calc qw( use C4::Koha; use C4::Reserves; +use Koha::Items; +use Koha::ItemTypes; +use Koha::Libraries; +use Koha::DateUtils; +use Koha::BiblioFrameworks; +use Koha::Patrons; my $input = new CGI; - -my $theme = $input->param('theme'); # only used if allowthemeoverride is set my $itemnumber = $input->param('itemnumber'); -my $todaysdate = join "-", &Today; - -# if we have a resturn of the form to delete the transfer, we launch the subrroutine -if ($itemnumber) { - C4::Circulation::Circ2::DeleteTransfer($itemnumber); -} -my ( $template, $loggedinuser, $cookie ) = get_template_and_user( +my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user( { - template_name => "circ/transferstoreceive.tmpl", + template_name => "circ/transferstoreceive.tt", query => $input, type => "intranet", authnotrequired => 0, - flagsrequired => { circulate => 1 }, + flagsrequired => { circulate => "circulate_remaining_permissions" }, debug => 1, } ); @@ -65,17 +59,18 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( my $default = C4::Context->userenv->{'branch'}; # get the all the branches for reference -my $branches = GetBranches(); +my $libraries = Koha::Libraries->search({}, { order_by => 'branchname' }); my @branchesloop; -foreach my $br ( keys %$branches ) { +my $latetransfers; +while ( my $library = $libraries->next ) { my @transferloop; my %branchloop; - $branchloop{'branchname'} = $branches->{$br}->{'branchname'}; - $branchloop{'branchcode'} = $branches->{$br}->{'branchcode'}; my @gettransfers = - GetTransfersFromTo( $branches->{$br}->{'branchcode'}, $default ); + GetTransfersFromTo( $library->branchcode, $default ); if (@gettransfers) { + $branchloop{'branchname'} = $library->branchname; + $branchloop{'branchcode'} = $library->branchcode; foreach my $num (@gettransfers) { my %getransf; @@ -87,37 +82,39 @@ foreach my $br ( keys %$branches ) { C4::Context->preference('TransfersMaxDaysWarning')); my $calcDate = Date_to_Days( $sent_year, $sent_month, $sent_day ); my $today = Date_to_Days(&Today); - my $warning = ( $today > $calcDate ); + my $diff = $today - $calcDate; - if ( $warning > 0 ) { + if ($today > $calcDate) { + $latetransfers = 1; $getransf{'messcompa'} = 1; + $getransf{'diff'} = $diff; } - my $gettitle = GetBiblioFromItemNumber( $num->{'itemnumber'} ); - my $itemtypeinfo = getitemtypeinfo( $gettitle->{'itemtype'} ); - - $getransf{'title'} = $gettitle->{'title'}; - $getransf{'datetransfer'} = format_date( $num->{'datesent'} ); - $getransf{'biblionumber'} = $gettitle->{'biblionumber'}; - $getransf{'itemnumber'} = $gettitle->{'itemnumber'}; - $getransf{'barcode'} = $gettitle->{'barcode'}; - $getransf{'itemtype'} = $itemtypeinfo->{'description'}; - $getransf{'homebranch'} = $gettitle->{'homebranch'}; - $getransf{'holdingbranch'} = $gettitle->{'holdingbranch'}; - $getransf{'itemcallnumber'} = $gettitle->{'itemcallnumber'}; - - # we check if we have a reserv for this transfer - my @checkreserv = GetReservations( $num->{'itemnumber'} ); - if ( $checkreserv[0] ) { - my $getborrower = - GetMemberDetails( $checkreserv[1] ); - $getransf{'borrowernum'} = $getborrower->{'borrowernumber'}; - $getransf{'borrowername'} = $getborrower->{'surname'}; - $getransf{'borrowerfirstname'} = $getborrower->{'firstname'}; - if ( $getborrower->{'emailaddress'} ) { - $getransf{'borrowermail'} = $getborrower->{'emailaddress'}; - } - $getransf{'borrowerphone'} = $getborrower->{'phone'}; + my $item = Koha::Items->find( $num->{itemnumber} ); + my $biblio = $item->biblio; + my $itemtype = Koha::ItemTypes->find( $item->effective_itemtype ); + + $getransf{'datetransfer'} = $num->{'datesent'}; + $getransf{'itemtype'} = $itemtype->description; # FIXME Should not it be translated_description? + %getransf = ( + %getransf, + title => $biblio->title, + author => $biblio->author, + biblionumber => $biblio->biblionumber, + itemnumber => $item->itemnumber, + barcode => $item->barcode, + homebranch => $item->homebranch, + holdingbranch => $item->holdingbranch, + itemcallnumber => $item->itemcallnumber, + ); + + my $record = GetMarcBiblio({ biblionumber => $biblio->biblionumber }); + $getransf{'subtitle'} = GetRecordValue('subtitle', $record, $biblio->frameworkcode); + + # we check if we have a reserv for this transfer + my $holds = $item->current_holds; + if ( my $first_hold = $holds->next ) { + $getransf{patron} = Koha::Patrons->find( $first_hold->borrowernumber ); } push( @transferloop, \%getransf ); } @@ -125,19 +122,18 @@ foreach my $br ( keys %$branches ) { # If we have a return of reservloop we put it in the branchloop sequence $branchloop{'reserv'} = \@transferloop; } - else { - -# if we don't have a retrun from reservestobranch we unset branchname and branchcode - $branchloop{'branchname'} = 0; - $branchloop{'branchcode'} = 0; - } - push( @branchesloop, \%branchloop ); + push( @branchesloop, \%branchloop ) if %branchloop; } $template->param( branchesloop => \@branchesloop, - show_date => format_date($todaysdate), + show_date => output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }), + TransfersMaxDaysWarning => C4::Context->preference('TransfersMaxDaysWarning'), + latetransfers => $latetransfers ? 1 : 0, ); +# Checking if there is a Fast Cataloging Framework +$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find( 'FA' ); + output_html_with_http_headers $input, $cookie, $template->output;