SQLSession/Model/Query.pm

use strict;
use warnings;

package SQLSession::Model::Query;
use Jifty::DBI::Schema;
use SQLSession::Model::Database;
use Scalar::Defer;

use SQLSession::Record schema {
        column name =>
                type is 'text',
                label is 'Name of query',
                distinct,
                hints is 'Short name for this query',
                mandatory;

        column sql_query =>
                type is 'text',
                label is 'SQL query',
                mandatory,
                distinct,
                hints is 'Use this area to enter SQL query',
                render as 'textarea';
        
        column on_database =>
                refers_to SQLSession::Model::Database by 'id',
                label is 'on database',
                mandatory;
        
        column note =>
                type is 'text',
                label is 'Note',
                render as 'textarea',
                since '0.0.2';
        
        column visible =>
                type is 'boolean',
                default is 1,
                indexed,
                since '0.0.3';

        column owner =>
                refers_to SQLSession::Model::User by 'id',
                label is 'Query owner',
                default is defer { Jifty->web->current_user->id || 0 },
                mandatory,
                since '0.0.6';

        column created_on =>
                type is 'timestamp',
                label is 'Created On',
                default is defer { DateTime->now },
                filters are 'Jifty::DBI::Filter::DateTime',
                since '0.0.6';
};

# Your model-specific methods go here.

sub current_user_can {
        my $self = shift;

        my ($action,$item,$name) = @_;

        # prevent deep recursion for next rule
        if ( $action && $item && $name &&
                $action eq 'read' && $item eq 'column' && ( $name eq 'owner' || $name eq 'visible' )
        ) {
                return 1;
        }

        if ( $self->visible || $self->owner == $self->current_user->id ) {
                return 1;
        };

        return 0;
}

1;

1	dpavlin	1	use strict;
2			use warnings;
3
4	dpavlin	15	package SQLSession::Model::Query;
5	dpavlin	1	use Jifty::DBI::Schema;
6			use SQLSession::Model::Database;
7	dpavlin	61	use Scalar::Defer;
8	dpavlin	1
9			use SQLSession::Record schema {
10			column name =>
11			type is 'text',
12	dpavlin	14	label is 'Name of query',
13	dpavlin	1	distinct,
14	dpavlin	15	hints is 'Short name for this query',
15	dpavlin	1	mandatory;
16
17			column sql_query =>
18			type is 'text',
19			label is 'SQL query',
20			mandatory,
21			distinct,
22			hints is 'Use this area to enter SQL query',
23			render as 'textarea';
24
25			column on_database =>
26	dpavlin	21	refers_to SQLSession::Model::Database by 'id',
27	dpavlin	17	label is 'on database',
28			mandatory;
29	dpavlin	28
30			column note =>
31			type is 'text',
32			label is 'Note',
33			render as 'textarea',
34	dpavlin	61	since '0.0.2';
35	dpavlin	31
36			column visible =>
37			type is 'boolean',
38			default is 1,
39	dpavlin	61	indexed,
40			since '0.0.3';
41
42			column owner =>
43			refers_to SQLSession::Model::User by 'id',
44			label is 'Query owner',
45			default is defer { Jifty->web->current_user->id \|\| 0 },
46			mandatory,
47			since '0.0.6';
48
49			column created_on =>
50			type is 'timestamp',
51			label is 'Created On',
52			default is defer { DateTime->now },
53			filters are 'Jifty::DBI::Filter::DateTime',
54			since '0.0.6';
55	dpavlin	1	};
56
57			# Your model-specific methods go here.
58
59	dpavlin	29	sub current_user_can {
60	dpavlin	61	my $self = shift;
61
62			my ($action,$item,$name) = @_;
63
64			# prevent deep recursion for next rule
65			if ( $action && $item && $name &&
66			$action eq 'read' && $item eq 'column' && ( $name eq 'owner' \|\| $name eq 'visible' )
67			) {
68			return 1;
69			}
70
71			if ( $self->visible \|\| $self->owner == $self->current_user->id ) {
72			return 1;
73			};
74
75			return 0;
76	dpavlin	29	}
77
78	dpavlin	1	1;
79