From: Galen Charlton <gmc@equinoxinitiative.org>
Date: Fri, 29 May 2020 19:31:33 +0000 (-0400)
Subject: adjust hashing for fetch_*.latest
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=13037315427b9e316fad35d761982fba8d1b73f4;p=working%2FEvergreen.git

adjust hashing for fetch_*.latest

Perl's hash order randomization was getting in the way.

Signed-off-by: Galen Charlton <gmc@equinoxinitiative.org>
---

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",