41 |
|
|
42 |
# We probably want something like this eventually: |
# We probably want something like this eventually: |
43 |
if ($type =~ /(?:create|read|update)/i) { |
if ($type =~ /(?:create|read|update)/i) { |
44 |
|
|
45 |
|
my $uos = Transports::Model::UserOnSource->new(); |
46 |
|
$uos->load_by_cols( |
47 |
|
user_on => $self->current_user->id, |
48 |
|
source => $self->id |
49 |
|
); |
50 |
|
return undef if ($self->current_user->id && ! $uos->id); |
51 |
|
|
52 |
return 1; |
return 1; |
53 |
} else { |
} else { |
54 |
return $self->SUPER::current_user_can($type, @_); |
return $self->SUPER::current_user_can($type, @_); |