Commit 0d840373 authored by Tiago Grego's avatar Tiago Grego
Browse files

added appris method to Transcript

parent 66994335
......@@ -3182,6 +3182,23 @@ sub tsl {
return $tsl;
}
=head2 appris
Example : $appris = $transcript->appris();
Description : Returns the corresponding APPRIS tag
Returns : string
=cut
sub appris {
my $self = shift;
my @attributes = @{ $self->get_all_Attributes('appris') };
my $appris;
$appris = $attributes[0]->value if scalar(@attributes) > 0;
return $appris;
}
=head2 havana_transcript
Example : $havana_transcript = $transcript->havana_transcript();
......
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