From: Jason Stephenson Date: Wed, 8 Jan 2014 01:46:20 +0000 (-0500) Subject: LP 1198465: Whitespace cleanup in Publisher/actor.pm. X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=b4daddc736b8189ced6092d0bf473811e4ffc92d;p=working%2FEvergreen.git LP 1198465: Whitespace cleanup in Publisher/actor.pm. Signed-off-by: Jason Stephenson Signed-off-by: Kathy Lussier --- 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 06117ff682..84d0683ff3 100644 --- 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;