Bug 5680: Order cancelling improvement : delete attached items & biblio if avalaible

[koha_fer] / circ / returns.pl

diff --git a/circ/returns.pl b/circ/returns.pl
index 6826d7c..afe574f 100755 (executable)
--- a/circ/returns.pl
+++ b/circ/returns.pl
@@ -423,6 +423,9 @@ foreach my $code ( keys %$messages ) {
         $err{notissued} = 1;
         $err{msg} = $branches->{ $messages->{'IsPermanent'} }->{'branchname'};
     }
+    elsif ( $code eq 'LocalUse' ) {
+        $err{localuse} = 1;
+    }
     elsif ( $code eq 'WasLost' ) {
         $err{waslost} = 1;
     }