From: Steinar H. Gunderson <sesse@debian.org>
Date: Mon, 13 Jul 2009 14:22:03 +0000 (+0200)
Subject: Fix event adding from the wizard.
X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=2488dbbf6694be7a8ceec5d68a2a1e85e68ba6c9

Fix event adding from the wizard.
---

diff --git a/perl/Sesse/pr0n/WebDAV.pm b/perl/Sesse/pr0n/WebDAV.pm
index 09f10e5..2dcf935 100644
--- a/perl/Sesse/pr0n/WebDAV.pm
+++ b/perl/Sesse/pr0n/WebDAV.pm
@@ -565,7 +565,7 @@ EOF
 			my $ref = $q->fetchrow_hashref;
 
 			if ($ref->{'cnt'} == 0) {
-				my @errors = Sesse::pr0n::Common::add_new_event($dbh, $ne_id, $ne_date, $ne_desc, $r->get_server_name);
+				my @errors = Sesse::pr0n::Common::add_new_event($r, $dbh, $ne_id, $ne_date, $ne_desc);
 				if (scalar @errors > 0) {
 					die "Couldn't add new event $ne_id: " . join(', ', @errors);
 				}