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