|
If I understood Xpath I could probably do this more neatly, but it does return an ordered list of
table names.
sub my_getTableList {
my $content=shift;
my $count=scalar(($content->getTableList())) - 1;
my @tables;
for my $n (0 .. $count) {
push (@tables, $content->getAttribute($content->getTable($n),'table:name'));
}
return(@tables);
} # my-get-table-list
|
