perl syntax typo
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 19 Jun 2008 17:51:55 +0000 (17:51 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Thu, 19 Jun 2008 17:51:55 +0000 (17:51 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@9881 dcc99617-32d9-48b4-a31d-7c20da2025e4

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

index 8b919cc..e77eefc 100644 (file)
@@ -727,7 +727,7 @@ sub generate_fines {
                        $client->respond( "Error processing overdue circulation [".$c->id."]:\n\n$e\n" );
                        $log->error("Error processing overdue circulation [".$c->id."]:\n$e\n");
                        $self->method_lookup('open-ils.storage.transaction.rollback')->run;
-                       throw $e ifif ($e =~ /IS NOT CONNECTED TO THE NETWORK/o);
+                       throw $e if ($e =~ /IS NOT CONNECTED TO THE NETWORK/o);
                };
        }
 }