Whitespace cleanup in Publisher/actor.pm.

Signed-off-by: Jason Stephenson <jason@sigio.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/actor.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/actor.pm
index 06117ff..84d0683 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/actor.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/actor.pm
@@ -6,12 +6,12 @@ use OpenSRF::Utils qw/:datetime/;
 use OpenILS::Utils::Fieldmapper;
 use OpenSRF::Utils::SettingsClient;
 
-use DateTime;           
-use DateTime::Format::ISO8601;  
+use DateTime;
+use DateTime::Format::ISO8601;
 use DateTime::Set;
 use DateTime::SpanSet;
 
-my $_dt_parser = DateTime::Format::ISO8601->new;    
+my $_dt_parser = DateTime::Format::ISO8601->new;
 
 my $log = 'OpenSRF::Utils::Logger';
 
@@ -333,7 +333,7 @@ sub new_org_closed_overlap {
                 $begin = $_dt_parser->parse_datetime( cleanse_ISO8601($_b->{start}) );
             }
         }
-    
+
         if ( $end_hoo && $direction >= 0 && $end_hoo->intersects($end) ) {
             my $hoo_intersection = $end_hoo->intersection( $end );
             $end = $hoo_intersection->max;
@@ -435,12 +435,12 @@ sub org_closed_overlap {
                     }
                 }
             }
-    
+
             if ( $direction >= 0 ) {
                 my $end_dow = $_dt_parser->parse_datetime( $end )->day_of_week_0;
                 my $end_open_meth = "dow_".$end_dow."_open";
                 my $end_close_meth = "dow_".$end_dow."_close";
-    
+
                 $count = 1;
                 while ($hoo->$end_open_meth eq '00:00:00' and $hoo->$end_close_meth eq '00:00:00') {
                     $end = cleanse_ISO8601($_dt_parser->parse_datetime( $end )->add( days => 1)->strftime('%FT%T%z'));
@@ -617,7 +617,7 @@ __PACKAGE__->register_method(
 sub _clean_regex_chars {
     my ($search) = @_;
 
-    # Escape metacharacters for SIMILAR TO 
+    # Escape metacharacters for SIMILAR TO
     # (http://www.postgresql.org/docs/8.4/interactive/functions-matching.html)
     $search =~ s/\_/\\_/g;
     $search =~ s/\%/\\%/g;
@@ -938,7 +938,7 @@ sub fleshed_actor_stat_cat {
         my $self = shift;
         my $client = shift;
         my @list = @_;
-        
+
     @list = ($list[0]) unless ($self->api_name =~ /batch/o);
 
     for my $sc (@list) {
@@ -975,7 +975,7 @@ sub ranged_actor_stat_cat_all {
         my $self = shift;
         my $client = shift;
         my $ou = ''.shift();
-        
+
         return undef unless ($ou);
         my $s_table = actor::stat_cat->table;
 
@@ -1027,7 +1027,7 @@ sub ranged_actor_stat_cat_entry {
         my $client = shift;
         my $ou = ''.shift();
         my $sc = ''.shift();
-        
+
         return undef unless ($ou);
         my $s_table = actor::stat_cat_entry->table;
 
@@ -1061,7 +1061,7 @@ sub actor_stat_cat_entry_default {
     my $client = shift;
     my $ou = ''.shift();
     my $sc = ''.shift();
-        
+
     return undef unless ($ou);
     my $s_table = actor::stat_cat_entry_default->table;
 
@@ -1092,7 +1092,7 @@ sub actor_stat_cat_entry_default_ancestor {
     my $client = shift;
     my $ou = ''.shift();
     my $sc = ''.shift();
-        
+
     return undef unless ($ou);
     my $s_table = actor::stat_cat_entry_default->table;