- $r->print(" </p>\n");
-}
-
-sub print_thumbsize {
- my ($r, $event, $settings, $defsettings) = @_;
- my @alternatives = qw(80x64 120x96 160x128 240x192 320x256);
-
- print_changes($r, $event, 'thumbsize', $settings, $defsettings,
- 'thumbxres', 'thumbyres', \@alternatives);
-}
-sub print_viewres {
- my ($r, $event, $settings, $defsettings) = @_;
- my @alternatives = qw(320x256 512x384 640x480 800x600 1024x768 1280x960);
- chomp (my $unlimited = Sesse::pr0n::Templates::fetch_template($r, 'viewres-unlimited'));
- chomp (my $original = Sesse::pr0n::Templates::fetch_template($r, 'viewres-original'));
- push @alternatives, [ $unlimited, undef, undef ];
- push @alternatives, [ $original, -1, -1 ];
-
- print_changes($r, $event, 'viewres', $settings, $defsettings,
- 'xres', 'yres', \@alternatives);
-}
-
-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>');