Adding a WHERE clause to prevent timeout of juv-to-adult function

Signed-off-by: Chris Sharp <csharp@georgialibraries.org>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/actor.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/actor.pm
index d41dfcc..8fa6c44 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/actor.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/actor.pm
@@ -32,7 +32,8 @@ sub juv_to_adult {
        my $sql = <<"   SQL";
             UPDATE  actor.usr
               SET   juvenile = FALSE
-              WHERE AGE(dob) > ?::INTERVAL;
+              WHERE AGE(dob) > ?::INTERVAL
+             AND juvenile IS TRUE;
        SQL
 
     my $sth = actor::user->db_Main->prepare_cached($sql);