# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
-use strict;
-use warnings;
+use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Circulation;
use C4::Output;
use C4::Biblio;
use C4::Items;
use C4::Auth qw/:DEFAULT get_session/;
-use C4::Branch; # GetBranches
use C4::Koha;
use C4::Members;
+use Koha::BiblioFrameworks;
+use Koha::AuthorisedValues;
+use Koha::Holds;
+use Koha::Items;
+use Koha::Patrons;
###############################################
# Getting state
#######################################################################################
# Make the page .....
-my ($template, $user, $cookie) = get_template_and_user(
+my ($template, $user, $cookie, $flags ) = get_template_and_user(
{
template_name => "circ/branchtransfers.tt",
query => $query,
}
);
-my $branches = GetBranches;
-
my $messages;
my $found;
my $reserved;
# Deal with the requests....
if ( $request eq "KillWaiting" ) {
my $item = $query->param('itemnumber');
- CancelReserve({
+ my $holds = Koha::Holds->search({
itemnumber => $item,
borrowernumber => $borrowernumber
});
- $cancelled = 1;
- $reqmessage = 1;
+ if ( $holds->count ) {
+ $holds->next->cancel;
+ $cancelled = 1;
+ $reqmessage = 1;
+ } # FIXME else?
}
elsif ( $request eq "SetWaiting" ) {
my $item = $query->param('itemnumber');
$reqmessage = 1;
}
elsif ( $request eq 'KillReserved' ) {
- my $biblio = $query->param('biblionumber');
- CancelReserve({
- biblionumber => $biblio,
+ my $biblionumber = $query->param('biblionumber');
+ my $holds = Koha::Holds->search({
+ biblionumber => $biblionumber,
borrowernumber => $borrowernumber
});
- $cancelled = 1;
- $reqmessage = 1;
+ if ( $holds->count ) {
+ $holds->next->cancel;
+ $cancelled = 1;
+ $reqmessage = 1;
+ } # FIXME else?
}
# collect the stack of books already transfered so they can printed...
# warn "barcode : $barcode";
if ($barcode) {
- my $iteminformation;
- ( $transfered, $messages, $iteminformation ) =
+ ( $transfered, $messages ) =
transferbook( $tobranchcd, $barcode, $ignoreRs );
-# use Data::Dumper;
-# warn "Transfered : $transfered / ".Dumper($messages);
+ my $item = Koha::Items->find({ barcode => $barcode });
$found = $messages->{'ResFound'};
if ($transfered) {
my %item;
+ my $biblio = $item->biblio;
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'};
- $item{'location'} = GetKohaAuthorisedValueLib("LOC",$iteminformation->{'location'});
- $item{'frbrname'} = $branches->{$frbranchcd}->{'branchname'};
- $item{'tobrname'} = $branches->{$tobranchcd}->{'branchname'};
-# }
+ $item{'biblionumber'} = $item->biblionumber;
+ $item{'itemnumber'} = $item->itemnumber;
+ $item{'title'} = $biblio->title;
+ $item{'author'} = $biblio->author;
+ $item{'itemtype'} = $biblio->biblioitem->itemtype;
+ $item{'ccode'} = $item->ccode;
+ $item{'itemcallnumber'} = $item->itemcallnumber;
+ my $av = Koha::AuthorisedValues->search({ category => 'LOC', authorised_value => $item->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);
}
}
$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'};
- $item{'location'} = GetKohaAuthorisedValueLib("LOC",$iteminformation->{'location'});
- $item{'frbrname'} = $branches->{$frbcd}->{'branchname'};
- $item{'tobrname'} = $branches->{$tobcd}->{'branchname'};
+ my $item = Koha::Items->find({ barcode => $bc });
+ my $biblio = $item->biblio;
+ $item{'biblionumber'} = $item->biblionumber;
+ $item{'itemnumber'} = $item->itemnumber;
+ $item{'title'} = $biblio->title;
+ $item{'author'} = $biblio->author;
+ $item{'itemtype'} = $biblio->biblioitem->itemtype;
+ $item{'ccode'} = $item->ccode;
+ $item{'itemcallnumber'} = $item->itemcallnumber;
+ my $av = Koha::AuthorisedValues->search({ category => 'LOC', authorised_value => $item->location });
+ $item{'location'} = $av->count ? $av->next->lib : '';
push( @trsfitemloop, \%item );
}
$err{errbadcode} = 1;
}
elsif ( $code eq "NotAllowed" ) {
- warn "NotAllowed: $messages->{'NotAllowed'} to " . $branches->{ $messages->{'NotAllowed'} }->{'branchname'};
+ 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} = $branches->{ $tbr }->{'branchname'};
+ $err{tbr} = $tbr;
$err{code} = $typecode;
}
- elsif ( $code eq 'IsPermanent' ) {
- $err{errispermanent} = 1;
- $err{msg} = $branches->{ $messages->{'IsPermanent'} }->{'branchname'};
- }
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'};
+ my $patron = Koha::Patrons->find( $messages->{'WasReturned'} );
+ if ( $patron ) { # Just in case...
+ $err{patron} = $patron;
+ }
}
$err{errdesteqholding} = ( $code eq 'DestinationEqualsHolding' );
push( @errmsgloop, \%err );
cancelled => $cancelled,
setwaiting => $setwaiting,
trsfitemloop => \@trsfitemloop,
- branchoptionloop => GetBranchesLoop($tobranchcd),
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;