Annotation of /trunk/share/web/templates/fragments/enter_query

<%args>
$sth => undef
$q => undef
$max_rows => 100
</%args>
<%init>

my $query = Jifty->web->new_action(
        class => 'DoSQL',
        moniker => 'query',
);

my $result = Jifty->web->response->result('query');
$sth = $result->content('sth') if $result and !defined $sth;

my $edit = Jifty->web->current_user->role('edit');
warn $edit ? 'edit mode for SQL' : 'student mode';

</%init>

% if ($q && $q->can('note')) {
        <div class="sql-note"><% $q->note %></div>
% }

<% Jifty->web->form->start() %>
% if ( Jifty->web->current_user->id ) {
<% $query->form_field('sql_query',
        default_value => $q->sql_query,
        cols => 80,
        rows => 12,
) %>
% } else {
<% $query->hidden('sql_query', $q->sql_query ) %>
<% $query->form_value('sql_query', default_value => $q->sql_query ) %>
% }

<div class="database-schema">
<%perl>
my $db = SQLSession::Model::Database->new();
$db->load_by_cols( id => $q->on_database->id );
my $name = $db->dsn;
$name =~ s/^.*dbname=//;
$m->out("<a href=\"/static/spy/$name/index.html\" target=\"_spy\">$name shema</a>");
</%perl>
</div>

% if ( $edit ) {
<% $query->form_field('database', default_value => $q->on_database->id ) %>
% } else {

<!-- hidden database -->
<% $query->hidden('database', $q->on_database->id ) %>
<% $query->form_value('database', default_value => $q->on_database->id ) %>

% }

<div class="submit_button">
<% $query->button( label => 'Try it!' ) %>


1	dpavlin	78	<%args>
2			$sth => undef
3			$q => undef
4			$max_rows => 100
5			</%args>
6			<%init>
7
8			my $query = Jifty->web->new_action(
9			class => 'DoSQL',
10			moniker => 'query',
11			);
12
13			my $result = Jifty->web->response->result('query');
14			$sth = $result->content('sth') if $result and !defined $sth;
15
16			my $edit = Jifty->web->current_user->role('edit');
17			warn $edit ? 'edit mode for SQL' : 'student mode';
18
19			</%init>
20
21			% if ($q && $q->can('note')) {
22			<div class="sql-note"><% $q->note %></div>
23			% }
24
25			<% Jifty->web->form->start() %>
26			% if ( Jifty->web->current_user->id ) {
27			<% $query->form_field('sql_query',
28			default_value => $q->sql_query,
29			cols => 80,
30			rows => 12,
31			) %>
32			% } else {
33			<% $query->hidden('sql_query', $q->sql_query ) %>
34			<% $query->form_value('sql_query', default_value => $q->sql_query ) %>
35			% }
36
37			<div class="database-schema">
38			<%perl>
39			my $db = SQLSession::Model::Database->new();
40			$db->load_by_cols( id => $q->on_database->id );
41			my $name = $db->dsn;
42			$name =~ s/^.*dbname=//;
43			$m->out("<a href=\"/static/spy/$name/index.html\" target=\"_spy\">$name shema</a>");
44			</%perl>
45			</div>
46
47			% if ( $edit ) {
48			<% $query->form_field('database', default_value => $q->on_database->id ) %>
49			% } else {
50
51			<!-- hidden database -->
52			<% $query->hidden('database', $q->on_database->id ) %>
53			<% $query->form_value('database', default_value => $q->on_database->id ) %>
54
55			% }
56
57			<div class="submit_button">
58			<% $query->button( label => 'Try it!' ) %>
59
60