/[SQLSession]/trunk/share/web/templates/sql
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/share/web/templates/sql

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 52 by dpavlin, Sun Jan 21 13:37:17 2007 UTC revision 53 by dpavlin, Sun Jan 21 14:00:28 2007 UTC
# Line 30  warn $edit ? 'edit mode for SQL' : 'stud Line 30  warn $edit ? 'edit mode for SQL' : 'stud
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 {
# Line 39  warn $edit ? 'edit mode for SQL' : 'stud Line 50  warn $edit ? 'edit mode for SQL' : 'stud
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    
Legend:
Removed from v.52  
changed lines
  Added in v.53
  ViewVC Help
Powered by ViewVC 1.1.26