From: Lebbeous Fogle-Weekley <lebbeous@esilibrary.com>
Date: Wed, 3 Aug 2011 20:42:17 +0000 (-0400)
Subject: Cast needed
X-Git-Tag: sprint4-merge-nov22~5299
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=9398a9ca85624f4e9a4cfc87fbd9f6d38f721457;p=working%2FEvergreen.git

Cast needed

Signed-off-by: Lebbeous Fogle-Weekley <lebbeous@esilibrary.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm
index 7e93ab2beb..e8949ef9b2 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm
@@ -635,7 +635,7 @@ sub toSQL {
     }
 
     if ($record_list and @{$record_list->args} > 0) {
-        $record_list = 'JOIN (VALUES (' . join('),(', map  { $self->QueryParser->quote_value($_) } @{ $record_list->args}) . ")) record_list(id) ON (record_list.id = $key)"
+        $record_list = 'JOIN (VALUES (' . join('),(', map  { $self->QueryParser->quote_value($_) } @{ $record_list->args}) . ")) record_list(id) ON (record_list.id::BIGINT = $key)"
     } else {
         $record_list = '';
     }