Bug 5549 : Add script to convert issue_dates

This commit is contained in:
Colin Campbell 2011-06-21 15:06:51 +01:00 committed by Chris Cormack
parent 39d1b7e61b
commit c11f8cb622

View file

@ -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});