if ( $user > 0 and $action eq 'delete_shelf' ) {
my $borrower = C4::Members::GetMember( borrowernumber => $user );
return 1
- if C4::Auth::haspermission( $borrower->{userid}, { shelves => 'delete_shelves' } );
+ if C4::Auth::haspermission( $borrower->{userid}, { shelves => 'delete_public_lists' } );
}
my $dbh = C4::Context->dbh;
(17,'staffaccess','Allow staff members to modify permissions for other staff members',0),
(18,'coursereserves','Course reserves',0),
(19, 'plugins', 'Koha plugins', '0'),
-(20, 'shelves', 'Virtual shelves', 0)
+(20, 'lists', 'Lists', 0)
;
(19, 'tool', 'Use tool plugins'),
(19, 'report', 'Use report plugins'),
(19, 'configure', 'Configure plugins'),
- (20, 'delete_shelves', 'Delete shelves')
+ (20, 'delete_public_lists', 'Delete public lists')
;
if ( CheckVersion($DBversion) ) {
$dbh->do(q|
INSERT INTO userflags (bit, flag, flagdesc, defaulton) VALUES
- (20, 'shelves', 'Virtual shelves', 0)
+ (20, 'lists', 'Lists', 0)
|);
$dbh->do(q|
INSERT INTO permissions (module_bit, code, description) VALUES
- (20, 'delete_shelves', 'Delete shelves')
+ (20, 'delete_public_lists', 'Delete public lists')
|);
- print "Upgrade to $DBversion done (Bug 13417: Add permission to delete shelves)\n";
+ print "Upgrade to $DBversion done (Bug 13417: Add permission to delete public lists)\n";
SetVersion ($DBversion);
}