[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