View | Details | Raw Unified | Return to bug 8438
Collapse All | Expand All

(-)a/installer/data/mysql/updatedatabase.pl (-1 / +9 lines)
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
- 

Return to bug 8438