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 |
- |
|
|