← Back to branch summary

~ubuntu-branches/ubuntu/raring/libopenoffice-oodoc-perl/raring

« back to all changes in this revision

Viewing changes to OODoc.pm

  • Committer: Bazaar Package Importer
  • Author(s): Franck Joncourt
  • Date: 2010-07-16 23:06:18 UTC
  • mfrom: (1.1.9 upstream)
  • Revision ID: james.westby@ubuntu.com-20100716230618-w3jssv19rdryw8ip
Tags: 2.125-1
* New upstream release.
* Refreshed Format-Specification url in d.copyright.
* Bumped up Standards-Version to 3.9.0 (no changes).
* Drop versionned dependency on perl (>= 5.10).

Show diffs side-by-side

added added

removed removed

Lines of Context:
OODoc.pm
1
1
#-----------------------------------------------------------------------------
2
2
#
3
 
#       $Id : OODoc.pm 2.124 2010-04-02 JMG$
 
3
#       $Id : OODoc.pm 2.125 2010-07-08 JMG$
4
4
#
5
5
#       Created and maintained by Jean-Marie Gouarne
6
6
#       Copyright 2010 by Genicorp, S.A. (www.genicorp.com)
7
7
#
8
8
#-----------------------------------------------------------------------------
9
9
 
10
 
use OpenOffice::OODoc::File             2.202;
11
 
use OpenOffice::OODoc::Meta             2.016;
 
10
use OpenOffice::OODoc::File             2.203;
 
11
use OpenOffice::OODoc::Meta             2.017;
12
12
use OpenOffice::OODoc::Document         2.023;
13
 
use OpenOffice::OODoc::Manifest         2.005;
 
13
use OpenOffice::OODoc::Manifest         2.007;
14
14
 
15
15
#-----------------------------------------------------------------------------
16
16
 
17
17
package OpenOffice::OODoc;
18
18
use 5.008_000;
19
 
our $VERSION                            = 2.124;
 
19
use strict;
 
20
our $VERSION                            = '2.125';
20
21
 
21
22
require Exporter;
22
23
our @ISA    = qw(Exporter);
33
34
        odfReadConfig readConfig ooReadConfig
34
35
        );
35
36
 
 
37
our $INSTALLATION_PATH;
 
38
 
36
39
#-----------------------------------------------------------------------------
37
40
# config loader
38
41
 
67
70
                next unless $node->isElementNode;
68
71
                my $name = $node->getName; $name =~ s/-/::/g;
69
72
                my $varname = 'OpenOffice::OODoc::' . $name;
 
73
                no strict;
70
74
                $$varname = $node->string_value;
71
75
                $$varname = odfDecodeText($$varname);
 
76
                use strict;
72
77
                }
73
78
        OpenOffice::OODoc::Styles::ooLoadColorMap();
74
79
        return 1;
208
213
        
209
214
        my $module_path = $INC{"OpenOffice/OODoc.pm"};
210
215
        $module_path =~ s/\.pm$//;
211
 
        $OpenOffice::OODoc::INSTALLATION_PATH = $module_path;
 
216
        $INSTALLATION_PATH = $module_path;
212
217
        odfReadConfig() if ( -e "$INSTALLATION_PATH/config.xml" );
213
218
        }
214
219