--- trunk/lib/SQLSession/Dispatcher.pm	2007/01/18 17:53:58	39
+++ trunk/lib/SQLSession/Dispatcher.pm	2007/01/18 18:16:32	40
@@ -11,7 +11,16 @@
 	my $top = Jifty->web->navigation;
 	my $edit = Jifty->config->app('edit');
 	$top->child( 'New' => url => '/new' ) if ($edit);
-	$top->child( 'List' => url => '/list' );
+	my $l = $top->child( 'List' => url => '/list' );
+
+	my $databases = SQLSession::Model::DatabaseCollection->new();
+	$databases->unlimit;
+	while ( my $db = $databases->next ) {
+		my $label = $db->name;
+#		$label .= ' [' . $db->dsn . ']' if ($edit);
+		$l->child( $label => url => '/list/database/' . $db->id );
+	}
+
 };