No subject

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2010-04-01 05:15:00 UTC (rev 16077)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2010-04-01 05:15:07 UTC (rev 16078)
@@ -2461,7 +2461,7 @@
     my $cat_req = $cat_service->request('open-ils.cat.asset.copy.fleshed.batch.update', $mgr->editor->authtoken, $copies);
     my $cat_result  = $cat_req->recv;
     $cat_service->disconnect;
-    if ($cat_result != 1) { # failed to delete copies
+    if (!$cat_result or $cat_result->content != 1) { # failed to delete copies
         return new OpenILS::Event(
             "ACQ_NOT_CANCELABLE", "note" => "lineitem $li_id", "payload" => $cat_result
         );