|
Lines 10042-10047
while ( my $file = readdir $dirh ) {
Link Here
|
| 10042 |
|
10042 |
|
| 10043 |
$DBversion = "3.19.00.XXX"; |
10043 |
$DBversion = "3.19.00.XXX"; |
| 10044 |
if ( CheckVersion($DBversion) ) { |
10044 |
if ( CheckVersion($DBversion) ) { |
|
|
10045 |
# Remove the borrow permission flag (bit 7) |
| 10046 |
$dbh->do(q| |
| 10047 |
UPDATE borrowers |
| 10048 |
SET flags = flags - ( flags & (1<<7) ) |
| 10049 |
WHERE flags IS NOT NULL |
| 10050 |
AND flags > 0 |
| 10051 |
|); |
| 10045 |
$dbh->do(q| |
10052 |
$dbh->do(q| |
| 10046 |
DELETE FROM userflags WHERE bit=7; |
10053 |
DELETE FROM userflags WHERE bit=7; |
| 10047 |
|); |
10054 |
|); |
| 10048 |
- |
|
|