Fix event adding from the wizard.
authorSteinar H. Gunderson <sesse@debian.org>
Mon, 13 Jul 2009 14:22:03 +0000 (16:22 +0200)
committerSteinar H. Gunderson <sesse@debian.org>
Mon, 13 Jul 2009 14:22:03 +0000 (16:22 +0200)
perl/Sesse/pr0n/WebDAV.pm

index 09f10e519cd1ebd312be7e6a51d84f0a58b6a008..2dcf9358da3e23f2eea2014c1dec9880fa928e74 100644 (file)
@@ -565,7 +565,7 @@ EOF
                        my $ref = $q->fetchrow_hashref;
 
                        if ($ref->{'cnt'} == 0) {
                        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);
                                }
                                if (scalar @errors > 0) {
                                        die "Couldn't add new event $ne_id: " . join(', ', @errors);
                                }