From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 10 Oct 2006 14:13:25 +0000 (+0000)
Subject: making sure a copy is supposed to be updated (ischanged, isnew) before
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=157ed2e56371a7d6a776b67ab140351257009f61;p=Evergreen.git

making sure a copy is supposed to be updated (ischanged, isnew) before
editing any stat cats


git-svn-id: svn://svn.open-ils.org/ILS/trunk@6429 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
index 3523fea58d..4404f37e1b 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
@@ -1148,6 +1148,7 @@ sub update_copy_stat_entries {
 	my( $editor, $copy, $delete_stats ) = @_;
 
 	return undef if $copy->isdeleted;
+	return undef unless $copy->ischanged or $copy->isnew;
 
 	my $evt;
 	my $entries = $copy->stat_cat_entries;