incorporate user auth functionality
Tara L Andrews [Wed, 11 Jul 2012 19:33:51 +0000 (21:33 +0200)]
1  2 
lib/Text/Tradition.pm
lib/Text/Tradition/Directory.pm
stemmaweb/lib/stemmaweb/Controller/Root.pm
stemmaweb/root/src/index.tt

@@@ -53,14 -54,22 +54,29 @@@ has 'stemmata' => 
        },
        default => sub { [] },
        );
 +  
 +has '_initialized' => (
 +      is => 'ro',
 +      isa => 'Bool',
 +      default => undef,
 +      writer => '_init_done',
 +      ); 
  
+ has 'user' => (
+     is => 'rw',
+     isa => 'Text::Tradition::User',
+     required => 0,
+     predicate => 'has_user',
+     clearer => 'clear_user',
+     );
+ has 'public' => (
+     is => 'rw',
+     isa => 'Bool',
+     required => 0,
+     default => sub { 0; },
+     );
  # Create the witness before trying to add it
  around 'add_witness' => sub {
      my $orig = shift;
@@@ -194,8 -221,8 +224,9 @@@ around BUILDARGS => sub 
        return $class->$orig( $args );
  };
  
+ ## These checks don't cover store($id, $obj)
 -before [ qw/ store update insert delete / ] => sub {
 +# before [ qw/ store update insert delete / ] => sub {
 +before [ qw/ delete / ] => sub {
        my $self = shift;
        my @nontrad;
        foreach my $obj ( @_ ) {
Simple merge