--- trunk/lib/SQLSession/Dispatcher.pm	2007/01/25 13:08:06	58
+++ trunk/lib/SQLSession/Dispatcher.pm	2007/02/05 18:27:46	87
@@ -39,17 +39,14 @@
 };
 
 
-
 under qr{sql/(\d+)} => run {
 
 	my $q = SQLSession::Model::Query->new();
 	$q->load( $1 ) or next_rule;
 
-	warn "q = ",dump( $q );
+#	warn "q = ",dump( $q );
 
-	set sql_query => $q->sql_query;
-	set name => $q->name;
-	set database => $q->on_database->id;
+	set q => $q;
 
 	show '/sql';
 
@@ -58,9 +55,13 @@
 under 'list' => [
 
 	on qr{database/(\d+)} => run {
-		set database_id => $1;
+		set on_database => $1;
 	},
 
+	on qr{date/(\d{4}-\d+-\d+)} => run {
+		set created_on => $1;
+	}
+
 	show '/list',
 ];
 
@@ -72,4 +73,11 @@
 	redirect '/list';
 };
 
+on qr{^/feed/(atom|rss|rss2)}, run {
+	my $type = 'RSS';
+	$type = 'Atom' if ($1 eq 'atom');
+	set type => $type;
+	show('/feed');
+};
+
 1;