Grep/Model/Item.pm

use strict;
use warnings;

package Grep::Model::Item;
use Jifty::DBI::Schema;

use Grep::Model::Feed;

use Grep::Record schema {

        column in_feed =>
                refers_to Grep::Model::Feed by 'id',
                is mandatory;
        
        column title =>
                type is 'text',
                is mandatory;
        
        column link =>
                type is 'text',
                is mandatory;
        
        column content =>
                type is 'text',
                is mandatory;

        column summary =>
                type is 'text';

        column category =>
                type is 'text';
        
        column author =>
                type is 'text';

        column issued =>
                type is 'timestamp',
                filters are qw( Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime );

        column modified =>
                type is 'timestamp',
                filters are qw( Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime );

};

sub since { '0.0.1' }

# Your model-specific methods go here.

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

        my $uid = Jifty->web->current_user->id;

        return 1 if ( $uid && $what eq 'create' );

        return 1 if ( $uid && ! $self->id );

        my $owner_id = $self->in_feed->owner->id;

#       Jifty->log->debug("current_user[$uid]_can($what) on Item ", $self->id || '???', " owner ", $owner_id || '???');

        return 1 if ( $uid == $owner_id );
}

1;

1	use strict;
2	use warnings;
3
4	package Grep::Model::Item;
5	use Jifty::DBI::Schema;
6
7	use Grep::Model::Feed;
8
9	use Grep::Record schema {
10
11	column in_feed =>
12	refers_to Grep::Model::Feed by 'id',
13	is mandatory;
14
15	column title =>
16	type is 'text',
17	is mandatory;
18
19	column link =>
20	type is 'text',
21	is mandatory;
22
23	column content =>
24	type is 'text',
25	is mandatory;
26
27	column summary =>
28	type is 'text';
29
30	column category =>
31	type is 'text';
32
33	column author =>
34	type is 'text';
35
36	column issued =>
37	type is 'timestamp',
38	filters are qw( Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime );
39
40	column modified =>
41	type is 'timestamp',
42	filters are qw( Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime );
43
44	};
45
46	sub since { '0.0.1' }
47
48	# Your model-specific methods go here.
49
50	sub current_user_can {
51	my $self = shift;
52	my $what = shift;
53
54	my $uid = Jifty->web->current_user->id;
55
56	return 1 if ( $uid && $what eq 'create' );
57
58	return 1 if ( $uid && ! $self->id );
59
60	my $owner_id = $self->in_feed->owner->id;
61
62	# Jifty->log->debug("current_user[$uid]_can($what) on Item ", $self->id \|\| '???', " owner ", $owner_id \|\| '???');
63
64	return 1 if ( $uid == $owner_id );
65	}
66
67	1;
68