installer/data/mysql/atomicupdate/bug_24446.perl

   1 $DBversion = 'XXX';    # will be replaced by the RM
   2 if ( CheckVersion($DBversion) ) {
   3
   4     # Update daterequested from datesent for stockrotation
   5     $dbh->do(
   6         qq{
   7             UPDATE
   8               `branchtransfers`
   9             SET
  10               `daterequested` = `datesent`,
  11               `datesent` = NULL
  12             WHERE
  13               `reason` LIKE 'Stockrotation%'
  14             AND
  15               `datearrived` IS NULL
  16           }
  17     );
  18
  19     NewVersion( $DBversion, 24446, "Update stockrotation 'daterequested' field in transfers table" );
  20 }