added some fault tolerance
authorpines <pines@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 29 Nov 2006 03:04:36 +0000 (03:04 +0000)
committerpines <pines@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 29 Nov 2006 03:04:36 +0000 (03:04 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@6632 dcc99617-32d9-48b4-a31d-7c20da2025e4

Evergreen/src/support-scripts/eg_gen_overdue.pl

index 9946d83..073e58f 100755 (executable)
@@ -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;
 }