X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FIndex.pm;h=41b4db1689d1be44e5fadb64c416beb5e78d533c;hb=b9c62b0e96eb2b04cf0f4355174831606f982f18;hp=de0e3bf2f640c1df5b0aafea98041ecad1da09e4;hpb=7039a36da013481c21f65bd5a808b61ea9e5656a;p=pr0n

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index de0e3bf..41b4db1 100644
--- a/perl/Sesse/pr0n/Index.pm
+++ b/perl/Sesse/pr0n/Index.pm
@@ -159,6 +159,7 @@ sub handler {
 		# Print out all thumbnails
 		if ($rot == 1) {
 			$r->print("    <form method=\"post\" action=\"/rotate\">\n");
+			$r->print("      <input type=\"hidden\" name=\"event\" value=\"$event\" />\n");
 		
 			while (my $ref = $q->fetchrow_hashref()) {
 				my $imgsz = "";