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