|
Lines 659-665
if ( $messages->{TransferredRecall} ) {
Link Here
|
| 659 |
my @errmsgloop; |
659 |
my @errmsgloop; |
| 660 |
foreach my $code ( keys %$messages ) { |
660 |
foreach my $code ( keys %$messages ) { |
| 661 |
my %err; |
661 |
my %err; |
| 662 |
my $exit_required_p = 0; |
|
|
| 663 |
if ( $code eq 'BadBarcode' ) { |
662 |
if ( $code eq 'BadBarcode' ) { |
| 664 |
$err{badbarcode} = 1; |
663 |
$err{badbarcode} = 1; |
| 665 |
$err{msg} = $messages->{'BadBarcode'}; |
664 |
$err{msg} = $messages->{'BadBarcode'}; |
|
Lines 697-703
foreach my $code ( keys %$messages ) {
Link Here
|
| 697 |
} |
696 |
} |
| 698 |
elsif ( $code eq 'withdrawn' ) { |
697 |
elsif ( $code eq 'withdrawn' ) { |
| 699 |
$err{withdrawn} = 1; |
698 |
$err{withdrawn} = 1; |
| 700 |
$exit_required_p = 1 if C4::Context->preference("BlockReturnOfWithdrawnItems"); |
|
|
| 701 |
} |
699 |
} |
| 702 |
elsif ( $code eq 'WrongTransfer' ) { |
700 |
elsif ( $code eq 'WrongTransfer' ) { |
| 703 |
; # FIXME... anything to do here? |
701 |
; # FIXME... anything to do here? |
|
Lines 753-759
foreach my $code ( keys %$messages ) {
Link Here
|
| 753 |
if (%err) { |
751 |
if (%err) { |
| 754 |
push( @errmsgloop, \%err ); |
752 |
push( @errmsgloop, \%err ); |
| 755 |
} |
753 |
} |
| 756 |
last if $exit_required_p; |
|
|
| 757 |
} |
754 |
} |
| 758 |
$template->param( errmsgloop => \@errmsgloop ); |
755 |
$template->param( errmsgloop => \@errmsgloop ); |
| 759 |
|
756 |
|
| 760 |
- |
|
|