--- trunk/lib/SQLSession/Dispatcher.pm	2006/12/09 01:15:02	33
+++ trunk/lib/SQLSession/Dispatcher.pm	2007/01/18 17:53:58	39
@@ -31,6 +31,15 @@
 
 };
 
+under 'list' => [
+
+	on qr{database/(\d+)} => run {
+		set database_id => $1;
+	},
+
+	show '/list',
+];
+
 on 'new' => run {
 	show '/sql';
 };