Index: trunk/DNSDB.pm
===================================================================
--- trunk/DNSDB.pm	(revision 257)
+++ trunk/DNSDB.pm	(revision 258)
@@ -1092,5 +1092,5 @@
     ($dom_id) = $dbh->selectrow_array("SELECT domain_id FROM domains WHERE domain=?", undef, ($domain));
 
-    _log($dbh, (domain => $dom_id, user_id => $userinfo{id}, group_id => $group, username => $userinfo{name},
+    _log($dbh, (domain_id => $dom_id, user_id => $userinfo{id}, group_id => $group, username => $userinfo{name},
 		name => $userinfo{fullname}, entry => "Added ".($state ? 'active' : 'inactive')." domain $domain"));
 
@@ -1107,5 +1107,5 @@
 	my @tmp1 = split /:/, $host;
 	my @tmp2 = split /:/, $val;
-	_log($dbh, (domain => $dom_id, user_id => $userinfo{id}, group_id => $group,
+	_log($dbh, (domain_id => $dom_id, user_id => $userinfo{id}, group_id => $group,
 		username => $userinfo{name}, name => $userinfo{fullname}, entry =>
 		"[new $domain] Added SOA record [contact $tmp1[0]] [master $tmp1[1]] ".
@@ -1115,5 +1115,5 @@
 	$logentry .= " [distance $dist]" if $typemap{$type} eq 'MX';
 	$logentry .= " [priority $dist] [weight $weight] [port $port]" if $typemap{$type} eq 'SRV';
-	_log($dbh, (domain => $dom_id, user_id => $userinfo{id}, group_id => $group,
+	_log($dbh, (domain_id => $dom_id, user_id => $userinfo{id}, group_id => $group,
 		username => $userinfo{name}, name => $userinfo{fullname}, entry =>
 		$logentry." $val', TTL $ttl"));