+my $transfered;
+my $barcode = $query->param('barcode');
+# strip whitespace
+defined $barcode and $barcode =~ s/\s*//g; # FIXME: barcodeInputFilter
+# warn "barcode : $barcode";
+if ($barcode) {
+
+ my $iteminformation;
+ ( $transfered, $messages, $iteminformation ) =
+ transferbook( $tobranchcd, $barcode, $ignoreRs );
+# use Data::Dumper;
+# warn "Transfered : $transfered / ".Dumper($messages);
+ $found = $messages->{'ResFound'};
+ if ($transfered) {
+ 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'};
+ $item{'location'} = GetKohaAuthorisedValueLib("LOC",$iteminformation->{'location'});
+ $item{'frbrname'} = $branches->{$frbranchcd}->{'branchname'};
+ $item{'tobrname'} = $branches->{$tobranchcd}->{'branchname'};
+# }
+ $item{counter} = 0;
+ $item{barcode} = $barcode;
+ $item{frombrcd} = $frbranchcd;
+ $item{tobrcd} = $tobranchcd;
+ push( @trsfitemloop, \%item );
+# warn Dumper(@trsfitemloop);
+ }
+}
+
+foreach ( $query->param ) {