"deleteRow" in OpenOffice::OODoc will nicht !? - #97888 (Fragen zu Perl-Modulen)

ede

2007-08-10 14:26

User since
2006-03-21
22 Artikel
BenutzerIn
[default_avatar]

Ich habe Probleme mit der Funktion "deleteRow" in OpenOffice::OODoc bei der Verwendung in einem OO-Calc-Dokument.
Das Skript sieht wie folgt aus (nach diversen Variationen):

Code (perl): (dl )

use strict;
use warnings;
use OpenOffice::OODoc;

my $doc1 = ooDocument(file => "Beispiel.ods");
my $ffff = $doc1->normalizeSheet("FFFF", 1258, 81);

$doc1->deleteRow($ffff, 2);               #oder: $doc1->deleteRow("FFFF", 2);
$doc1->save("Beispiel_neu.ods");

Als Fehlermeldung erhalte ich:
" Can't call method "removeElement" on an undefined value at C:/Perl/site/lib/Open
Office/OODoc/Text.pm line 3035. "

Den entsprechenden Abschnitt aus OpenOffice::OODoc::Text habe ich auch hier:

Code (perl): (dl )

# delete a given table row

sub     deleteTableRow
        {
        my $self        = shift;
        my $row         = $self->getTableRow(@_) or return undef;
        return $doc->removeElement($row);         #line 3035 (ede)
        }

sub     deleteRow
        {
        my $self        = shift;
        return $self->deleteTableRow(@_);
        }

Weiß jemand Rat??????