installer/data/mysql/atomicupdate/bug_27808.perl

   1 $DBversion = 'XXX'; # will be replaced by the RM
   2 if( CheckVersion( $DBversion ) ) {
   3
   4     $dbh->do(q|
   5         UPDATE items
   6         LEFT JOIN issues ON issues.itemnumber=items.itemnumber
   7         SET items.onloan=CAST(issues.date_due AS DATE)
   8         WHERE items.onloan IS NULL
   9     |);
  10
  11     NewVersion( $DBversion, 27808, "Adjust items.onloan if needed");
  12 }