<&|/I18N &>MemberList.Text&>
<& list.comp, users => [@users], page => $page, uri => '/members/index.html' &> <%init> my @users; my $page = 0; if(!$App->session->{users} || !$App->session->{xaxis} || !$App->session->{yaxis}) { print STDERR "need to create memberlist"; $App->redirect(path => '/submit/Memberlist_Create'); } else { $page = int($ARGS{page}) || 1; if(!$ARGS{page}) { @users = $App->schema->resultset('Users')->search(undef, { rows => 20 })->page(1)->all; $App->session->{users} = []; push @{$App->session->{users}}, $_->id foreach(@users); $App->session->{page} = $page; } elsif($ARGS{page} != $App->session->{page}) { @users = $App->schema->resultset('Users')->search(undef, { rows => 20 })->page($page)->all; $App->session->{users} = []; push @{$App->session->{users}}, $_->id foreach(@users); $App->session->{page} = $page; } else { @users = $App->schema->resultset('Users')->search(id => $App->session->{users})->page($page)->all; } } %init>