Context Navigation

App-Chariot

Timestamp:

05/28/08 10:34:32 (5 years ago)

Author:

mattn

Message:

件数未満でも動く様に(間違ってたら直して下さい: tokuhirom)

Location:

lang/perl/App-Chariot/trunk

Files:

r12557	r12586
10	10	my $ofile = File::Spec->catfile($c->config->output_dir, 'index.html');
11	11
	12	my $size = $c->config->index_stop;
	13	$size = (@list)-1 if $size >= @list;
12	14	$c->render(
13	15	$ifile => $ofile, {
14		entries => [ @list[0..~~($c->config->index_stop)~~] ],
	16	entries => [ @list[0..$size] ],
15	17	}
16	18	);

r12557	r12586
16	16
17	17	my @list = reverse @{$c->dat->list};
18		for my $entry (@list[0..($c->config->index_stop)]) {
	18	my $size = $c->config->index_stop;
	19	$size = (@list)-1 if $size >= @list;
	20	for my $entry (@list[0..$size]) {
19	21	my $cnt = 1;
20	22	for my $item (reverse @{$entry->items->list}) {