sub add_record($){
    my ($self, $data) = @_;
    my $record=[];
	foreach my $key (keys %{$data}){
		push(@{$record}, {
			tag=>"field", 
			atts=>{
				($key=~m{^\d+$} ? "fid" : "name") => ($key=~m{^\d+$} ? $key : lc($key =~ s/[^a-z0-9]/_/ig))
			},
			value=>$data->{$key}
		});
	}
    return post_api("API_AddRecord", $record);
}