installer/data/mysql/atomicupdate/issuedate_times.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use C4::Context;
   6
   7 my $dbh = C4::Context->dbh;
   8
   9 $dbh->do("ALTER TABLE issues CHANGE date_due date_due datetime");
  10 $dbh->do("ALTER TABLE issues CHANGE returndate returndate datetime");
  11 $dbh->do("ALTER TABLE issues CHANGE lastreneweddate lastreneweddate datetime");
  12 $dbh->do("ALTER TABLE issues CHANGE issuedate issuedate datetime");
  13 $dbh->do("ALTER TABLE old_issues CHANGE date_due date_due datetime");
  14 $dbh->do("ALTER TABLE old_issues CHANGE returndate returndate datetime");
  15 $dbh->do("ALTER TABLE old_issues CHANGE lastreneweddate lastreneweddate datetime");
  16 $dbh->do("ALTER TABLE old_issues CHANGE issuedate issuedate datetime");
  17 $dbh->do(q{update issues set date_due = addtime(date_due, '0 23:0:0') where hour(date_due) = 0});