use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("<?xml version=\"1.0\" encoding=\"utf-8\"?>\n<DelavoAPIActionResult>\n");if ( $C->{ErrorCode} ) {$this->out("	<errorcode>$C->{ErrorCode}</errorcode>\n	<error>$C->{ErrorMessage}</error>\n");} else {$this->out("	<complete/>\n");if ( $C->{ID} ) {$this->out("	<id>$C->{ID}</id>\n");}$this->out("");}$this->out("</DelavoAPIActionResult>\n");}