From 3d1540c2f787c88e461fd8eede91b37411f643c8 Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Sat, 24 May 2008 13:48:15 +0000
Subject: * make sure to remove all warning- and error-indicator strings
 already contained   in message before adding a new one

git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@1791 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 lib/OpenSLX/Basics.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/OpenSLX/Basics.pm b/lib/OpenSLX/Basics.pm
index ec043e91..4b40269e 100644
--- a/lib/OpenSLX/Basics.pm
+++ b/lib/OpenSLX/Basics.pm
@@ -805,11 +805,11 @@ sub _doThrowOrWarn
     
     # use '°°°' for warnings and '***' for errors
     if ($type eq 'carp' || $type eq 'warn' || $type eq 'cluck') {
-        $msg =~ s[^!   ][]igms;
+        $msg =~ s[^(!  |\*\*\*) ][]igms;
         $msg =~ s[^][!   ]igms;
     }
     else {
-        $msg =~ s[^\*\*\* ][]igms;
+        $msg =~ s[^(!  |\*\*\*) ][]igms;
         $msg =~ s[^][*** ]igms;
     }
 
-- 
cgit v1.2.3-55-g7522