Lines 10635-10648
if ( CheckVersion($DBversion) ) {
Link Here
|
10635 |
|
10635 |
|
10636 |
$DBversion = "3.21.00.009"; |
10636 |
$DBversion = "3.21.00.009"; |
10637 |
if ( CheckVersion($DBversion) ) { |
10637 |
if ( CheckVersion($DBversion) ) { |
10638 |
eval { |
10638 |
|
10639 |
local $dbh->{PrintError} = 0; |
10639 |
sanitize_zero_date('aqorders', 'datecancellationprinted'); |
10640 |
$dbh->do(q| |
10640 |
|
10641 |
UPDATE aqorders SET orderstatus='cancelled' |
10641 |
$dbh->do(q| |
10642 |
WHERE (datecancellationprinted IS NOT NULL OR |
10642 |
UPDATE aqorders SET orderstatus='cancelled' |
10643 |
datecancellationprinted<>'0000-00-00'); |
10643 |
WHERE (datecancellationprinted IS NOT NULL) |
10644 |
|); |
10644 |
|); |
10645 |
}; |
10645 |
|
10646 |
print "Upgrade to $DBversion done (Bug 13993: Correct orderstatus for transferred orders)\n"; |
10646 |
print "Upgrade to $DBversion done (Bug 13993: Correct orderstatus for transferred orders)\n"; |
10647 |
SetVersion($DBversion); |
10647 |
SetVersion($DBversion); |
10648 |
} |
10648 |
} |
Lines 10873-10893
if ( CheckVersion($DBversion) ) {
Link Here
|
10873 |
|
10873 |
|
10874 |
$DBversion = "3.21.00.023"; |
10874 |
$DBversion = "3.21.00.023"; |
10875 |
if ( CheckVersion($DBversion) ) { |
10875 |
if ( CheckVersion($DBversion) ) { |
10876 |
eval { |
10876 |
|
10877 |
local $dbh->{PrintError} = 0; |
10877 |
sanitize_zero_date('borrowers', 'debarred'); |
10878 |
$dbh->do(q{ |
10878 |
sanitize_zero_date('borrowers', 'dateexpiry'); |
10879 |
UPDATE borrowers SET debarred=NULL WHERE debarred='0000-00-00' |
10879 |
sanitize_zero_date('borrowers', 'dateofbirth'); |
10880 |
}); |
10880 |
sanitize_zero_date('borrowers', 'dateenrolled'); |
10881 |
$dbh->do(q{ |
|
|
10882 |
UPDATE borrowers SET dateexpiry=NULL where dateexpiry='0000-00-00' |
10883 |
}); |
10884 |
$dbh->do(q{ |
10885 |
UPDATE borrowers SET dateofbirth=NULL where dateofbirth='0000-00-00' |
10886 |
}); |
10887 |
$dbh->do(q{ |
10888 |
UPDATE borrowers SET dateenrolled=NULL where dateenrolled='0000-00-00' |
10889 |
}); |
10890 |
}; |
10891 |
|
10881 |
|
10892 |
print "Upgrade to $DBversion done (Bug 14717: Prevent 0000-00-00 dates in patron data)\n"; |
10882 |
print "Upgrade to $DBversion done (Bug 14717: Prevent 0000-00-00 dates in patron data)\n"; |
10893 |
SetVersion($DBversion); |
10883 |
SetVersion($DBversion); |
Lines 21697-21722
$DBversion = '19.12.00.076';
Link Here
|
21697 |
if( CheckVersion( $DBversion ) ) { |
21687 |
if( CheckVersion( $DBversion ) ) { |
21698 |
my @warnings; |
21688 |
my @warnings; |
21699 |
|
21689 |
|
21700 |
eval { |
21690 |
sanitize_zero_date('serial', 'planneddate'); |
21701 |
local $dbh->{PrintError} = 0; |
21691 |
sanitize_zero_date('serial', 'publisheddate'); |
21702 |
$dbh->do(q| |
21692 |
sanitize_zero_date('serial', 'claimdate'); |
21703 |
UPDATE serial |
|
|
21704 |
SET planneddate = NULL |
21705 |
WHERE planneddate = '0000-00-00' |
21706 |
|); |
21707 |
|
21708 |
$dbh->do(q| |
21709 |
UPDATE serial |
21710 |
SET publisheddate = NULL |
21711 |
WHERE publisheddate = '0000-00-00' |
21712 |
|); |
21713 |
|
21714 |
$dbh->do(q| |
21715 |
UPDATE serial |
21716 |
SET claimdate = NULL |
21717 |
WHERE claimdate = '0000-00-00' |
21718 |
|); |
21719 |
}; |
21720 |
|
21693 |
|
21721 |
$dbh->do(q| |
21694 |
$dbh->do(q| |
21722 |
ALTER TABLE serial |
21695 |
ALTER TABLE serial |
Lines 23680-23683
sub CheckVersion {
Link Here
|
23680 |
} |
23653 |
} |
23681 |
} |
23654 |
} |
23682 |
|
23655 |
|
|
|
23656 |
sub sanitize_zero_date { |
23657 |
my ( $table_name, $column_name ) = @_; |
23658 |
$dbh->do(qq| |
23659 |
UPDATE $table_name |
23660 |
SET $column_name = NULL |
23661 |
WHERE CAST($column_name AS CHAR(10)) = '0000-00-00'; |
23662 |
|); |
23663 |
} |
23664 |
|
23683 |
exit; |
23665 |
exit; |
23684 |
- |
|
|