Add an upload link when adding an event.

[pr0n] / perl / Sesse / pr0n / NewEvent.pm

diff --git a/perl/Sesse/pr0n/NewEvent.pm b/perl/Sesse/pr0n/NewEvent.pm
index 8f4d6cef4ed5fa98600f159195477ac0ccb5af92..64a2f3ee462ad4a0d7e9145ed60d7ec5e13f3b36 100644 (file)
--- 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);