From: Colin Campbell <colin.campbell@ptfs-europe.com>
Date: Tue, 21 Jun 2011 14:06:51 +0000 (+0100)
Subject: Bug 5549 : Add script to convert issue_dates
X-Git-Url: http://git.rot13.org/?p=koha.git;a=commitdiff_plain;h=c11f8cb622dbf464adbc484ea9e174218382cd7c

Bug 5549 : Add script to convert issue_dates
---

diff --git a/installer/data/mysql/atomicupdate/issuedate_times.pl b/installer/data/mysql/atomicupdate/issuedate_times.pl
new file mode 100644
index 0000000000..864109a1fe
--- /dev/null
+++ b/installer/data/mysql/atomicupdate/issuedate_times.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use C4::Context;
+
+my $dbh = C4::Context->dbh;
+
+$dbh->do("ALTER TABLE issues CHANGE date_due date_due datetime");
+$dbh->do("ALTER TABLE issues CHANGE returndate returndate datetime");
+$dbh->do("ALTER TABLE issues CHANGE lastreneweddate lastreneweddate datetime");
+$dbh->do("ALTER TABLE issues CHANGE issuedate issuedate datetime");
+$dbh->do("ALTER TABLE old_issues CHANGE date_due date_due datetime");
+$dbh->do("ALTER TABLE old_issues CHANGE returndate returndate datetime");
+$dbh->do("ALTER TABLE old_issues CHANGE lastreneweddate lastreneweddate datetime");
+$dbh->do("ALTER TABLE old_issues CHANGE issuedate issuedate datetime");
+$dbh->do(q{update issues set date_due = addtime(date_due, '0 23:0:0') where hour(date_due) = 0});