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 created_on =>
                type is 'timestamp',
                default is defer { DateTime->now },
                filters are qw( Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime );

        column last_update =>
                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;

        # superuser
        return 1 if ( defined $uid && $uid == 0 );

        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 && $uid == $owner_id );

        # system user
        return 1 if ( defined( $uid ) && $uid == 0 );

        warn "$uid can't $what";
}

sub _set {
        my $self = shift;
        my ($val, $msg) = $self->SUPER::_set(@_);

        $self->SUPER::_set(column => 'last_update', value => defer { DateTime->now });

        return ($val, $msg);
}

1;

1	dpavlin	2	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	dpavlin	168	column created_on =>
37	dpavlin	2	type is 'timestamp',
38	dpavlin	168	default is defer { DateTime->now },
39	dpavlin	2	filters are qw( Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime );
40
41	dpavlin	168	column last_update =>
42	dpavlin	2	type is 'timestamp',
43			filters are qw( Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime );
44
45			};
46
47	dpavlin	3	sub since { '0.0.1' }
48
49	dpavlin	2	# Your model-specific methods go here.
50
51	dpavlin	37	sub current_user_can {
52			my $self = shift;
53			my $what = shift;
54
55	dpavlin	63	my $uid = Jifty->web->current_user->id;
56	dpavlin	37
57	dpavlin	143	# superuser
58			return 1 if ( defined $uid && $uid == 0 );
59	dpavlin	63
60	dpavlin	143	return 1 if ( $uid && $what eq 'create' );
61
62	dpavlin	63	return 1 if ( $uid && ! $self->id );
63
64			my $owner_id = $self->in_feed->owner->id;
65
66	dpavlin	70	# Jifty->log->debug("current_user[$uid]_can($what) on Item ", $self->id \|\| '???', " owner ", $owner_id \|\| '???');
67	dpavlin	63
68	dpavlin	110	return 1 if ( $uid && $owner_id && $uid == $owner_id );
69	dpavlin	128
70			# system user
71			return 1 if ( defined( $uid ) && $uid == 0 );
72
73			warn "$uid can't $what";
74	dpavlin	37	}
75
76	dpavlin	168	sub _set {
77			my $self = shift;
78			my ($val, $msg) = $self->SUPER::_set(@_);
79	dpavlin	128
80	dpavlin	168	$self->SUPER::_set(column => 'last_update', value => defer { DateTime->now });
81	dpavlin	127
82	dpavlin	168	return ($val, $msg);
83	dpavlin	127	}
84
85	dpavlin	2	1;
86