SQLSession/Model/Query.pm

use strict;
use warnings;

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

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,
                since 0.0.3;
};

# Your model-specific methods go here.

sub current_user_can {
        return 1;
}

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
8			use SQLSession::Record schema {
9			column name =>
10			type is 'text',
11	dpavlin	14	label is 'Name of query',
12	dpavlin	1	distinct,
13	dpavlin	15	hints is 'Short name for this query',
14	dpavlin	1	mandatory;
15
16			column sql_query =>
17			type is 'text',
18			label is 'SQL query',
19			mandatory,
20			distinct,
21			hints is 'Use this area to enter SQL query',
22			render as 'textarea';
23
24			column on_database =>
25	dpavlin	21	refers_to SQLSession::Model::Database by 'id',
26	dpavlin	17	label is 'on database',
27			mandatory;
28	dpavlin	28
29			column note =>
30			type is 'text',
31			label is 'Note',
32			render as 'textarea',
33			since 0.0.2;
34	dpavlin	31
35			column visible =>
36			type is 'boolean',
37			default is 1,
38			since 0.0.3;
39	dpavlin	1	};
40
41			# Your model-specific methods go here.
42
43	dpavlin	29	sub current_user_can {
44			return 1;
45			}
46
47	dpavlin	1	1;
48