Commit 1e73425b authored by Leigh B. Stoller's avatar Leigh B. Stoller
Browse files

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