|
|
@ -849,7 +849,7 @@ sub check_write_access {
|
|
|
|
sub subscriberadmin_write_access {
|
|
|
|
sub subscriberadmin_write_access {
|
|
|
|
my($self,$c) = @_;
|
|
|
|
my($self,$c) = @_;
|
|
|
|
if ($c->user->roles eq "subscriberadmin"
|
|
|
|
if ($c->user->roles eq "subscriberadmin"
|
|
|
|
&& exists $c->config->{privileges}->{subscriberadmin}->{subscribers}
|
|
|
|
&& $c->config->{privileges}->{subscriberadmin}->{subscribers}
|
|
|
|
&& $c->config->{privileges}->{subscriberadmin}->{subscribers} =~/write/ ) {
|
|
|
|
&& $c->config->{privileges}->{subscriberadmin}->{subscribers} =~/write/ ) {
|
|
|
|
return 1;
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
}
|
|
|
|