fix/restructure domain controller to use resultset more consistently

agranig/1_0_subfix
Gerhard Jungwirth 12 years ago
parent 79adff3037
commit 547aea4c5b

@ -22,16 +22,6 @@ Catalyst Controller.
sub list :Chained('/') :PathPart('domain') :CaptureArgs(0) {
my ($self, $c) = @_;
my $domains = [
map { +{ id => $_->id, domain => $_->domain } } $c->model('billing')->resultset('domains')->all
# {id => 1, domain => '1.example.org'},
# {id => 2, domain => '2.example.org'},
# {id => 3, domain => '3.example.org'},
# {id => 4, domain => '4.example.org'},
# {id => 5, domain => '5.example.org'},
# {id => 6, domain => '6.example.org'},
];
$c->stash(domains => $domains);
$c->stash(template => 'domain/list.tt');
}
@ -84,9 +74,11 @@ sub base :Chained('/domain/list') :PathPart('') :CaptureArgs(1) {
return;
}
# TODO: fetch details of domain from model
my @rfilter = grep { $_->{id} == $domain_id } @{ $c->stash->{domains} };
$c->stash(domain => shift @rfilter);
my $res = $c->model('billing')->resultset('domains')->find($domain_id);
unless(defined($res)) {
#TODO: error: id not found
}
$c->stash(domain => {id => $res->id, domain => $res->domain});
}
sub edit :Chained('base') :PathPart('edit') :Args(0) {
@ -127,7 +119,7 @@ sub delete :Chained('base') :PathPart('delete') :Args(0) {
# domain => $c->stash->{domain}->{domain},
# id => $c->stash->{domain}->{id},
# },
# #1
# 1,
# );
$c->flash(messages => [{type => 'success', text => 'Domain successfully deleted!'}]);
$c->response->redirect($c->uri_for());

Loading…
Cancel
Save