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