lib/A3C/DefaultACL.pm

package A3C::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	dpavlin	70	package A3C::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