30 |
cols => 80, |
cols => 80, |
31 |
rows => 12, |
rows => 12, |
32 |
) %> |
) %> |
33 |
|
|
34 |
|
<div class="database-schema"> |
35 |
|
<%perl> |
36 |
|
my $db = SQLSession::Model::Database->new(); |
37 |
|
$db->load_by_cols( id => $database ); |
38 |
|
my $name = $db->dsn; |
39 |
|
$name =~ s/^.*dbname=//; |
40 |
|
$m->out("<a href=\"/static/spy/$name/index.html\" target=\"_spy\">$name shema</a>"); |
41 |
|
</%perl> |
42 |
|
</div> |
43 |
|
|
44 |
% if ( $edit ) { |
% if ( $edit ) { |
45 |
<% $execute_sql->form_field('database', default_value => $database ) %> |
<% $execute_sql->form_field('database', default_value => $database ) %> |
46 |
% } else { |
% } else { |
50 |
<% $execute_sql->form_value('database', default_value => $database ) %> |
<% $execute_sql->form_value('database', default_value => $database ) %> |
51 |
|
|
52 |
% } |
% } |
53 |
|
|
54 |
<div class="submit_button"> |
<div class="submit_button"> |
55 |
<% $execute_sql->button( label => 'Try it!' ) %> |
<% $execute_sql->button( label => 'Try it!' ) %> |
56 |
|
|