/[SQLSession]/trunk/share/web/templates/fragments/enter_query
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/fragments/enter_query

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

revision 84 by dpavlin, Tue Jan 30 14:08:47 2007 UTC revision 85 by dpavlin, Tue Jan 30 14:14:19 2007 UTC
# Line 44  warn $edit ? 'edit mode for SQL' : 'stud Line 44  warn $edit ? 'edit mode for SQL' : 'stud
44  <%perl>  <%perl>
45  my $db = SQLSession::Model::Database->new();  my $db = SQLSession::Model::Database->new();
46  $db->load_by_cols( id => $on_database );  $db->load_by_cols( id => $on_database );
47  my $name = $db->dsn;  if ($db->dsn =~ m/^.*dbname=(.+)/) {
48  $name =~ s/^.*dbname=//;          $m->out("<a href=\"/static/spy/$1/index.html\" target=\"_spy\">$1 shema</a>");
49  $m->out("<a href=\"/static/spy/$name/index.html\" target=\"_spy\">$name shema</a>");  }
50  </%perl>  </%perl>
51  </div>  </div>
52    
Legend:
Removed from v.84  
changed lines
  Added in v.85
  ViewVC Help
Powered by ViewVC 1.1.26