Changeset 518 for LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Aliases.pm

Timestamp:

10/23/09 18:33:32 (15 years ago)

Author:

nanardon

Message:

• add forms to create a new aliases

File:

• LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Aliases.pm (modified) (2 diffs)

LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Aliases.pm

@@ -29 +29 @@
     my @name = $c->req->param('name');
     my @forward = $c->req->param('forward');
-    foreach my $idx (0 .. scalar(@al) - 1) {
+    foreach my $idx (0 .. scalar(@name) - 1) {
 
         if ($c->req->param('del' . ($idx+1))) {
@@ -35 +35 @@
         } elsif ($al[$idx] ne $name[$idx]) {
             # delete old, create new
-            $db->delete_object('aliases', $al[$idx]);
+            $db->delete_object('aliases', $al[$idx]) if($al[$idx]);
             $db->create_object('aliases', $name[$idx],
                 forward => [ split(/\s*,\s*/, $forward[$idx]) ],