Lines 10635-10645
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 |
$dbh->do(q| |
10638 |
eval { |
10639 |
UPDATE aqorders SET orderstatus='cancelled' |
10639 |
local $dbh->{PrintError} = 0; |
10640 |
WHERE (datecancellationprinted IS NOT NULL OR |
10640 |
$dbh->do(q| |
10641 |
datecancellationprinted<>'0000-00-00'); |
10641 |
UPDATE aqorders SET orderstatus='cancelled' |
10642 |
|); |
10642 |
WHERE (datecancellationprinted IS NOT NULL OR |
|
|
10643 |
datecancellationprinted<>'0000-00-00'); |
10644 |
|); |
10645 |
}; |
10643 |
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"; |
10644 |
SetVersion($DBversion); |
10647 |
SetVersion($DBversion); |
10645 |
} |
10648 |
} |
Lines 10870-10887
if ( CheckVersion($DBversion) ) {
Link Here
|
10870 |
|
10873 |
|
10871 |
$DBversion = "3.21.00.023"; |
10874 |
$DBversion = "3.21.00.023"; |
10872 |
if ( CheckVersion($DBversion) ) { |
10875 |
if ( CheckVersion($DBversion) ) { |
10873 |
$dbh->do(q{ |
10876 |
eval { |
10874 |
UPDATE borrowers SET debarred=NULL WHERE debarred='0000-00-00' |
10877 |
local $dbh->{PrintError} = 0; |
10875 |
}); |
10878 |
$dbh->do(q{ |
10876 |
$dbh->do(q{ |
10879 |
UPDATE borrowers SET debarred=NULL WHERE debarred='0000-00-00' |
10877 |
UPDATE borrowers SET dateexpiry=NULL where dateexpiry='0000-00-00' |
10880 |
}); |
10878 |
}); |
10881 |
$dbh->do(q{ |
10879 |
$dbh->do(q{ |
10882 |
UPDATE borrowers SET dateexpiry=NULL where dateexpiry='0000-00-00' |
10880 |
UPDATE borrowers SET dateofbirth=NULL where dateofbirth='0000-00-00' |
10883 |
}); |
10881 |
}); |
10884 |
$dbh->do(q{ |
10882 |
$dbh->do(q{ |
10885 |
UPDATE borrowers SET dateofbirth=NULL where dateofbirth='0000-00-00' |
10883 |
UPDATE borrowers SET dateenrolled=NULL where dateenrolled='0000-00-00' |
10886 |
}); |
10884 |
}); |
10887 |
$dbh->do(q{ |
|
|
10888 |
UPDATE borrowers SET dateenrolled=NULL where dateenrolled='0000-00-00' |
10889 |
}); |
10890 |
}; |
10891 |
|
10885 |
print "Upgrade to $DBversion done (Bug 14717: Prevent 0000-00-00 dates in patron data)\n"; |
10892 |
print "Upgrade to $DBversion done (Bug 14717: Prevent 0000-00-00 dates in patron data)\n"; |
10886 |
SetVersion($DBversion); |
10893 |
SetVersion($DBversion); |
10887 |
} |
10894 |
} |
Lines 17629-17643
$DBversion = '18.12.00.024';
Link Here
|
17629 |
if ( CheckVersion($DBversion) ) { |
17636 |
if ( CheckVersion($DBversion) ) { |
17630 |
|
17637 |
|
17631 |
# Fixup any pre-existing bad suggestedby, manageddate, accepteddate dates |
17638 |
# Fixup any pre-existing bad suggestedby, manageddate, accepteddate dates |
17632 |
$dbh->do( |
17639 |
eval { |
17633 |
"UPDATE suggestions SET suggesteddate = '1970-01-01' WHERE suggesteddate = '0000-00-00';" |
17640 |
local $dbh->{PrintError} = 0; |
17634 |
); |
17641 |
$dbh->do( |
17635 |
$dbh->do( |
17642 |
"UPDATE suggestions SET suggesteddate = '1970-01-01' WHERE suggesteddate = '0000-00-00';" |
17636 |
"UPDATE suggestions SET manageddate = '1970-01-01' WHERE manageddate = '0000-00-00';" |
17643 |
); |
17637 |
); |
17644 |
$dbh->do( |
17638 |
$dbh->do( |
17645 |
"UPDATE suggestions SET manageddate = '1970-01-01' WHERE manageddate = '0000-00-00';" |
17639 |
"UPDATE suggestions SET accepteddate = '1970-01-01' WHERE accepteddate = '0000-00-00';" |
17646 |
); |
17640 |
); |
17647 |
$dbh->do( |
|
|
17648 |
"UPDATE suggestions SET accepteddate = '1970-01-01' WHERE accepteddate = '0000-00-00';" |
17649 |
); |
17650 |
}; |
17641 |
|
17651 |
|
17642 |
# Add constraint for suggestedby |
17652 |
# Add constraint for suggestedby |
17643 |
unless ( foreign_key_exists( 'suggestions', 'suggestions_ibfk_suggestedby' ) ) |
17653 |
unless ( foreign_key_exists( 'suggestions', 'suggestions_ibfk_suggestedby' ) ) |
Lines 21685-21716
$DBversion = '19.12.00.076';
Link Here
|
21685 |
if( CheckVersion( $DBversion ) ) { |
21695 |
if( CheckVersion( $DBversion ) ) { |
21686 |
my @warnings; |
21696 |
my @warnings; |
21687 |
|
21697 |
|
21688 |
$dbh->do(q| |
21698 |
eval { |
21689 |
UPDATE |
21699 |
local $dbh->{PrintError} = 0; |
21690 |
serial |
21700 |
$dbh->do(q| |
21691 |
SET |
21701 |
UPDATE serial |
21692 |
planneddate = NULL |
21702 |
SET planneddate = NULL |
21693 |
WHERE |
21703 |
WHERE planneddate = '0000-00-00' |
21694 |
planneddate = '0000-00-00' |
21704 |
|); |
21695 |
|); |
|
|
21696 |
|
21705 |
|
21697 |
$dbh->do(q| |
21706 |
$dbh->do(q| |
21698 |
UPDATE |
21707 |
UPDATE serial |
21699 |
serial |
21708 |
SET publisheddate = NULL |
21700 |
SET |
21709 |
WHERE publisheddate = '0000-00-00' |
21701 |
publisheddate = NULL |
21710 |
|); |
21702 |
WHERE |
|
|
21703 |
publisheddate = '0000-00-00' |
21704 |
|); |
21705 |
|
21711 |
|
21706 |
$dbh->do(q| |
21712 |
$dbh->do(q| |
21707 |
UPDATE |
21713 |
UPDATE serial |
21708 |
serial |
21714 |
SET claimdate = NULL |
21709 |
SET |
21715 |
WHERE claimdate = '0000-00-00' |
21710 |
claimdate = NULL |
21716 |
|); |
21711 |
WHERE |
21717 |
}; |
21712 |
claimdate = '0000-00-00' |
|
|
21713 |
|); |
21714 |
|
21718 |
|
21715 |
$dbh->do(q| |
21719 |
$dbh->do(q| |
21716 |
ALTER TABLE serial |
21720 |
ALTER TABLE serial |
21717 |
- |
|
|