Lines 6477-6483
if ( CheckVersion($DBversion) ) {
Link Here
|
6477 |
} |
6477 |
} |
6478 |
$DBversion = "3.11.00.XXX"; |
6478 |
$DBversion = "3.11.00.XXX"; |
6479 |
if ( CheckVersion($DBversion) ) { |
6479 |
if ( CheckVersion($DBversion) ) { |
6480 |
$dbh->do("INSERT INTO permissions ( module_bit, code, description ) VALUES ( '1', 'overdues_report', 'Execute overdue items report' )"); |
6480 |
$dbh->do(q{ |
|
|
6481 |
INSERT INTO permissions ( module_bit, code, description ) |
6482 |
VALUES ( '1', 'overdues_report', 'Execute overdue items report' ) |
6483 |
}); |
6484 |
# add new permission for users with all report permissions and circulation remaining permission |
6485 |
my $sth = $dbh->prepare(q{ |
6486 |
INSERT INTO user_permissions (borrowernumber, module_bit, code) |
6487 |
SELECT user_permissions.borrowernumber, 1, 'overdues_report' |
6488 |
FROM user_permissions |
6489 |
LEFT JOIN borrowers USING(borrowernumber) |
6490 |
WHERE borrowers.flags & (1 << 16) |
6491 |
AND user_permissions.code = 'circulate_remaining_permissions' |
6492 |
}); |
6481 |
print "Upgrade to $DBversion done ( Add circ permission overdues_report )\n"; |
6493 |
print "Upgrade to $DBversion done ( Add circ permission overdues_report )\n"; |
6482 |
SetVersion($DBversion); |
6494 |
SetVersion($DBversion); |
6483 |
} |
6495 |
} |
6484 |
- |
|
|