Lines 8074-8079
if ( CheckVersion($DBversion) ) {
Link Here
|
8074 |
SetVersion($DBversion); |
8074 |
SetVersion($DBversion); |
8075 |
} |
8075 |
} |
8076 |
|
8076 |
|
|
|
8077 |
$DBversion = "3.15.00.XXX"; |
8078 |
if (C4::Context->preference("Version") < TransformToNum($DBversion)) { |
8079 |
my $borrowernumbers = $dbh->selectcol_arrayref("SELECT DISTINCT borrowernumber FROM user_permissions WHERE module_bit=15 AND code='claim_serials'"); |
8080 |
my $sth = $dbh->prepare("INSERT INTO user_permissions(borrowernumber, module_bit, code) VALUES (?, 15, 'superserials')"); |
8081 |
$sth->execute( $_ ) for @$borrowernumbers; |
8082 |
print "Upgrade to $DBversion done (Bug 8438 - Set the superserials permission for all users with the claim_serials permission.)\n"; |
8083 |
SetVersion ($DBversion); |
8084 |
} |
8085 |
|
8077 |
=head1 FUNCTIONS |
8086 |
=head1 FUNCTIONS |
8078 |
|
8087 |
|
8079 |
=head2 TableExists($table) |
8088 |
=head2 TableExists($table) |
8080 |
- |
|
|