+# strip whitespace
+# $barcode =~ s/\s*//g; - use barcodedecode for this; whitespace is not invalid.
+my $exemptfine = $query->param('exemptfine');
+my $dropboxmode= $query->param('dropboxmode');
+my @datearr = localtime( time() );
+my @yesterdayarr = Add_Delta_Days( $datearr[5] + 1900 , $datearr[4] + 1, $datearr[3] , -1 );
+my $yesterday= C4::Dates->new( sprintf("%0.4d-%0.2d-%0.2d",@yesterdayarr),'iso');
+my $dotransfer = $query->param('dotransfer');
+if ($dotransfer){
+ # An item has been returned to a branch other than the homebranch, and the librarian has choosen to initiate a transfer
+ my $transferitem=$query->param('transferitem');
+ my $tobranch=$query->param('tobranch');
+ ModItemTransfer($transferitem, C4::Context->userenv->{'branch'}, $tobranch);
+}