[Bps-public-commit] App-Changeloggr branch, master, updated. 9bba599b21d519b8b67409615877d2a9348b0a56

[Kevin Falcone]

The branch, master has been updated
       via  9bba599b21d519b8b67409615877d2a9348b0a56 (commit)
      from  4d11f7b4fd065f6e0a44b37a59e82e5cb9598901 (commit)

Summary of changes:
 lib/App/Changeloggr/Dispatcher.pm |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

- Log -----------------------------------------------------------------
commit 9bba599b21d519b8b67409615877d2a9348b0a56
Author: Kevin Falcone <falcone at bestpractical.com>
Date:   Wed May 27 14:52:13 2009 -0400

    fix the download formatted changelog links

diff --git a/lib/App/Changeloggr/Dispatcher.pm b/lib/App/Changeloggr/Dispatcher.pm
index ff60d27..17ff201 100644
--- a/lib/App/Changeloggr/Dispatcher.pm
+++ b/lib/App/Changeloggr/Dispatcher.pm
@@ -74,7 +74,7 @@ on qr{^/admin/changelog((?:/[^/]+)*)/([^/]+)$} => run {
         Votes => url => "/admin/changelog/votes/$uuid",
     );
 
-    add_export_format_nav($admin);
+    add_export_format_nav($admin, $cl->name);
 
     # make this user an admin for this changelog
     my $changelog_admin = App::Changeloggr::Model::ChangelogAdmin->new(current_user => App::Changeloggr::CurrentUser->superuser);
@@ -96,6 +96,7 @@ before '/account' => sub {
 
 sub add_export_format_nav {
     my $parent = shift;
+    my $name   = shift;
 
     my @output_formats = map { s/.*:://; $_ } App::Changeloggr->output_formats;
 

-----------------------------------------------------------------------