[open-ils-commits] r13526 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-07-08 11:48:41 -0400 (Wed, 08 Jul 2009)
New Revision: 13526

Modified:
   trunk/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: trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat/AssetCommon.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat/AssetCommon.pm	2009-07-08 15:45:12 UTC (rev 13525)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat/AssetCommon.pm	2009-07-08 15:48:41 UTC (rev 13526)
@@ -414,14 +414,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;