X-Git-Url: https://git.sesse.net/?p=pr0n;a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FNewEvent.pm;h=2aac990d02fc7dee685249f17c8a3a9b0096b367;hp=61124536ef2b1c0ddd0f5672f3542c9929551394;hb=fd1e8cc4d43ed344438cb93e203ca146fe243487;hpb=b5d44d73bfa40fe7dc234a95dc3f8f81ec88398f;ds=sidebyside

diff --git a/perl/Sesse/pr0n/NewEvent.pm b/perl/Sesse/pr0n/NewEvent.pm
index 6112453..2aac990 100644
--- a/perl/Sesse/pr0n/NewEvent.pm
+++ b/perl/Sesse/pr0n/NewEvent.pm
@@ -20,7 +20,7 @@ sub handler {
 	my $date = $apr->param('date');
 	my $desc = $apr->param('desc');
 
-	my @errors = Sesse::pr0n::Common::add_new_event($dbh, $id, $date, $desc, $r->get_server_name);
+	my @errors = Sesse::pr0n::Common::add_new_event($r, $dbh, $id, $date, $desc);
 	
 	if (scalar @errors > 0) {
 		for my $err (@errors) {