1 |
use strict; |
use strict; |
2 |
use warnings; |
use warnings; |
3 |
|
|
4 |
package SQLSession::Model::Page; |
package SQLSession::Model::Query; |
5 |
use Jifty::DBI::Schema; |
use Jifty::DBI::Schema; |
6 |
use SQLSession::Model::Database; |
use SQLSession::Model::Database; |
7 |
|
|
10 |
type is 'text', |
type is 'text', |
11 |
label is 'Name of query', |
label is 'Name of query', |
12 |
distinct, |
distinct, |
13 |
hints is 'Short name of this page', |
hints is 'Short name for this query', |
14 |
mandatory; |
mandatory; |
15 |
|
|
16 |
column sql_query => |
column sql_query => |
22 |
render as 'textarea'; |
render as 'textarea'; |
23 |
|
|
24 |
column on_database => |
column on_database => |
25 |
refers_to SQLSession::Model::Database by 'name'; |
refers_to SQLSession::Model::Database by 'id', |
26 |
|
label is 'on database', |
27 |
|
mandatory; |
28 |
|
|
29 |
|
column note => |
30 |
|
type is 'text', |
31 |
|
label is 'Note', |
32 |
|
render as 'textarea', |
33 |
|
since 0.0.2; |
34 |
|
|
35 |
|
column visible => |
36 |
|
type is 'boolean', |
37 |
|
default is 1, |
38 |
|
since 0.0.3; |
39 |
}; |
}; |
40 |
|
|
41 |
# Your model-specific methods go here. |
# Your model-specific methods go here. |
42 |
|
|
43 |
|
sub current_user_can { |
44 |
|
return 1; |
45 |
|
} |
46 |
|
|
47 |
1; |
1; |
48 |
|
|