-sub print_infobox {
- my ($r, $io, $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'));
-
- $io->print(" <p>$title:\n");
-
- my %newsettings = %$settings;
-
- if ($settings->{'infobox'} == 1) {
- $io->print($on);
- } else {
- $newsettings{'infobox'} = 1;
- Sesse::pr0n::Common::print_link($io, $on, "/$event/", \%newsettings, $defsettings);
- }
-
- $io->print(' ');
-
- if ($settings->{'infobox'} == 0) {
- $io->print($off);
- } else {
- $newsettings{'infobox'} = 0;
- Sesse::pr0n::Common::print_link($io, $off, "/$event/", \%newsettings, $defsettings);
- }
-
- $io->print('</p>');
-}
-