use strict;
use OpenOffice::OODoc;
use OpenOffice::OODoc::Meta;
use OpenOffice::OODoc::XPath ;
use OpenOffice::OODoc::Image;
&test;
sub test {
my $doc = ooDocument(file =>  "C:\\macros\\OOSjablonen\\test.odt") ;
my $element = getFrameElement('frame_name');
print "el: $element text:\n";
}

##</code><code>##

use strict;
use OpenOffice::OODoc;
use OpenOffice::OODoc::Meta;
use OpenOffice::OODoc::XPath ;
use OpenOffice::OODoc::Image;
&test;
sub test {
my $doc = ooDocument(file =>  "C:\\macros\\OOSjablonen\\test.odt") ;
my $element = OpenOffice::OODoc::XPath::getFrameElement('frame_name');
print "el: $element text:\n";
}

##</code><code>##

sub	getFrameElement
	{
	my $self	= shift;
	my $frame	= shift;
	return undef unless defined $frame;
	my $tag		= shift || 'draw:frame';

	my $element	= undef;
	if (ref $frame)
		{
		$element = $frame;
		}
	else
		{
		if ($frame =~ /^[\-0-9]*$/)
			{
			return $self->getElement("//$tag", $frame, @_);
			}
		else
			{
			return $self->selectFrameElementByName
				($frame, $tag, @_);
			}
		}
	}