--- trunk/share/web/templates/index.html	2006/12/03 18:03:30	20
+++ trunk/share/web/templates/list	2007/01/21 12:19:58	45
@@ -1,6 +1,26 @@
+<%args>
+$database_id => undef
+</%args>
 <%init>
 my $queries = SQLSession::Model::QueryCollection->new();
-$queries->unlimit();
+
+my $edit = Jifty->web->current_user->role('edit');
+
+use Data::Dump qw/dump/;
+warn "current_user = ", dump( Jifty->web->current_user );
+
+warn "edit = $edit";
+
+
+if ( $edit ) {
+	$queries->unlimit;
+} else {
+	$queries->limit( column => 'visible', value => 1 );
+}
+$queries->limit( column => 'on_database', value => $database_id ) if ( $database_id );
+$queries->order_by( column => 'name', order => 'asc' );
+
+warn $queries->build_select_query;
 
 </%init>
 
@@ -10,13 +30,30 @@
 	<dt><% Jifty->web->tangent(
 		url => '/sql/' . $q->id,
 		label => $q->name,
-	) %></dt>
+	) %>
+
+	<span class="database-name">on <% $q->on_database->name %>
+% if ( $edit ) {
+	<tt>[<% $q->on_database->id . ': ' . $q->on_database->dsn %>]</tt>
+% }
+<%perl>
+	my $name = $q->on_database->dsn;
+	$name =~ s/^.*dbname=//;
+	$m->out("<a href=\"/static/spy/$name/index.html\">$name</a>");
+</%perl>
+	</span>
+
+	</dt>
 	<dd>
-	on <% $q->on_database->name %> <tt>[<% $q->on_database->dsn %>]</tt>
-	<pre>
-	<% $q->sql_query %>
-	</pre>
+% if ($q->note) {
+	<div class="sql-note"><% $q->note %></div>
+% }
+	<pre class="sql"><% $q->sql_query %></pre>
 	</dd>
 % }
 </dl>
 </&>
+
+% if ( $edit ) {
+<% Jifty->web->tangent( url => '/new', label => 'New SQL query' ) %>
+% }