X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=circ%2Fbranchtransfers.pl;h=0022e27e53ec803416a304cb7361259587717eef;hb=091d6c513bcbee224ff06477e79be48cea7fe825;hp=d2f0e982d85798957eb29c5363cbf98ea1e5d11e;hpb=f76faf6f02227375ea85ab70f0b9a54d12ec0804;p=koha.git diff --git a/circ/branchtransfers.pl b/circ/branchtransfers.pl index d2f0e982d8..0022e27e53 100755 --- a/circ/branchtransfers.pl +++ b/circ/branchtransfers.pl @@ -1,369 +1,244 @@ #!/usr/bin/perl -#written 11/3/2002 by Finlay #script to execute branch transfers of books - # Copyright 2000-2002 Katipo Communications +# copyright 2010 BibLibre # # 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 C4::Circulation::Circ2; +use warnings; +use CGI qw ( -utf8 ); +use C4::Circulation; use C4::Output; -use C4::Reserves2; - -############################################### -# constants - -my %env; -my $headerbackgroundcolor='#99cc33'; -my $circbackgroundcolor='#ffffcc'; -my $circbackgroundcolor='white'; -my $linecolor1='#ffffcc'; -my $linecolor2='white'; -my $backgroundimage="/images/background-mem.gif"; - -my $branches = getbranches(); -my $printers = getprinters(\%env); - +use C4::Reserves; +use C4::Biblio; +use C4::Items; +use C4::Auth qw/:DEFAULT get_session/; +use C4::Koha; +use C4::Members; +use Koha::BiblioFrameworks; +use Koha::AuthorisedValues; ############################################### # Getting state -my $query=new CGI; - - -my $branch = $query->param("branch"); -my $printer = $query->param("printer"); - - -($branch) || ($branch=$query->cookie('branch')) ; -($printer) || ($printer=$query->cookie('printer')) ; - -my $request=$query->param('request'); - - -my $tobranchcd=$query->param('tobranchcd'); -my $frbranchcd=''; - -# set up the branchselect options.... -my $tobranchoptions; -foreach my $br (keys %$branches) { -# FIXME - Dunno what this line was supposed to do, but "CU" never -# appears anywhere else, so this was preventing this code from -# working, by creating an empty \n"; - $ritext.="\n"; - $ritext.="\n"; +####################################################################################### +# Make the page ..... +my ($template, $user, $cookie, $flags ) = get_template_and_user( + { + template_name => "circ/branchtransfers.tt", + query => $query, + type => "intranet", + authnotrequired => 0, + flagsrequired => { circulate => "circulate_remaining_permissions" }, } +); +my $messages; +my $found; +my $reserved; +my $waiting; +my $reqmessage; +my $cancelled; +my $setwaiting; -# Collect a few messages here... -my $messagetext=''; +my $request = $query->param('request') || ''; +my $borrowernumber = $query->param('borrowernumber') || 0; +my $tobranchcd = $query->param('tobranchcd') || ''; +my $ignoreRs = 0; ############ # Deal with the requests.... -if ($request eq "KillWaiting") { +if ( $request eq "KillWaiting" ) { my $item = $query->param('itemnumber'); - my $borrnum = $query->param('borrowernumber'); - CancelReserve(0, $item, $borrnum); - $messagetext .= "Reserve Cancelled
"; + CancelReserve({ + itemnumber => $item, + borrowernumber => $borrowernumber + }); + $cancelled = 1; + $reqmessage = 1; } -my $ignoreRs = 0; -if ($request eq "SetWaiting") { +elsif ( $request eq "SetWaiting" ) { my $item = $query->param('itemnumber'); - my $borrnum = $query->param('borrowernumber'); - $tobranchcd = ReserveWaiting($item, $borrnum); - $ignoreRs = 1; - $messagetext .= "Item should now be waiting at branch: $branches->{$tobranchcd}->{'branchname'}
"; + ModReserveAffect( $item, $borrowernumber ); + $ignoreRs = 1; + $setwaiting = 1; + $reqmessage = 1; } -if ($request eq 'KillReserved'){ +elsif ( $request eq 'KillReserved' ) { my $biblio = $query->param('biblionumber'); - my $borrnum = $query->param('borrowernumber'); - CancelReserve($biblio, 0, $borrnum); - $messagetext .= "Reserve Cancelled
"; + CancelReserve({ + biblionumber => $biblio, + borrowernumber => $borrowernumber + }); + $cancelled = 1; + $reqmessage = 1; } - - - -# Warnings etc that get displayed at top of next page.... -my $messages; -# if the barcode has been entered action that and write a message -# and put onto the top of the stack... -my $iteminformation; +# collect the stack of books already transfered so they can printed... +my @trsfitemloop; +my $transfered; my $barcode = $query->param('barcode'); +# remove leading/trailing whitespace +defined $barcode and $barcode =~ s/^\s*|\s*$//g; # FIXME: barcodeInputFilter +# warn "barcode : $barcode"; if ($barcode) { - my $transfered; + my $iteminformation; - ($transfered, $messages, $iteminformation) - = transferbook($tobranchcd, $barcode, $ignoreRs); + ( $transfered, $messages, $iteminformation ) = + transferbook( $tobranchcd, $barcode, $ignoreRs ); +# use Data::Dumper; +# warn "Transfered : $transfered / ".Dumper($messages); + $found = $messages->{'ResFound'}; if ($transfered) { - my $frbranchcd = $iteminformation->{'holdingbranch'}; - $ritext.="\n"; - $ritext.="\n"; - $ritext.="\n"; - $transfereditems{0}=$barcode; - $frbranchcds{0}=$frbranchcd; - $tobranchcds{0}=$tobranchcd; + my %item; + my $frbranchcd = C4::Context->userenv->{'branch'}; +# if ( not($found) ) { + $item{'biblionumber'} = $iteminformation->{'biblionumber'}; + $item{'itemnumber'} = $iteminformation->{'itemnumber'}; + $item{'title'} = $iteminformation->{'title'}; + $item{'author'} = $iteminformation->{'author'}; + $item{'itemtype'} = $iteminformation->{'itemtype'}; + $item{'ccode'} = $iteminformation->{'ccode'}; + $item{'itemcallnumber'} = $iteminformation->{'itemcallnumber'}; + my $av = Koha::AuthorisedValues->search({ category => 'LOC', authorised_value => $iteminformation->{location} }); + $item{'location'} = $av->count ? $av->next->lib : ''; +# } + $item{counter} = 0; + $item{barcode} = $barcode; + $item{frombrcd} = $frbranchcd; + $item{tobrcd} = $tobranchcd; + push( @trsfitemloop, \%item ); +# warn Dumper(@trsfitemloop); } } +foreach ( $query->param ) { + (next) unless (/bc-(\d*)/); + my $counter = $1; + my %item; + my $bc = $query->param("bc-$counter"); + my $frbcd = $query->param("fb-$counter"); + my $tobcd = $query->param("tb-$counter"); + $counter++; + $item{counter} = $counter; + $item{barcode} = $bc; + $item{frombrcd} = $frbcd; + $item{tobrcd} = $tobcd; + my ($iteminformation) = GetBiblioFromItemNumber( GetItemnumberFromBarcode($bc) ); + $item{'biblionumber'} = $iteminformation->{'biblionumber'}; + $item{'itemnumber'} = $iteminformation->{'itemnumber'}; + $item{'title'} = $iteminformation->{'title'}; + $item{'author'} = $iteminformation->{'author'}; + $item{'itemtype'} = $iteminformation->{'itemtype'}; + $item{'ccode'} = $iteminformation->{'ccode'}; + $item{'itemcallnumber'} = $iteminformation->{'itemcallnumber'}; + my $av = Koha::AuthorisedValues->search({ category => 'LOC', authorised_value => $iteminformation->{location} }); + $item{'location'} = $av->count ? $av->next->lib : ''; + push( @trsfitemloop, \%item ); +} -################################################################################# -# Html code.... -# collect together the various elements... - -my $entrytext= << "EOF"; -
- - - -
-Select Branch
Destination Branch:
- - - - - - -
-Enter Book Barcode
Item Barcode:
- -$ritext -
-EOF - - +my $itemnumber; +my $biblionumber; ##################### -my $reservefoundtext; -if ($messages->{'ResFound'}) { +if ($found) { my $res = $messages->{'ResFound'}; - my $reservetext; - my $branchname = $branches->{$res->{'branchcode'}}->{'branchname'}; - my ($borr) = getpatroninformation(\%env, $res->{'borrowernumber'}, 0); - my $name = $borr->{'surname'}." ".$borr->{'title'}." ".$borr->{'firstname'}; - my $number = "{'borrowernumber'} onClick='openWindow(this,'Member', 480, 640)'>$borr->{'cardnumber'}"; - if ($res->{'ResFound'} eq "Waiting") { - $reservetext = <<"EOF"; -Item marked Waiting:
- Item is marked waiting at $branchname for $name ($number).
- - - - -
Cancel reservation and then attempt transfer: -
-$ritext -{'itemnumber'}> -{'borrowernumber'}> - - - - -
-
Ignore and return to transfers: -
-$ritext - - - -
-
-EOF - } - if ($res->{'ResFound'} eq "Reserved") { - $reservetext = <<"EOF"; -Reserved: reserve found for $name ($number). - - - - - -
Set reserve to waiting and transfer book to $branchname : -
-$ritext -{'itemnumber'}> -{'borrowernumber'}> - - - -
-
Cancel reservation and then attempt transfer: -
-$ritext -{'biblionumber'}> -{'borrowernumber'}> - - - - -
-
Ignore and return to transfers: -
- - -$ritext - -
-
-EOF - } - $reservefoundtext = <<"EOF"; - - -
Reserve Found
$reservetext
-EOF -} + $itemnumber = $res->{'itemnumber'}; -##################### - -foreach my $code (keys %$messages) { - if ($code eq 'BadBarcode'){ - $messagetext .= " No Item with barcode: $messages->{'BadBarcode'}
"; + if ( $res->{'ResFound'} eq "Waiting" ) { + $waiting = 1; } - if ($code eq 'IsPermanent'){ - my $braname = $branches->{$messages->{'IsPermanent'}}->{'branchname'}; - $messagetext .= " Please return item to home branch: $braname
"; - } - if ($code eq 'DestinationEqualsHolding'){ - $messagetext .= " Item is already at destination branch.
"; - } - if ($code eq 'WasReturned') { - my ($borrowerinfo) = getpatroninformation(\%env, $messages->{'WasReturned'}, 0); - - my $binfo = <<"EOF"; -{'borrowernumber'} -onClick="openWindow(this,'Member', 480, 640)">$borrowerinfo->{'cardnumber'} -$borrowerinfo->{'surname'}, $borrowerinfo->{'title'} $borrowerinfo->{'firstname'} -EOF - $messagetext .= "Item was on loan to $binfo and has been returned.
"; - } - if ($code eq 'WasTransfered'){ -# Put code here if you want to notify the user that item was transfered... + elsif ( $res->{'ResFound'} eq "Reserved" ) { + $reserved = 1; + $biblionumber = $res->{'biblionumber'}; } } -$messagetext = substr($messagetext, 0, -4); -my $messagetable; -if ($messagetext) { - $messagetable = << "EOF"; - - -
Messages
$messagetext
- -EOF -} - -####################################################################################### -# Make the page ..... - -print $query->header; -print startpage; -#print startmenu('circulation'); -my @inp=startmenu('circulation'); -my $count=@inp; -for (my $i=0;$i<$count;$i++){ - $inp[$i]=~ s/document.forms\[0\].elements\[0\]/document\.forms\[0\]\.elements\[1\]/; - } -print @inp; - -#foreach my $key (%$messages) { -# print $key." : ".$messages->{$key}."
"; -#} - -print <<"EOF"; -
- -Next Borrower   - -Returns -
- -Circulation: Transfers
-Branch: $branches->{$branch}->{'branchname'}   -Printer: $printers->{$printer}->{'printername'}
-Change Settings - - -

