Commit 1e73425b authored by Leigh Stoller's avatar Leigh Stoller

Add silly method to get the xml for a ticket.

parent 06e02fe5
......@@ -345,6 +345,23 @@ sub Delete($)
return 0;
}
#
# Return the rspec in XML for the ticket.
#
sub rspecXML($)
{
my ($self) = @_;
return undef
if (! ref($self));
return undef
if (!defined($self->rspec()));
my $rspec_xml = XMLout($self->rspec(), "NoAttr" => 1);
$rspec_xml =~ s/opt\>/rspec\>/g;
return $rspec_xml;
}
#
# Populate the ticket with some stuff, which right now is just the
# number of node we are willing to grant.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment