added some fault tolerance

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

diff --git a/Evergreen/src/support-scripts/eg_gen_overdue.pl b/Evergreen/src/support-scripts/eg_gen_overdue.pl
index 9946d83..073e58f 100755 (executable)
--- a/Evergreen/src/support-scripts/eg_gen_overdue.pl
+++ b/Evergreen/src/support-scripts/eg_gen_overdue.pl
@@ -181,6 +181,8 @@ sub print_notice {
        my @patron_data = fetch_patron_data($usr);
        my @org_data = fetch_org_data($org);
 
+       return unless (@patron_data and @org_data);
+
        my $email;
 
        if( $email = $patron_data[0]->email 
@@ -491,6 +493,7 @@ sub handle_event {
        my $evt = shift;
        warn "OD_notice: ".Dumper($evt) . "\n";
        $logger->error("OD_notice: ".Dumper($evt));
+       return undef;
 }