From 2488dbbf6694be7a8ceec5d68a2a1e85e68ba6c9 Mon Sep 17 00:00:00 2001 From: "Steinar H. Gunderson" Date: Mon, 13 Jul 2009 16:22:03 +0200 Subject: [PATCH 1/1] Fix event adding from the wizard. --- perl/Sesse/pr0n/WebDAV.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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); } -- 2.39.2