From: Jess Robinson <j.robinson@shadowcat.co.uk>
Date: Thu, 24 May 2012 15:49:53 +0000 (+0000)
Subject: Add simple "admin" user support
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=70b4af92788c1323fb7437629d22d9106a4558ee;p=scpubgit%2Fstemmaweb.git

Add simple "admin" user support
Fetch all traditions when user is_admin
Test the above
---

diff --git a/lib/stemmaweb/Controller/Root.pm b/lib/stemmaweb/Controller/Root.pm
index b8238dc..6e26299 100644
--- a/lib/stemmaweb/Controller/Root.pm
+++ b/lib/stemmaweb/Controller/Root.pm
@@ -48,9 +48,7 @@ Serves a snippet of HTML that lists the available texts.  This returns texts bel
 sub directory :Local :Args(0) {
 	my( $self, $c ) = @_;
     my $m = $c->model('Directory');
-    # TODO not used yet, will load user texts later
     my $user = $c->user_exists ? $c->user->get_object : 'public';
-#    my $user = $c->request->param( 'user' ) || 'ALL';
     my @textlist = $m->traditionlist($user);
     $c->stash->{texts} = \@textlist;
 	$c->stash->{template} = 'directory.tt';