Changeset 20b3fcc6b52236b404b7d7aaf1517f57be3f84a2

Timestamp:

11/06/09 22:20:07 (10 months ago)

Author:

Stephen Bennett <spb@…>

Parents:

2090df0c85d347d43405ce36c1fd4a76ac8fab4d

Children:

a75ca74156bfac8b92c3b87b2c120d446dcf5345

git-committer:

Stephen Bennett <spb@exherbo.org> / 2009-11-06T22:20:07Z+0000

Message:

Use the database validation of uniqueness in group names

Location:

lib/GMS

Files:

• Schema/Result/Group.pm (modified) (1 diff)
• Web/Controller/Group.pm (modified) (1 diff)

lib/GMS/Schema/Result/Group.pm

@@ -74 +74 @@
 }
 
+sub insert {
+    my $self=shift;
+    try {
+        return $self->next::method(@_);
+    }
+    catch (DBIx::Class::Exception $e) {
+        if ("$e" =~ /unique_group_name/) {
+            die GMS::Exception->new("A group with that name already exists.");
+        } else {
+            die $e;
+        }
+    }
+}
+
 sub use_automatic_verification {
     my ($name, $url) = @_;

lib/GMS/Web/Controller/Group.pm

@@ -54 +54 @@
 
     my $group_rs = $c->model('DB::Group');
-
-    if ($group_rs->find({ groupname => $p->{group_name} }))
-    {
-        $c->flash->{errors} = [ "A group with that name already exists." ];
-        # Merge params into the flash so that they get back into the form for the second try.
-        %{$c->flash} = ( %{$c->flash}, %$p );
-        $c->response->redirect($c->uri_for('/group/new'));
-        return;
-    }
 
     my $group;