+ 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 " . $branches->{ $messages->{'NotAllowed'} }->{'branchname'};
+ # 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{code} = $typecode;
+ $err{codeType} = $codeTypeDescription;
+ }
+ 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'};
+ }
+ $err{errdesteqholding} = ( $code eq 'DestinationEqualsHolding' );
+ push( @errmsgloop, \%err );