|
Lines 9669-9674
if ( CheckVersion($DBversion) ) {
Link Here
|
| 9669 |
SetVersion ($DBversion); |
9669 |
SetVersion ($DBversion); |
| 9670 |
} |
9670 |
} |
| 9671 |
|
9671 |
|
|
|
9672 |
$DBversion = "3.19.00.XXX"; |
| 9673 |
if ( CheckVersion($DBversion) ) { |
| 9674 |
my $borrowernumbers = $dbh->selectcol_arrayref(q| |
| 9675 |
SELECT DISTINCT borrowernumber |
| 9676 |
FROM user_permissions |
| 9677 |
WHERE module_bit=15 |
| 9678 |
AND code='claim_serials' |
| 9679 |
|); |
| 9680 |
my $sth = $dbh->prepare(q| |
| 9681 |
INSERT INTO user_permissions(borrowernumber, module_bit, code) VALUES (?, 15, 'superserials') |
| 9682 |
|); |
| 9683 |
$sth->execute( $_ ) for @$borrowernumbers; |
| 9684 |
print "Upgrade to $DBversion done (Bug 8438 - Set the superserials permission for all users with the claim_serials permission.)\n"; |
| 9685 |
SetVersion ($DBversion); |
| 9686 |
} |
| 9687 |
|
| 9672 |
=head1 FUNCTIONS |
9688 |
=head1 FUNCTIONS |
| 9673 |
|
9689 |
|
| 9674 |
=head2 TableExists($table) |
9690 |
=head2 TableExists($table) |
| 9675 |
- |
|
|