Lines 1-19
Link Here
|
1 |
$DBversion = 'XXX'; # will be replaced by the RM |
1 |
$DBversion = 'XXX'; # will be replaced by the RM |
2 |
if( CheckVersion( $DBversion ) ) { |
2 |
if( CheckVersion( $DBversion ) ) { |
3 |
|
3 |
|
4 |
eval { |
4 |
sanitize_zero_date('aqorders', 'datecancellationprinted'); |
5 |
local $dbh->{PrintError} = 0; |
5 |
sanitize_zero_date('old_issues', 'returndate'); |
6 |
$dbh->do(q| |
|
|
7 |
UPDATE aqorders |
8 |
SET datecancellationprinted = NULL |
9 |
WHERE datecancellationprinted = '0000-00-00' |
10 |
|); |
11 |
$dbh->do(q| |
12 |
UPDATE old_issues |
13 |
SET returndate = NULL |
14 |
WHERE returndate = '0000-00-00' |
15 |
|); |
16 |
|
6 |
|
17 |
}; |
|
|
18 |
NewVersion( $DBversion, 7806, "Remove remaining possible 0000-00-00 values"); |
7 |
NewVersion( $DBversion, 7806, "Remove remaining possible 0000-00-00 values"); |
19 |
} |
8 |
} |
20 |
- |
|
|