returning event on session no exist

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
index 3fa3121..c228ff7 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -2280,6 +2280,7 @@ sub fetch_patron_note {
        my $patronid = $$args{patronid};
 
        my($reqr, $evt) = $U->checkses($authtoken);
+       return $evt if $evt;
 
        my $patron;
        ($patron, $evt) = $U->fetch_user($patronid);