|
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 |
- |
|
|