diff options
| author | Kurt Zenker <kz@openoffice.org> | 2006-07-05 20:03:28 +0000 |
|---|---|---|
| committer | Kurt Zenker <kz@openoffice.org> | 2006-07-05 20:03:28 +0000 |
| commit | 8abbdbf8caa9b9e105d5aeae70ed436743e99e7c (patch) | |
| tree | 33494ac26bf0b94b869256e49c9d5813bb806fb8 /solenv/bin/pre2par.pl | |
| parent | 66ea34a08193fa87c93e4e79cc61aaa849209b9e (diff) | |
INTEGRATION: CWS native51 (1.5.344); FILE MERGED
2006/06/19 15:35:54 is 1.5.344.2: #i65048# checking written par files
2006/06/19 15:21:20 is 1.5.344.1: #i66557# checking, that pre file has content
Diffstat (limited to 'solenv/bin/pre2par.pl')
| -rw-r--r-- | solenv/bin/pre2par.pl | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/solenv/bin/pre2par.pl b/solenv/bin/pre2par.pl index 524465409d94..06ddf6ac9dc9 100644 --- a/solenv/bin/pre2par.pl +++ b/solenv/bin/pre2par.pl @@ -4,9 +4,9 @@ # # $RCSfile: pre2par.pl,v $ # -# $Revision: 1.5 $ +# $Revision: 1.6 $ # -# last change: $Author: rt $ $Date: 2005-09-07 22:13:18 $ +# last change: $Author: kz $ $Date: 2006-07-05 21:03:28 $ # # The Contents of this file are made available subject to # the terms of GNU Lesser General Public License Version 2.1. @@ -55,6 +55,8 @@ pre2par::directory::check_directory($pre2par::globals::parfilename); my $prefile = pre2par::files::read_file($pre2par::globals::prefilename); +pre2par::work::check_content($prefile, $pre2par::globals::prefilename); + my $parfile = pre2par::work::convert($prefile); pre2par::work::formatter($parfile); @@ -72,6 +74,10 @@ if ( $dolocalization ) pre2par::files::save_file($pre2par::globals::parfilename, $parfile); +# checking of par file was written correctly +my $parfilecomp = pre2par::files::read_file($pre2par::globals::parfilename); +pre2par::work::diff_content($parfile, $parfilecomp, $pre2par::globals::parfilename); + #################################### # End main program #################################### |