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

Timestamp:

04/18/12 19:49:35 (12 years ago)

Author:

nanardon

Message:

• improve alias management page, show more information

File:

• LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Aliases.pm (modified) (1 diff)

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

@@ -51 +51 @@
 }
 
+sub default :LocalPath {
+    my ( $self, $c, undef, $alias) = @_;
+
+    my $db = $c->model('Accounts')->db;
+    if ($c->req->param('delete')) {
+        $db->delete_object('aliases', $alias);
+        $db->commit;
+        $c->res->redirect($c->uri_for('/aliases'));
+        return;
+    }
+    my $oalias = $db->get_object('aliases', $alias);
+    $c->stash->{aliases} = $oalias;
+    $c->stash->{page}{title} = "Gestion des alias";
+
+    $c->stash->{form} = $c->model('AttrForms', 'aliases', $oalias);
+    $c->stash->{form}->set_attrs;
+}
 
 =head1 AUTHOR