From fe5d6ab24f747128832aefca88cf67439f709633 Mon Sep 17 00:00:00 2001 From: erickson Date: Tue, 8 Aug 2006 13:45:36 +0000 Subject: [PATCH] protecting destinations that cannot have volumes git-svn-id: svn://svn.open-ils.org/ILS/trunk@5362 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Cat.pm | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm index ad13346195..dc9ff04215 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm @@ -1197,6 +1197,15 @@ sub batch_volume_transfer { return $e->event unless $e->checkauth; return $e->event unless $e->allowed('VOLUME_UPDATE'); + my $dorg = $e->retrieve_actor_org_unit($o_lib) + or return $e->event; + + my $ou_type = $e->retrieve_actor_org_unit_type($dorg->ou_type) + or return $e->event; + + return OpenILS::Event->new('ORG_CANNOT_HAVE_VOLS') + unless $U->is_true($ou_type->can_have_vols); + my $vols = $e->batch_retrieve_asset_call_number($vol_ids); my @seen; -- 2.11.0