From 5d4ba1e23f64ca1791f1052b0c6ede1d8b1a7ae4 Mon Sep 17 00:00:00 2001 From: Thomas Berezansky Date: Tue, 1 Oct 2013 14:48:06 -0400 Subject: [PATCH] Proper substr usage in "since" mode Signed-off-by: Thomas Berezansky --- Open-ILS/src/support-scripts/Marque.pm.in | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Open-ILS/src/support-scripts/Marque.pm.in b/Open-ILS/src/support-scripts/Marque.pm.in index 89be63207d..df0bd7c337 100644 --- a/Open-ILS/src/support-scripts/Marque.pm.in +++ b/Open-ILS/src/support-scripts/Marque.pm.in @@ -445,7 +445,7 @@ sub next { if ($Marque::config->option_value('since')) { my $leader = $r->leader(); if ($U->is_true($bre->deleted())) { - $leader = substr($leader, 5, 1, 'd'); + substr($leader, 5, 1) = 'd'; $r->leader($leader); } else { my $create_date = Date::Manip::Date->new; @@ -453,10 +453,10 @@ sub next { my $edit_date = Date::Manip::Date->new; $edit_date->parse($bre->edit_date()); if ($self->{since_date}->cmp($create_date) < 0) { - $leader = substr($leader, 5, 1, 'n'); + substr($leader, 5, 1) = 'n'; $r->leader($leader); } elsif ($self->{since_date}->cmp($edit_date) < 0) { - $leader = substr($leader, 5, 1, 'c'); + substr($leader, 5, 1) = 'c'; $r->leader($leader); } } @@ -689,7 +689,7 @@ sub next { if ($Marque::config->option_value('since')) { my $leader = $r->leader(); if ($U->is_true($are->deleted())) { - $leader = substr($leader, 5, 1, 'd'); + substr($leader, 5, 1) = 'd'; $r->leader($leader); } else { my $create_date = Date::Manip::Date->new; @@ -697,10 +697,10 @@ sub next { my $edit_date = Date::Manip::Date->new; $edit_date->parse($are->edit_date()); if ($self->{since_date}->cmp($create_date) < 0) { - $leader = substr($leader, 5, 1, 'n'); + substr($leader, 5, 1) = 'n'; $r->leader($leader); } elsif ($self->{since_date}->cmp($edit_date) < 0) { - $leader = substr($leader, 5, 1, 'c'); + substr($leader, 5, 1) = 'c'; $r->leader($leader); } } -- 2.11.0