[Bps-public-commit] App-Changeloggr branch, master, updated. 0650480f00ffaea983e10170461253c426fb4157
sartak at bestpractical.com
sartak at bestpractical.com
Tue Jun 30 18:13:52 EDT 2009
The branch, master has been updated
via 0650480f00ffaea983e10170461253c426fb4157 (commit)
via 61b507211fdd1e9d12c59295d4d6ff9f34782778 (commit)
from 0eab19bb500471728af6cadef5fd255f3444106e (commit)
Summary of changes:
lib/App/Changeloggr/Dispatcher.pm | 6 ++++++
lib/App/Changeloggr/View.pm | 14 ++++++++++++++
2 files changed, 20 insertions(+), 0 deletions(-)
- Log -----------------------------------------------------------------
commit 61b507211fdd1e9d12c59295d4d6ff9f34782778
Author: Shawn M Moore <sartak at gmail.com>
Date: Tue Jun 30 18:10:25 2009 -0400
Dispatch /changelog/Foo/tags to /changelog/tags setting changelog to Foo
diff --git a/lib/App/Changeloggr/Dispatcher.pm b/lib/App/Changeloggr/Dispatcher.pm
index 6603744..4f83b07 100644
--- a/lib/App/Changeloggr/Dispatcher.pm
+++ b/lib/App/Changeloggr/Dispatcher.pm
@@ -50,6 +50,12 @@ on '/changelog/*/*/Changes' => run {
show '/changelog/download';
};
+on '/changelog/*/*' => run {
+ set changelog => $1;
+ show "/changelog/$2";
+};
+
+
# match /admin/changelog/SUBTAB/UUID
# or /admin/changelog/UUID
on qr{^/admin/changelog((?:/[^/]+)*)/([^/]+)$} => run {
commit 0650480f00ffaea983e10170461253c426fb4157
Author: Shawn M Moore <sartak at gmail.com>
Date: Tue Jun 30 18:13:36 2009 -0400
Basic template for showing tag descriptions
diff --git a/lib/App/Changeloggr/View.pm b/lib/App/Changeloggr/View.pm
index 55b6238..311f712 100644
--- a/lib/App/Changeloggr/View.pm
+++ b/lib/App/Changeloggr/View.pm
@@ -61,6 +61,20 @@ template '/changelog' => page {
show '/feedback/request_feedback';
};
+template '/changelog/tags' => page {
+ my $changelog = Changelog(name => get('changelog'));
+
+ title is $changelog->name;
+
+ my $tags = $changelog->tags;
+ dl {
+ while (my $tag = $tags->next) {
+ dt { $tag->text }
+ dd { $tag->description || $tag->tooltip || '' }
+ }
+ }
+};
+
template '/changelog/download' => sub {
my $changelog = Changelog( name => get('name') );
Jifty->handler->apache->header_out( 'Content-Type' => 'text/plain' );
-----------------------------------------------------------------------
More information about the Bps-public-commit
mailing list