Fixes from making the tag tests

Author: symkat

DB/lib/BlogDB/DB/Result/PendingTag.pm

@@ -131,5 +131,11 @@ __PACKAGE__->has_many(
 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:Lax0e42Qy8BWDsYZfKmZyw
 
 
-# You can replace this text with custom code or comments, and it will be preserved on regeneration
+sub vote_score {
+  my ( $self ) = @_;
+
+  my $score = $self->search_related('tag_votes', { vote => 1 } )->count || 0;
+
+  return $score;
+}
 1;

Web/lib/BlogDB/Web.pm

@@ -61,6 +61,8 @@ sub startup ($self) {
 
         return 1 if $c->stash->{person};
 
+        push @{$c->stash->{errors}}, 'Login required.';
+
         $c->redirect_to( $c->url_for( 'homepage' ) );
         return undef;
     });

Web/lib/BlogDB/Web/Controller/Tags.pm

@@ -20,7 +20,7 @@ sub post_suggest_tag ($c) {
     my $is_adult = $c->stash->{form_adult} = $c->param('is_adult');
 
     push @{$c->stash->{errors}}, "Tag names must start with a letter, and may only contain letters and numbers."
-        unless $tag_name =~ m/^[a-zA-Z][a-zA-Z0-9]+$/;
+        unless $tag_name =~ m/^[a-zA-Z][a-zA-Z0-9_]+$/;
 
     return 0 if $c->stash->{errors};
 
@@ -85,6 +85,9 @@ sub post_delete_tag ($c) {
     my $tag_name = $c->stash->{form_tag} = $c->param('tag');
 
     my $tag = $c->db->resultset('PendingTag')->search({ name => $tag_name })->first;
+    
+    push @{$c->stash->{errors}}, "Not authorized."
+        unless $c->stash->{person}->setting( 'can_manage_tags');
 
     push @{$c->stash->{errors}}, "No such tag?"
         unless $tag;
@@ -116,6 +119,9 @@ sub post_approve_tag ($c) {
 
     my $tag = $c->db->resultset('PendingTag')->search({ name => $tag_name })->first;
 
+    push @{$c->stash->{errors}}, "Not authorized."
+        unless $c->stash->{person}->setting( 'can_manage_tags');
+
     push @{$c->stash->{errors}}, "No such tag?"
         unless $tag;