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