From 3f789026ecaffce025b7598a26a8975be132cc96 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Wed, 15 Jul 2020 19:28:20 +0200
Subject: [PATCH] Add an upload link when adding an event.

---
 perl/Sesse/pr0n/NewEvent.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/Sesse/pr0n/NewEvent.pm b/perl/Sesse/pr0n/NewEvent.pm
index 8f4d6ce..64a2f3e 100644
--- a/perl/Sesse/pr0n/NewEvent.pm
+++ b/perl/Sesse/pr0n/NewEvent.pm
@@ -26,7 +26,7 @@ sub handler {
 		}
 		$io->print("    <p>Rett opp i feilene over før du går videre.</p>\n");
 	} else {
-		$io->print("    <p>Hendelsen '$id' lagt til.</p>");
+		$io->print("    <p>Hendelsen '<a href=\"/upload/$id/\">$id</a>' lagt til.</p>");
 	}
 	
 	Sesse::pr0n::Common::footer($r, $io);
-- 
2.39.2