INTEGRATION: CWS native51 (1.8.130); FILE MERGED

2006/06/19 15:35:55 is 1.8.130.2: #i65048# checking written par files
2006/06/19 15:21:21 is 1.8.130.1: #i66557# checking, that pre file has content

1 files changed, 25 insertions, 2 deletions

diff --git a/solenv/bin/modules/pre2par/work.pm b/solenv/bin/modules/pre2par/work.pm
index 4a1c64290311..dfab718f91f3 100644
--- a/solenv/bin/modules/pre2par/work.pm
+++ b/solenv/bin/modules/pre2par/work.pm
@@ -4,9 +4,9 @@
 #
 #   $RCSfile: work.pm,v $
 #
-#   $Revision: 1.8 $
+#   $Revision: 1.9 $
 #
-#   last change: $Author: rt $ $Date: 2006-02-09 14:00:55 $
+#   last change: $Author: kz $ $Date: 2006-07-05 21:13:48 $
 #
 #   The Contents of this file are made available subject to
 #   the terms of GNU Lesser General Public License Version 2.1.
@@ -298,4 +298,27 @@ sub check_existence_of_langfiles
     return $do_localize;
 }
 
+############################################
+# Checking that the pre file has content
+############################################
+
+sub check_content
+{
+    my ($filecontent, $filename) = @_;
+
+    if ( $#{$filecontent} < 0 ) { pre2par::exiter::exit_program("Error: $filename has no content!", "check_content"); }
+}
+
+############################################
+# Checking content of par files.
+# Currently only size.
+############################################
+
+sub diff_content
+{
+    my ($content1, $content2, $filename) = @_;
+
+    if ( $#{$content1} != $#{$content2} ) { pre2par::exiter::exit_program("Error: $filename was not saved correctly!", "diff_content"); }
+}
+
 1;