Fix event adding from the wizard.

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

diff --git a/perl/Sesse/pr0n/WebDAV.pm b/perl/Sesse/pr0n/WebDAV.pm
index 09f10e519cd1ebd312be7e6a51d84f0a58b6a008..2dcf9358da3e23f2eea2014c1dec9880fa928e74 100644 (file)
--- 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);
                                }