--- trunk/lib/SQLSession/Dispatcher.pm	2006/12/03 19:47:39	21
+++ trunk/lib/SQLSession/Dispatcher.pm	2007/01/18 17:53:58	39
@@ -7,6 +7,15 @@
 
 use Data::Dump qw/dump/;
 
+before '*' => run {
+	my $top = Jifty->web->navigation;
+	my $edit = Jifty->config->app('edit');
+	$top->child( 'New' => url => '/new' ) if ($edit);
+	$top->child( 'List' => url => '/list' );
+};
+
+
+
 under qr{sql/(\d+)} => run {
 
 	my $q = SQLSession::Model::Query->new();
@@ -18,12 +27,25 @@
 	set name => $q->name;
 	set database => $q->on_database->id;
 
-	show '/sql.html';
+	show '/sql';
+
+};
+
+under 'list' => [
+
+	on qr{database/(\d+)} => run {
+		set database_id => $1;
+	},
+
+	show '/list',
+];
 
+on 'new' => run {
+	show '/sql';
 };
 
-under 'new' => run {
-	show '/sql.html';
+on '/' => run {
+	redirect '/list';
 };
 
 1;