Transports/Model/Source.pm

use strict;
use warnings;

package Transports::Model::Source::Schema;
use Jifty::DBI::Schema;

use Transports::Model::Landscape;

# Your column definitions go here.  See L<Jifty::DBI::Schema> for
# documentation about how to write column definitions.

column name =>
        type is 'text',
        label is 'Source client',
        is mandatory,
        since '0.0.6';

column landscape =>
        refers_to Transports::Model::Landscape,
        label is 'Part of landscape',
        since '0.0.13';

package Transports::Model::Source;
use base qw/Transports::Record/;

# Your model-specific methods go here.

=head2 current_user_can ACTION

admin and import can everything, users with permission on landscape can read.

=cut

sub current_user_can {
    my $self = shift;
    my $type = shift;

        return 1 if ($self->current_user->admin || $self->current_user->can_import);

        if ($type eq 'read') {

                my $l = Transports::Model::UserOnLandscape->new();
                $l->load_by_cols(
                        user_on => $self->current_user->id,
                        landscape => $self->landscape->id,
                );

                if ($l->id) {
                        return 1;
                } else {
                        return undef;
                }
        }

        return $self->SUPER::current_user_can($type, @_);
}

1;

1	dpavlin	1	use strict;
2			use warnings;
3
4			package Transports::Model::Source::Schema;
5			use Jifty::DBI::Schema;
6
7	dpavlin	51	use Transports::Model::Landscape;
8
9	dpavlin	1	# Your column definitions go here. See L<Jifty::DBI::Schema> for
10			# documentation about how to write column definitions.
11
12			column name =>
13			type is 'text',
14			label is 'Source client',
15			is mandatory,
16			since '0.0.6';
17
18	dpavlin	51	column landscape =>
19			refers_to Transports::Model::Landscape,
20			label is 'Part of landscape',
21			since '0.0.13';
22
23	dpavlin	1	package Transports::Model::Source;
24			use base qw/Transports::Record/;
25
26			# Your model-specific methods go here.
27
28	dpavlin	22	=head2 current_user_can ACTION
29
30	dpavlin	58	admin and import can everything, users with permission on landscape can read.
31	dpavlin	22
32			=cut
33
34			sub current_user_can {
35			my $self = shift;
36			my $type = shift;
37
38	dpavlin	58	return 1 if ($self->current_user->admin \|\| $self->current_user->can_import);
39	dpavlin	41
40	dpavlin	58	if ($type eq 'read') {
41
42			my $l = Transports::Model::UserOnLandscape->new();
43			$l->load_by_cols(
44			user_on => $self->current_user->id,
45			landscape => $self->landscape->id,
46			);
47
48			if ($l->id) {
49			return 1;
50			} else {
51			return undef;
52			}
53			}
54
55	dpavlin	51	return $self->SUPER::current_user_can($type, @_);
56	dpavlin	22	}
57
58	dpavlin	1	1;
59