view release on metacpan or  search on metacpan

mason/view_sync_sql.mhtml  view on Meta::CPAN

  <td>

<div class="page">

<pre>
<% join "\n\n", map {"$_;"} @sql %>
</pre>
% if (@sql) {

 <form action="execute_sync_sql<% Alzabo::GUI::Mason::Config::mason_extension() %>" method="post">
 <input type="hidden" name="schema" value="<% $s->name %>">
 <& login_form.mas &>
 <input type="submit" value="Execute SQL">

% } else {
<p>
No SQL to display.  This probably means the schema has already been
instantiated and no changes have been made to it.
</p>

<p>
<a href="view_schema<% Alzabo::GUI::Mason::Config::mason_extension() %>?schema=<% $s->name | u %>">Back</a>
</p>
% }

</div>

  </td>
<%args>
$s
$user => undef
$password => undef
$host => undef
$port => undef
</%args>
<%init>
my @sql;
eval
{
    @sql = $s->sync_backend_sql( user => $user,
				 password => $password,
				 host => $host,
				 port => $port,
			       );
};

my $e = $@;

$m->comp( 'exception', $e ) if $e;

</%init>

<%attr>
show_tables => 0
</%attr>