Line 0
Link Here
|
0 |
- |
1 |
$DBversion = 'XXX'; # will be replaced by the RM |
|
|
2 |
if( CheckVersion( $DBversion ) ) { |
3 |
$dbh->do( q| |
4 |
UPDATE items LEFT JOIN issues USING (itemnumber) |
5 |
SET items.onloan = NULL |
6 |
WHERE issues.itemnumber IS NULL |
7 |
|); |
8 |
|
9 |
# Always end with this (adjust the bug info) |
10 |
SetVersion( $DBversion ); |
11 |
print "Upgrade to $DBversion done (Bug 20487: Clear items.onloan for unissued items)\n"; |
12 |
} |