fixed logic error

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
index d783803..79a6c89 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
@@ -619,10 +619,10 @@ sub _run_permit_scripts {
        # ---------------------------------------------------------------------
        # Now collect all of the events together
        # ---------------------------------------------------------------------
-       my @allevents = ( @evts_so_far, @$copy_events );
 
-       #push( @allevents, OpenILS::Event->new($_)) for @$penalties;
-       #push( @allevents, OpenILS::Event->new($_)) for @$copy_events;
+       my @allevents; #= ( @evts_so_far, @$copy_events );
+       push( @allevents, OpenILS::Event->new($_)) for @evts_so_far;
+       push( @allevents, OpenILS::Event->new($_)) for @$copy_events;
 
        my $ae = _check_copy_alert($ctx->{copy});
        push( @allevents, $ae ) if $ae;