Fix bug in mark_item resrict copy delete check.

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ.pm
index 9e4b924..4592c8b 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ.pm
@@ -1363,7 +1363,7 @@ sub mark_item {
         } else {
             $evt = OpenILS::Event->new('ITEM_TO_MARK_IN_TRANSIT');
         }
-    } elsif ($copy->status->restrict_copy_delete() && $self->api_name =~ /discard/) {
+    } elsif ($U->is_true($copy->status->restrict_copy_delete()) && $self->api_name =~ /discard/) {
         # Items with restrict_copy_delete status require the
         # COPY_DELETE_WARNING.override permission to be marked for
         # discard.