From 13037315427b9e316fad35d761982fba8d1b73f4 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Fri, 29 May 2020 15:31:33 -0400 Subject: [PATCH] adjust hashing for fetch_*.latest Perl's hash order randomization was getting in the way. Signed-off-by: Galen Charlton --- Open-ILS/src/perlmods/lib/OpenILS/Application/Curbside.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Curbside.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Curbside.pm index a6369d1841..28c03a20dd 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Curbside.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Curbside.pm @@ -122,7 +122,7 @@ sub fetch_latest_delivered { # returns appointments delivered TODAY idlist => 1, order_by => { acsp => {delivered => {direction => 'desc'}} } }]); - return md5_hex( join(',', @$slots) ); + return md5_hex( join(',', map { $_->id . $_->slot // '' } @$slots) ); } __PACKAGE__->register_method( method => "fetch_latest_delivered", @@ -209,7 +209,7 @@ sub fetch_latest_arrived { idlist => 1, order_by => { acsp => { arrival => { direction => 'desc' } } } }]); - return md5_hex( join(',', @$slots) ); + return md5_hex( join(',', map { $_->id . $_->slot // '' } @$slots) ); } __PACKAGE__->register_method( method => "fetch_latest_arrived", @@ -300,7 +300,7 @@ sub fetch_latest_staged { ] }]); - return md5_hex( join(',', @$slots) ); + return md5_hex( join(',', map { $_->id . $_->slot // '' } @$slots) ); } __PACKAGE__->register_method( method => "fetch_latest_staged", @@ -411,7 +411,7 @@ sub fetch_latest_to_be_staged { ] }]); - return md5_hex( join(',', @$slots) ); + return md5_hex( join(',', map { $_->id . $_->slot // '' } @$slots) ); } __PACKAGE__->register_method( method => "fetch_latest_to_be_staged", -- 2.11.0