[open-ils-commits] r13528 - branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Cat (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-07-08 11:49:12 -0400 (Wed, 08 Jul 2009)
New Revision: 13528

Modified:
   branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Cat/AssetCommon.pm
Log:
if alerting on empty bibs and not overriding, return the alert.  if overriding or not alerting, do the delete (if keep on empty if not set)

Modified: branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Cat/AssetCommon.pm
===================================================================
--- branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Cat/AssetCommon.pm	2009-07-08 15:49:03 UTC (rev 13527)
+++ branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Cat/AssetCommon.pm	2009-07-08 15:49:12 UTC (rev 13528)
@@ -380,14 +380,14 @@
             $editor->update_asset_call_number($vol) or return $editor->event;
         }
 
+        return OpenILS::Event->new('TITLE_LAST_COPY', payload => $vol->record ) 
+            if $aoe and not $override;
+
         unless($koe) {
             # delete the bib record if the keep-on-empty setting is not set
             my $evt = OpenILS::Application::Cat::BibCommon->delete_rec($editor, $vol->record);
             return $evt if $evt;
         }
-
-        # return the empty alert if the alert-on-empty setting is set
-        return OpenILS::Event->new('TITLE_LAST_COPY', payload => $vol->record ) if $aoe;
 	}
 
 	return undef;