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 |
1 |
}; |
29 |
|
|
|
30 |
|
|
# Your model-specific methods go here. |
31 |
|
|
|
32 |
|
|
1; |
33 |
|
|
|