[Bps-public-commit] App-Changeloggr branch, master, updated. 982119dfd1f88a0f657d9759a91cc1db7cff1278

Alex M Vandiver alexmv at bestpractical.com
Fri May 22 17:32:56 EDT 2009


The branch, master has been updated
       via  982119dfd1f88a0f657d9759a91cc1db7cff1278 (commit)
       via  053b0b8921c1e9fd21669c21d35e5e617bb81cd0 (commit)
      from  af87a8cea28971acd48cfb2227f450577db90c66 (commit)

Summary of changes:
 lib/App/Changeloggr/Model/News.pm |    2 +-
 lib/App/Changeloggr/View.pm       |    7 ++++++-
 2 files changed, 7 insertions(+), 2 deletions(-)

- Log -----------------------------------------------------------------
commit 053b0b8921c1e9fd21669c21d35e5e617bb81cd0
Author: Alex Vandiver <alexmv at mit.edu>
Date:   Thu May 21 17:24:56 2009 -0400

    is_staff is a method on currentuser, not user

diff --git a/lib/App/Changeloggr/Model/News.pm b/lib/App/Changeloggr/Model/News.pm
index 4fe5930..2e2f3fa 100644
--- a/lib/App/Changeloggr/Model/News.pm
+++ b/lib/App/Changeloggr/Model/News.pm
@@ -22,7 +22,7 @@ sub current_user_can {
     my $self = shift;
     my $right = shift;
     return 1 if $right eq "read";
-    return 1 if $self->current_user->user_object and $self->current_user->user_object->is_staff;
+    return 1 if $self->current_user->user_object and $self->current_user->is_staff;
     return 0;
 }
 

commit 982119dfd1f88a0f657d9759a91cc1db7cff1278
Author: Alex Vandiver <alexmv at mit.edu>
Date:   Fri May 22 17:32:40 2009 -0400

    News on the front page

diff --git a/lib/App/Changeloggr/View.pm b/lib/App/Changeloggr/View.pm
index 8787730..2c7a09d 100644
--- a/lib/App/Changeloggr/View.pm
+++ b/lib/App/Changeloggr/View.pm
@@ -31,7 +31,12 @@ template '/' => page {
             while (my $changelog = $changelogs->next) {
                 li { changelog_summary($changelog) }
             }
-        }
+        };
+        h2 { "Recent news" };
+        render_region(
+            name => 'news',
+            path => '/news/list',
+        );
     } elsif ( $count == 1) {
         redirect '/changelog/' . $changelogs->first->name;
     } else {

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



More information about the Bps-public-commit mailing list