r27896 - in /trunk/libopenoffice-oodoc-perl: Changes META.yml Makefile.PL OODoc.pm OODoc/Text.pm OODoc/Text.pod OODoc/XPath.pm build_date debian/changelog t/01write.t t/02read.t
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Mon Dec 8 14:23:44 UTC 2008
Author: dmn
Date: Mon Dec 8 14:23:41 2008
New Revision: 27896
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27896
Log:
* New upstream release
+ bump libxml-twig-perl (build-)dependency to 3.32
this also fixes a missing twig normalize method, used by OODoc 2.106
Modified:
trunk/libopenoffice-oodoc-perl/Changes
trunk/libopenoffice-oodoc-perl/META.yml
trunk/libopenoffice-oodoc-perl/Makefile.PL
trunk/libopenoffice-oodoc-perl/OODoc.pm
trunk/libopenoffice-oodoc-perl/OODoc/Text.pm
trunk/libopenoffice-oodoc-perl/OODoc/Text.pod
trunk/libopenoffice-oodoc-perl/OODoc/XPath.pm
trunk/libopenoffice-oodoc-perl/build_date
trunk/libopenoffice-oodoc-perl/debian/changelog
trunk/libopenoffice-oodoc-perl/t/01write.t
trunk/libopenoffice-oodoc-perl/t/02read.t
Modified: trunk/libopenoffice-oodoc-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libopenoffice-oodoc-perl/Changes?rev=27896&op=diff
==============================================================================
--- trunk/libopenoffice-oodoc-perl/Changes (original)
+++ trunk/libopenoffice-oodoc-perl/Changes Mon Dec 8 14:23:41 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: trunk/libopenoffice-oodoc-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libopenoffice-oodoc-perl/META.yml?rev=27896&op=diff
==============================================================================
--- trunk/libopenoffice-oodoc-perl/META.yml (original)
+++ trunk/libopenoffice-oodoc-perl/META.yml Mon Dec 8 14:23:41 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: trunk/libopenoffice-oodoc-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libopenoffice-oodoc-perl/Makefile.PL?rev=27896&op=diff
==============================================================================
--- trunk/libopenoffice-oodoc-perl/Makefile.PL (original)
+++ trunk/libopenoffice-oodoc-perl/Makefile.PL Mon Dec 8 14:23:41 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: trunk/libopenoffice-oodoc-perl/OODoc.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libopenoffice-oodoc-perl/OODoc.pm?rev=27896&op=diff
==============================================================================
--- trunk/libopenoffice-oodoc-perl/OODoc.pm (original)
+++ trunk/libopenoffice-oodoc-perl/OODoc.pm Mon Dec 8 14:23:41 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: trunk/libopenoffice-oodoc-perl/OODoc/Text.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libopenoffice-oodoc-perl/OODoc/Text.pm?rev=27896&op=diff
==============================================================================
--- trunk/libopenoffice-oodoc-perl/OODoc/Text.pm (original)
+++ trunk/libopenoffice-oodoc-perl/OODoc/Text.pm Mon Dec 8 14:23:41 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: trunk/libopenoffice-oodoc-perl/OODoc/Text.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libopenoffice-oodoc-perl/OODoc/Text.pod?rev=27896&op=diff
==============================================================================
--- trunk/libopenoffice-oodoc-perl/OODoc/Text.pod (original)
+++ trunk/libopenoffice-oodoc-perl/OODoc/Text.pod Mon Dec 8 14:23:41 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: trunk/libopenoffice-oodoc-perl/OODoc/XPath.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libopenoffice-oodoc-perl/OODoc/XPath.pm?rev=27896&op=diff
==============================================================================
--- trunk/libopenoffice-oodoc-perl/OODoc/XPath.pm (original)
+++ trunk/libopenoffice-oodoc-perl/OODoc/XPath.pm Mon Dec 8 14:23:41 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: trunk/libopenoffice-oodoc-perl/build_date
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libopenoffice-oodoc-perl/build_date?rev=27896&op=diff
==============================================================================
--- trunk/libopenoffice-oodoc-perl/build_date (original)
+++ trunk/libopenoffice-oodoc-perl/build_date Mon Dec 8 14:23:41 2008
@@ -1,1 +1,1 @@
-2008-11-05T17:41:54
+2008-12-07T19:44:29
Modified: trunk/libopenoffice-oodoc-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libopenoffice-oodoc-perl/debian/changelog?rev=27896&op=diff
==============================================================================
--- trunk/libopenoffice-oodoc-perl/debian/changelog (original)
+++ trunk/libopenoffice-oodoc-perl/debian/changelog Mon Dec 8 14:23:41 2008
@@ -1,9 +1,10 @@
-libopenoffice-oodoc-perl (2.106-2) UNRELEASED; urgency=low
+libopenoffice-oodoc-perl (2.107-1) UNRELEASED; urgency=low
- * bump libxml-twig-perl (build-)dependency to 3.30, as that is when the
- normalize method appears. It is used by OODoc 2.106
+ * New upstream release
+ + bump libxml-twig-perl (build-)dependency to 3.32
+ this also fixes a missing twig normalize method, used by OODoc 2.106
- -- Damyan Ivanov <dmn at debian.org> Mon, 08 Dec 2008 16:14:03 +0200
+ -- Damyan Ivanov <dmn at debian.org> Mon, 08 Dec 2008 16:19:52 +0200
libopenoffice-oodoc-perl (2.106-1) unstable; urgency=low
Modified: trunk/libopenoffice-oodoc-perl/t/01write.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libopenoffice-oodoc-perl/t/01write.t?rev=27896&op=diff
==============================================================================
--- trunk/libopenoffice-oodoc-perl/t/01write.t (original)
+++ trunk/libopenoffice-oodoc-perl/t/01write.t Mon Dec 8 14:23:41 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: trunk/libopenoffice-oodoc-perl/t/02read.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libopenoffice-oodoc-perl/t/02read.t?rev=27896&op=diff
==============================================================================
--- trunk/libopenoffice-oodoc-perl/t/02read.t (original)
+++ trunk/libopenoffice-oodoc-perl/t/02read.t Mon Dec 8 14:23:41 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