Revision 5b26a7ef
Von Kivitendo Admin vor mehr als 9 Jahren hinzugefügt
| sql/Pg-upgrade2-auth/bank_transaction_rights.pl | ||
|---|---|---|
| 1 |
# @tag: bank_transaction_rights |
|
| 2 |
# @description: Setzt das neue Recht die Bankerweiterung zu nutzen (für Gruppen die auch Recht Kontenabgleich haben) |
|
| 3 |
# @depends: release_3_2_0 |
|
| 4 |
package SL::DBUpgrade2::bank_transaction_rights; |
|
| 5 |
|
|
| 6 |
use strict; |
|
| 7 |
use utf8; |
|
| 8 |
|
|
| 9 |
use parent qw(SL::DBUpgrade2::Base); |
|
| 10 |
|
|
| 11 |
use SL::DBUtils; |
|
| 12 |
|
|
| 13 |
sub run {
|
|
| 14 |
my ($self) = @_; |
|
| 15 |
|
|
| 16 |
my $groups = $main::auth->read_groups(); |
|
| 17 |
|
|
| 18 |
foreach my $group (values %{$groups}) {
|
|
| 19 |
$group->{rights}->{bank_transaction} = $group->{rights}->{cash};
|
|
| 20 |
$main::auth->save_group($group); |
|
| 21 |
} |
|
| 22 |
|
|
| 23 |
return 1; |
|
| 24 |
} # end run |
|
| 25 |
|
|
| 26 |
1; |
|
Auch abrufbar als: Unified diff
Rechte für Bankbewegungen in Bankerweiterung setzen
Als sinnvollen Default erhalten beim Upgrade Gruppen, die schon das
Recht für "Zahlungseingang, Zahlungsausgang, Kontenabgleich" (cash)
besitzen, auch alle Rechte für die Bankerweiterung, also die Arbeit mit
den importierten Bankbewegungen.