fixing the fine generator
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 4 Aug 2006 04:36:38 +0000 (04:36 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 4 Aug 2006 04:36:38 +0000 (04:36 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@5272 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm

index 1386f5d..12692a7 100644 (file)
@@ -518,8 +518,9 @@ sub generate_fines {
                                my $dow_open = "dow_${dow}_open";
                                my $dow_close = "dow_${dow}_close";
 
-                               my $hoo = actor::org_unit::hours_of_operation->retrieve( $c->circ_lib );
-                               next if ( $hoo->$dow_open eq '00:00:00' and $hoo->$dow_close eq '00:00:00');
+                               if (my $hoo = actor::org_unit::hours_of_operation->retrieve( $c->circ_lib )) {
+                                       next if ( $hoo->$dow_open eq '00:00:00' and $hoo->$dow_close eq '00:00:00');
+                               }
 
                                my $timestamptz = $billing_ts->strftime('%FT%T%z');
                                my @cl = actor::org_unit::closed_date->search_where(