From 5962dee647457f2b25e9d8c853218b445c41b858 Mon Sep 17 00:00:00 2001
From: Colin Campbell <colin.campbell@ptfs-europe.com>
Date: Wed, 22 Jul 2009 15:42:57 +0100
Subject: [PATCH] bug 3434 Fix SQL Syntax Error when setting claimdate

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
---
 C4/Serials.pm | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/C4/Serials.pm b/C4/Serials.pm
index 012672800e..5f4b3eca98 100644
--- a/C4/Serials.pm
+++ b/C4/Serials.pm
@@ -320,15 +320,14 @@ Update Claimdate for issues in @$serialids list with date $date
 
 sub UpdateClaimdateIssues {
     my ( $serialids, $date ) = @_;
+    if (!$date) {
+        $date = strftime('%Y-%m-%d',localtime);
+    }
     my $dbh   = C4::Context->dbh;
-    $date = strftime("%Y-%m-%d",localtime) unless ($date);
-    my $query = "
-        UPDATE serial SET claimdate=$date,status=7
-        WHERE  serialid in ".join (",",@$serialids);
-    ;
-    my $rq = $dbh->prepare($query);
-    $rq->execute;
-    return $rq->rows;
+    my $ids_str = join ',', @{$serialids};
+    my $query = 'UPDATE serial SET claimdate=? ,status=7 WHERE  serialid IN ( '
+     . $ids_str . ' )';
+    return $dbh->do($query,undef, $date);
 }
 
 =head2 GetSubscription
-- 
2.39.5