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