-EOF - -if ($reservefoundtext) { - print $reservefoundtext; -} else { - print $messagetable; - print $entrytext; - - if (%transfereditems) { - print << "EOF"; -

- - - -EOF - my $color=''; - foreach (sort keys %transfereditems) { - ($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1); - my $barcode=$transfereditems{$_}; - my $frbcd=$frbranchcds{$_}; - my $tobcd=$tobranchcds{$_}; - my ($iteminformation) = getiteminformation(\%env, 0, $barcode); - print << "EOF"; - - - - - - -\n -EOF +my @errmsgloop; +foreach my $code ( keys %$messages ) { + if ( $code ne 'WasTransfered' ) { + my %err; + if ( $code eq 'BadBarcode' ) { + $err{msg} = $messages->{'BadBarcode'}; + $err{errbadcode} = 1; + } + elsif ( $code eq "NotAllowed" ) { + warn "NotAllowed: $messages->{'NotAllowed'} to branchcode " . $messages->{'NotAllowed'}; + # Do we really want a error log message here? --atz + $err{errnotallowed} = 1; + my ( $tbr, $typecode ) = split( /::/, $messages->{'NotAllowed'} ); + $err{tbr} = $tbr; + $err{code} = $typecode; } - print "
Transfered Items
Bar CodeTitleAuthorTypeFromTo
-{'biblionumber'} -&type=intra onClick=\"openWindow(this, 'Item', 480, 640)\">$barcode$iteminformation->{'title'}$iteminformation->{'author'}$iteminformation->{'itemtype'}$branches->{$frbcd}->{'branchname'}$branches->{$tobcd}->{'branchname'}
\n"; + elsif ( $code eq 'IsPermanent' ) { + $err{errispermanent} = 1; + $err{msg} = $messages->{'IsPermanent'}; + } + elsif ( $code eq 'WasReturned' ) { + $err{errwasreturned} = 1; + $err{borrowernumber} = $messages->{'WasReturned'}; + my $borrower = GetMember('borrowernumber'=>$messages->{'WasReturned'}); + $err{title} = $borrower->{'title'}; + $err{firstname} = $borrower->{'firstname'}; + $err{surname} = $borrower->{'surname'}; + $err{cardnumber} = $borrower->{'cardnumber'}; + } + $err{errdesteqholding} = ( $code eq 'DestinationEqualsHolding' ); + push( @errmsgloop, \%err ); } } -print endmenu('circulation'); -print endpage; - +# use Data::Dumper; +# warn "FINAL ============= ".Dumper(@trsfitemloop); +$template->param( + found => $found, + reserved => $reserved, + waiting => $waiting, + borrowernumber => $borrowernumber, + itemnumber => $itemnumber, + barcode => $barcode, + biblionumber => $biblionumber, + tobranchcd => $tobranchcd, + reqmessage => $reqmessage, + cancelled => $cancelled, + setwaiting => $setwaiting, + trsfitemloop => \@trsfitemloop, + errmsgloop => \@errmsgloop, + CircAutocompl => C4::Context->preference("CircAutocompl") +); + +# Checking if there is a Fast Cataloging Framework +$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find( 'FA' ); + +output_html_with_http_headers $query, $cookie, $template->output;