34 |
% if ( $edit ) { |
% if ( $edit ) { |
35 |
<tt>[<% $q->on_database->id . ': ' . $q->on_database->dsn %>]</tt> |
<tt>[<% $q->on_database->id . ': ' . $q->on_database->dsn %>]</tt> |
36 |
% } |
% } |
37 |
<%perl> |
<span class="database-schema"> |
38 |
|
<%perl> |
39 |
my $name = $q->on_database->dsn; |
my $name = $q->on_database->dsn; |
40 |
$name =~ s/^.*dbname=//; |
$name =~ s/^.*dbname=//; |
41 |
$m->out("<a href=\"/static/spy/$name/index.html\">$name</a>"); |
$m->out("<a href=\"/static/spy/$name/index.html\" target=\"_spy\">$name shema</a>"); |
42 |
</%perl> |
</%perl> |
43 |
|
</span> |
44 |
|
|
45 |
</span> |
</span> |
46 |
|
|
47 |
</dt> |
</dt> |