sub get_pageNavi{ my $aktuell_page = shift; my $max_pages = shift; my $link = shift; my @links; if($aktuell_page > 1){ my $tmp->{links} = "«"; push(@links, $tmp ); } print $max_pages; if($aktuell_page > 4){ for( my $i = $aktuell_page - 4; $i < $aktuell_page && $i <= $max_pages; $i++){ my $tmp->{links} = "$i"; push(@links, $tmp ); } my $tmp->{links} = "$aktuell_page"; push(@links, $tmp ); for( my $i = $aktuell_page + 1; $i <= $max_pages || $i <= 10; $i++){ my $tmp->{links} = "$i"; push(@links, $tmp ); } }else{ for( my $i = 1; $i < $aktuell_page; $i++){ my $tmp->{links} = "$i"; push(@links, $tmp ); } my $tmp->{links} = "$aktuell_page"; push(@links, $tmp ); for( my $i = $aktuell_page + 1; $i <= $max_pages && $i <= 10; $i++){ my $tmp->{links} = "$i"; push(@links, $tmp ); } } if($aktuell_page < $max_pages){ my $tmp->{links} = "»"; push(@links, $tmp ); } return @links; }