46 |
|
|
47 |
# warn "q = ",dump( $q ); |
# warn "q = ",dump( $q ); |
48 |
|
|
49 |
|
# Jifty->log->debug( dump($q) ); |
50 |
|
|
51 |
set q => $q; |
set q => $q; |
52 |
|
|
53 |
show '/sql'; |
show '/sql'; |
57 |
under 'list' => [ |
under 'list' => [ |
58 |
|
|
59 |
on qr{database/(\d+)} => run { |
on qr{database/(\d+)} => run { |
60 |
set database_id => $1; |
set on_database => $1; |
61 |
|
}, |
62 |
|
|
63 |
|
on qr{date/(\d{4}-\d+-\d+)} => run { |
64 |
|
set created_on => $1; |
65 |
}, |
}, |
66 |
|
|
67 |
show '/list', |
show '/list', |
75 |
redirect '/list'; |
redirect '/list'; |
76 |
}; |
}; |
77 |
|
|
78 |
|
on qr{^/feed/(atom|rss|rss2)}, run { |
79 |
|
my $type = 'RSS'; |
80 |
|
$type = 'Atom' if ($1 eq 'atom'); |
81 |
|
set type => $type; |
82 |
|
show('/feed'); |
83 |
|
}; |
84 |
|
|
85 |
1; |
1; |