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

(-)a/installer/data/mysql/updatedatabase.pl (-2 / +14 lines)
Lines 37-42 use Getopt::Long; Link Here
37
use C4::Context;
37
use C4::Context;
38
use C4::Installer;
38
use C4::Installer;
39
use C4::Dates;
39
use C4::Dates;
40
use C4::Auth;
40
41
41
use MARC::Record;
42
use MARC::Record;
42
use MARC::File::XML ( BinaryEncoding => 'utf8' );
43
use MARC::File::XML ( BinaryEncoding => 'utf8' );
Lines 6446-6452 if ( CheckVersion($DBversion) ) { Link Here
6446
6447
6447
$DBversion = "3.11.00.XXX";
6448
$DBversion = "3.11.00.XXX";
6448
if ( CheckVersion($DBversion) ) {
6449
if ( CheckVersion($DBversion) ) {
6449
    $dbh->do("INSERT INTO  permissions ( module_bit, code, description ) VALUES  ( '1',  'overdues_report',  'Execute overdue items report' )");
6450
    $dbh->do(q{
6451
        INSERT INTO permissions ( module_bit, code, description )
6452
        VALUES  ( '1', 'overdues_report', 'Execute overdue items report' )
6453
    });
6454
    # add new permission for users with all report permissions and circulation remaining permission
6455
    my $sth = $dbh->prepare(q{
6456
        INSERT INTO user_permissions (borrowernumber, module_bit, code)
6457
        SELECT user_permissions.borrowernumber, 1, 'overdues_report'
6458
        FROM user_permissions
6459
        LEFT JOIN borrowers USING(borrowernumber)
6460
        WHERE borrowers.flags & (1 << 16)
6461
        AND user_permissions.code = 'circulate_remaining_permissions'
6462
    });
6450
    print "Upgrade to $DBversion done ( Add circ permission overdues_report )\n";
6463
    print "Upgrade to $DBversion done ( Add circ permission overdues_report )\n";
6451
    SetVersion($DBversion);
6464
    SetVersion($DBversion);
6452
}
6465
}
6453
- 

Return to bug 6898