lib/Arh/DefaultACL.pm

package Arh::DefaultACL;
use Exporter 'import';
our @EXPORT = qw/
current_user_can
/;

use strict;
use warnings;

sub current_user_can {
        my ( $self,$action,$item,$value ) = @_;
        $item ||= '';
        $value ||= '';
#       Jifty->log->debug("|$action|$item|$value| user id: ",$self->current_user->id);
#       return 0 if $self->current_user->id == 0 && $action ne 'read';
        return 1 if $self->current_user->superuser;
        return 1 if $self->current_user->administrator;
        return 1 if $action eq 'read' && $self->current_user->id > 0;
    return 0;
}


1	package Arh::DefaultACL;
2	use Exporter 'import';
3	our @EXPORT = qw/
4	current_user_can
5	/;
6
7	use strict;
8	use warnings;
9
10	sub current_user_can {
11	my ( $self,$action,$item,$value ) = @_;
12	$item \|\|= '';
13	$value \|\|= '';
14	# Jifty->log->debug("\|$action\|$item\|$value\| user id: ",$self->current_user->id);
15	# return 0 if $self->current_user->id == 0 && $action ne 'read';
16	return 1 if $self->current_user->superuser;
17	return 1 if $self->current_user->administrator;
18	return 1 if $action eq 'read' && $self->current_user->id > 0;
19	return 0;
20	}
21
22