WebSVN – DevTools – Diff – /core_devl/trunk/TOOLS/LIB/JatsError.pm

     # set the version for version checking
     $VERSION     = 1.00;
     @EXPORT      = qw(ErrorConfig ErrorReConfig ErrorDoExit
                       ReportError Fatal Error Warning
+                      WarnError
                       Message Message1
                       Information Information1
                       Question
                       Verbose0 Verbose Verbose2 Verbose3
                       Debug0 Debug Debug2 Debug3
 #-------------------------------------------------------------------------------
 # Function        : Information
 #                   Message
 #                   Question
 #                   Warning
+#                   WarnError
 #                   Error
 #                   Verbose
 #                   Debug
 #                   _Message ( Internal use only )
+#
+{
     _Message '(W)', @_ unless ( $::ScmQuiet > 2);
+}
 #-------------------------------------------------------------------------------
+# Function        : WarnError
+#
+# Description     : Display a warning or an error based on the first argument
+#
+# Inputs          : Mode    - True. Error, False warn
+#                   ...     - Fed to warn or error
+#
+# Returns         : May not return
+#
+sub WarnError
+{
+    my $mode = shift;
+    if ($mode) {
+        Error (@_);
+    }
+    Warning(@_);
+}
+#-------------------------------------------------------------------------------
 # Function        : Question
+#
 # Description     : Display a Question message
 #                   These cannot be disabled
+#

Subversion Repositories DevTools

(root)/core_devl/trunk/TOOLS/LIB/JatsError.pm – Rev 6504 → 7326