Lines 6011-6016
if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
Link Here
|
6011 |
SetVersion ($DBversion); |
6011 |
SetVersion ($DBversion); |
6012 |
} |
6012 |
} |
6013 |
|
6013 |
|
|
|
6014 |
$DBversion = "3.09.00.XXX"; |
6015 |
if (C4::Context->preference("Version") < TransformToNum($DBversion)) { |
6016 |
my $borrowernumbers = $dbh->selectcol_arrayref("SELECT DISTINCT borrowernumber FROM user_permissions WHERE module_bit=15 AND code='claim_serials'"); |
6017 |
my $sth = $dbh->prepare("INSERT INTO user_permissions(borrowernumber, module_bit, code) VALUES (?, 15, 'superserials')"); |
6018 |
$sth->execute( $_ ) for @$borrowernumbers; |
6019 |
print "Upgrade to $DBversion done (Bug 8438, Set the superserials permission for all users with the claim_serials permission.)\n"; |
6020 |
SetVersion ($DBversion); |
6021 |
} |
6022 |
|
6014 |
=head1 FUNCTIONS |
6023 |
=head1 FUNCTIONS |
6015 |
|
6024 |
|
6016 |
=head2 TableExists($table) |
6025 |
=head2 TableExists($table) |
6017 |
- |
|
|