$self->{id} was not updated when the id in the database was automatic…

…ally incremented when a new subnet was inserted.

HOSTDB/Object/Subnet.pm

@@ -98,6 +98,9 @@ sub init
 			or die "$DBI::errstr";
 		$self->{_delete_subnet} = $hostdb->{_dbh}->prepare ("DELETE FROM $hostdb->{db}.subnet WHERE id = ?")
 			or die "$DBI::errstr";
+
+		$self->{_get_last_id} = $hostdb->{_dbh}->prepare ("SELECT LAST_INSERT_ID()")
+			or die "$DBI::errstr";
 	} else {
 		$hostdb->_debug_print ("NOT preparing database stuff (since my HOSTDB has no DBH)");
 	}
@@ -171,6 +174,13 @@ sub commit
 		$sth->execute (@db_values) or die "$DBI::errstr";
 
 		$sth->finish ();
+
+		# fill in $self->{id}
+		$sth = $self->{_get_last_id};
+		$sth->execute () or die "$DBI::errstr";
+		my @t = $sth->fetchrow_array ();
+		$self->{id} = $t[0];
+		$sth->finish ();
 	}
 
 	return 1;