--- trunk/lib/SQLSession/Dispatcher.pm	2006/12/03 18:03:30	20
+++ trunk/lib/SQLSession/Dispatcher.pm	2006/12/03 19:55:52	22
@@ -16,10 +16,18 @@
 
 	set sql_query => $q->sql_query;
 	set name => $q->name;
-	set database => $q->on_database;
+	set database => $q->on_database->id;
 
-	show '/sql.html';
+	show '/sql';
 
 };
 
+on 'new' => run {
+	show '/sql';
+};
+
+on '/' => run {
+	show '/list';
+};
+
 1;