r27894 - in /branches/upstream/libopenoffice-oodoc-perl/current: Changes META.yml Makefile.PL OODoc.pm OODoc/Text.pm OODoc/Text.pod OODoc/XPath.pm OODoc/config.xml build_date t/01write.t t/02read.t
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Mon Dec 8 14:19:00 UTC 2008
Author: dmn
Date: Mon Dec 8 14:18:56 2008
New Revision: 27894
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27894
Log:
[svn-upgrade] Integrating new upstream version, libopenoffice-oodoc-perl (2.107)
Modified:
branches/upstream/libopenoffice-oodoc-perl/current/Changes
branches/upstream/libopenoffice-oodoc-perl/current/META.yml
branches/upstream/libopenoffice-oodoc-perl/current/Makefile.PL
branches/upstream/libopenoffice-oodoc-perl/current/OODoc.pm
branches/upstream/libopenoffice-oodoc-perl/current/OODoc/Text.pm
branches/upstream/libopenoffice-oodoc-perl/current/OODoc/Text.pod
branches/upstream/libopenoffice-oodoc-perl/current/OODoc/XPath.pm
branches/upstream/libopenoffice-oodoc-perl/current/OODoc/config.xml
branches/upstream/libopenoffice-oodoc-perl/current/build_date
branches/upstream/libopenoffice-oodoc-perl/current/t/01write.t
branches/upstream/libopenoffice-oodoc-perl/current/t/02read.t
Modified: branches/upstream/libopenoffice-oodoc-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libopenoffice-oodoc-perl/current/Changes?rev=27894&op=diff
==============================================================================
--- branches/upstream/libopenoffice-oodoc-perl/current/Changes (original)
+++ branches/upstream/libopenoffice-oodoc-perl/current/Changes Mon Dec 8 14:18:56 2008
@@ -1,3 +1,9 @@
+2.107 2008-12-07
+ Text.pm: added getCellPosition(), adapted from a proposal by dhoworth
+ Makefile.PL: updated the XML::Twig version requirement
+ Makefile.PL: (grrr...) removed the accent in the author's name, due to
+ a Solaris-specific trouble with non-ASCII characters in the makefiles
+ XPath.pm: now uses XML::Twig 3.32 instead of 3.22
2.106 2008-11-05
Added the oodoc_test example
Moved odfLocatime() and odfTimeLocal() from Meta.pm to XPath.pm, and
Modified: branches/upstream/libopenoffice-oodoc-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libopenoffice-oodoc-perl/current/META.yml?rev=27894&op=diff
==============================================================================
--- branches/upstream/libopenoffice-oodoc-perl/current/META.yml (original)
+++ branches/upstream/libopenoffice-oodoc-perl/current/META.yml Mon Dec 8 14:18:56 2008
@@ -1,10 +1,10 @@
--- #YAML:1.0
name: OpenOffice-OODoc
-version: 2.106
+version: 2.107
abstract: The Perl Open OpenDocument Connector
license: LGPL
author:
- - Jean-Marie Gouarné <jmgdoc at cpan.org>
+ - Jean-Marie Gouarne <jmgdoc at cpan.org>
generated_by: ExtUtils::MakeMaker version 6.42
distribution_type: module
requires:
@@ -12,7 +12,7 @@
File::Find: 1.01
File::Temp: 0.12
Time::Local: 1.07
- XML::Twig: 3.22
+ XML::Twig: 3.32
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.3.html
version: 1.3
Modified: branches/upstream/libopenoffice-oodoc-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libopenoffice-oodoc-perl/current/Makefile.PL?rev=27894&op=diff
==============================================================================
--- branches/upstream/libopenoffice-oodoc-perl/current/Makefile.PL (original)
+++ branches/upstream/libopenoffice-oodoc-perl/current/Makefile.PL Mon Dec 8 14:18:56 2008
@@ -1,5 +1,5 @@
#------------------------------------------------------
-# OpenOffice::OODoc packaging & installation 2008-11-05
+# OpenOffice::OODoc packaging & installation 2008-11-08
#------------------------------------------------------
use 5.008;
@@ -148,11 +148,11 @@
'NAME' => 'OpenOffice::OODoc',
'VERSION_FROM' => 'OODoc.pm',
'ABSTRACT_FROM' => 'OODoc.pod',
- 'AUTHOR' => 'Jean-Marie Gouarné <jmgdoc at cpan.org>',
+ 'AUTHOR' => 'Jean-Marie Gouarne <jmgdoc at cpan.org>',
'LICENSE' => 'LGPL',
'PREREQ_PM' =>
{
- 'XML::Twig' => '3.22',
+ 'XML::Twig' => '3.32',
'Archive::Zip' => '1.14',
'File::Temp' => '0.12',
'File::Find' => '1.01',
Modified: branches/upstream/libopenoffice-oodoc-perl/current/OODoc.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libopenoffice-oodoc-perl/current/OODoc.pm?rev=27894&op=diff
==============================================================================
--- branches/upstream/libopenoffice-oodoc-perl/current/OODoc.pm (original)
+++ branches/upstream/libopenoffice-oodoc-perl/current/OODoc.pm Mon Dec 8 14:18:56 2008
@@ -1,6 +1,6 @@
#-----------------------------------------------------------------------------
#
-# $Id : OODoc.pm 2.106 2008-10-29 JMG$
+# $Id : OODoc.pm 2.106 2008-11-07 JMG$
#
# Created and maintained by Jean-Marie Gouarne
# Copyright 2008 by Genicorp, S.A. (www.genicorp.com)
@@ -16,7 +16,7 @@
package OpenOffice::OODoc;
use 5.008_000;
-our $VERSION = 2.106;
+our $VERSION = 2.107;
require Exporter;
our @ISA = qw(Exporter);
Modified: branches/upstream/libopenoffice-oodoc-perl/current/OODoc/Text.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libopenoffice-oodoc-perl/current/OODoc/Text.pm?rev=27894&op=diff
==============================================================================
--- branches/upstream/libopenoffice-oodoc-perl/current/OODoc/Text.pm (original)
+++ branches/upstream/libopenoffice-oodoc-perl/current/OODoc/Text.pm Mon Dec 8 14:18:56 2008
@@ -1,6 +1,6 @@
#----------------------------------------------------------------------------
#
-# $Id : Text.pm 2.234 2008-10-31 JMG$
+# $Id : Text.pm 2.235 2008-12-07 JMG$
#
# Created and maintained by Jean-Marie Gouarne
# Copyright 2008 by Genicorp, S.A. (www.genicorp.com)
@@ -9,9 +9,9 @@
package OpenOffice::OODoc::Text;
use 5.008_000;
-use OpenOffice::OODoc::XPath 2.227;
+use OpenOffice::OODoc::XPath 2.228;
our @ISA = qw ( OpenOffice::OODoc::XPath );
-our $VERSION = 2.234;
+our $VERSION = 2.235;
#-----------------------------------------------------------------------------
# synonyms
@@ -2744,6 +2744,27 @@
}
#-----------------------------------------------------------------------------
+# adapted from a suggestion by dhoworth
+
+sub getCellPosition
+ {
+ my $self = shift;
+ my $cell = $self->getTableCell(@_);
+ unless ($cell && $cell->isTableCell)
+ {
+ warn "[" . __PACKAGE__ . "::cellPosition] " .
+ "Non-cell argument\n";
+ return undef;
+ }
+ my $cp = $cell->pos() - 1;
+ my $row = $cell->parent;
+ my $rp = $row->pos('table:table-row') - 1;
+ my $table = $row->parent;
+ my $tp = $table->pos('table:table') - 1;
+ return wantarray ? ($tp, $rp, $cp) : $tp;
+ }
+
+#-----------------------------------------------------------------------------
# get all the cells in a row
sub getRowCells
Modified: branches/upstream/libopenoffice-oodoc-perl/current/OODoc/Text.pod
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libopenoffice-oodoc-perl/current/OODoc/Text.pod?rev=27894&op=diff
==============================================================================
--- branches/upstream/libopenoffice-oodoc-perl/current/OODoc/Text.pod (original)
+++ branches/upstream/libopenoffice-oodoc-perl/current/OODoc/Text.pod Mon Dec 8 14:18:56 2008
@@ -943,6 +943,32 @@
table cell (knowing that a single cell can contain one or more
paragraphs).
+=head3 getCellPosition(cell)
+
+ Returns an array corresponding to the zero-based, numeric coordinates
+ of a table cell in a document, which can be used later to retrieve
+ a cell at the same location through getCell(). The return values
+ represent, in this order, the table, the row and the column. The header
+ rows of the table, if any, are not counted.
+
+ Example:
+
+ my @coord = $doc->getCellPosition($cell);
+
+ A triplet such as (2, 4, 9) tells that the cell is located at the
+ 10th position in the 5th row of the 3rd table of the document.
+
+ In scalar context, this method returns nothing more than the first
+ element of the triplet, i.e. the zero-based position of the table
+ in the order of the document. However, if the real need is to retrieve
+ the table element itself, $cell->parent->parent is more efficient.
+
+ This method produces a warning and returns undef if the argument is
+ not a table cell.
+
+ Caution: getCellPostion(), like any other accessor using object
+ coordinates related, works only with normalized tables.
+
=head3 getCellValue(table, row, column)
=head3 getCellValue(cell)
Modified: branches/upstream/libopenoffice-oodoc-perl/current/OODoc/XPath.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libopenoffice-oodoc-perl/current/OODoc/XPath.pm?rev=27894&op=diff
==============================================================================
--- branches/upstream/libopenoffice-oodoc-perl/current/OODoc/XPath.pm (original)
+++ branches/upstream/libopenoffice-oodoc-perl/current/OODoc/XPath.pm Mon Dec 8 14:18:56 2008
@@ -1,6 +1,6 @@
#-----------------------------------------------------------------------------
#
-# $Id : XPath.pm 2.227 2008-11-05 JMG$
+# $Id : XPath.pm 2.228 2008-11-07 JMG$
#
# Created and maintained by Jean-Marie Gouarne
# Copyright 2008 by Genicorp, S.A. (www.genicorp.com)
@@ -9,8 +9,8 @@
package OpenOffice::OODoc::XPath;
use 5.008_000;
-our $VERSION = 2.227;
-use XML::Twig 3.22;
+our $VERSION = 2.228;
+use XML::Twig 3.32;
use Encode;
#------------------------------------------------------------------------------
Modified: branches/upstream/libopenoffice-oodoc-perl/current/OODoc/config.xml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libopenoffice-oodoc-perl/current/OODoc/config.xml?rev=27894&op=diff
==============================================================================
--- branches/upstream/libopenoffice-oodoc-perl/current/OODoc/config.xml (original)
+++ branches/upstream/libopenoffice-oodoc-perl/current/OODoc/config.xml Mon Dec 8 14:18:56 2008
@@ -6,7 +6,7 @@
<XPath-LOCAL_CHARSET>iso-8859-1</XPath-LOCAL_CHARSET>
<File-WORKING_DIRECTORY>.</File-WORKING_DIRECTORY>
<Styles-COLORMAP></Styles-COLORMAP>
- <BUILD_DATE>2008-11-05T17:41:54</BUILD_DATE>
+ <BUILD_DATE>2008-12-07T19:44:29</BUILD_DATE>
<INSTALLATION_DATE>N/A</INSTALLATION_DATE>
</OpenOffice-OODoc>
</config>
Modified: branches/upstream/libopenoffice-oodoc-perl/current/build_date
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libopenoffice-oodoc-perl/current/build_date?rev=27894&op=diff
==============================================================================
--- branches/upstream/libopenoffice-oodoc-perl/current/build_date (original)
+++ branches/upstream/libopenoffice-oodoc-perl/current/build_date Mon Dec 8 14:18:56 2008
@@ -1,1 +1,1 @@
-2008-11-05T17:41:54
+2008-12-07T19:44:29
Modified: branches/upstream/libopenoffice-oodoc-perl/current/t/01write.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libopenoffice-oodoc-perl/current/t/01write.t?rev=27894&op=diff
==============================================================================
--- branches/upstream/libopenoffice-oodoc-perl/current/t/01write.t (original)
+++ branches/upstream/libopenoffice-oodoc-perl/current/t/01write.t Mon Dec 8 14:18:56 2008
@@ -1,12 +1,12 @@
#-----------------------------------------------------------------------------
-# 01write.t OpenOffice::OODoc Installation test 2008-10-30
+# 01write.t OpenOffice::OODoc Installation test 2008-11-07
#-----------------------------------------------------------------------------
use Test;
BEGIN { plan tests => 19 }
-use OpenOffice::OODoc 2.106;
-ok($OpenOffice::OODoc::VERSION >= 2.106);
+use OpenOffice::OODoc 2.107;
+ok($OpenOffice::OODoc::VERSION >= 2.107);
#-----------------------------------------------------------------------------
Modified: branches/upstream/libopenoffice-oodoc-perl/current/t/02read.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libopenoffice-oodoc-perl/current/t/02read.t?rev=27894&op=diff
==============================================================================
--- branches/upstream/libopenoffice-oodoc-perl/current/t/02read.t (original)
+++ branches/upstream/libopenoffice-oodoc-perl/current/t/02read.t Mon Dec 8 14:18:56 2008
@@ -1,12 +1,12 @@
#-----------------------------------------------------------------------------
-# 02read.t OpenOffice::OODoc Installation test 2008-10-09
+# 02read.t OpenOffice::OODoc Installation test 2008-11-07
#-----------------------------------------------------------------------------
use Test;
BEGIN { plan tests => 12 }
-use OpenOffice::OODoc 2.106;
-ok($OpenOffice::OODoc::VERSION >= 2.106);
+use OpenOffice::OODoc 2.107;
+ok($OpenOffice::OODoc::VERSION >= 2.107);
#-----------------------------------------------------------------------------
More information about the Pkg-perl-cvs-commits
mailing list