-sub print_pagelimit {
- my ($r, $io, $event, $settings, $defsettings) = @_;
-
- my $title = Sesse::pr0n::Templates::fetch_template($r, 'imgsperpage');
- chomp $title;
- $io->print(" <p>$title:\n");
-
- # Get choices
- chomp (my $unlimited = Sesse::pr0n::Templates::fetch_template($r, 'imgsperpage-unlimited'));
- my @alternatives = qw(10 50 100 250 500);
- push @alternatives, $unlimited;
-
- for my $num (@alternatives) {
- my %newsettings = %$settings;
-
- if ($num !~ /^\d+$/) { # unlimited
- $newsettings{'num'} = -1;
- } else {
- $newsettings{'num'} = $num;
- }
-
- $io->print(" ");
- if (eq_with_undef($settings->{'num'}, $newsettings{'num'})) {
- $io->print($num);
- } else {
- Sesse::pr0n::Common::print_link($io, $num, "/$event/", \%newsettings, $defsettings);
- }
- $io->print("\n");
- }
- $io->print(" </p>\n");
-}
-