$day = ", " . $ref->{'day'};
}
- if ($day ne $lastupl) {
+ my $groupkey = $takenby . $day;
+
+ if ($groupkey ne $lastupl) {
$r->print(" </p>\n\n") if ($lastupl ne "" && $rot != 1);
- $lastupl = $day;
+ $lastupl = $groupkey;
my %newsettings = %settings;
}
sub print_viewres {
my ($r, $event, $settings, $defsettings) = @_;
- my @alternatives = qw(320x256 512x384 640x480 800x600 1024x768 1280x960);
+ my @alternatives = qw(320x256 512x384 640x480 800x600 1024x768 1280x960 1400x1050 1600x1200);
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 ];