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;

#       Jifty->log->debug("current_user_can($what) on item ", $self->id);

        return 1 if Jifty->web->current_user->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	# Jifty->log->debug("current_user_can($what) on item ", $self->id);
55
56	return 1 if Jifty->web->current_user->id;
57	}
58
59	1;
60