bugfix: no multiple 'my' in clMessages.pm

git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@9877 594d385d-05f5-0310-b6e9-bd551577e9d8

diff --git a/gosa-si/server/events/clMessages.pm b/gosa-si/server/events/clMessages.pm
index 5cc1a4ea002c4c145d60120bc1ee71b2fdc95aa7..fdb5a63884b6e693cecbacdded7441f308c95840 100644 (file)
--- a/gosa-si/server/events/clMessages.pm
+++ b/gosa-si/server/events/clMessages.pm
@@ -224,7 +224,7 @@ sub GOTOACTIVATION {
     # test whether content is an empty hash or a string which is required
 #########
 # testing 
-       my $content = @{$msg_hash->{$header}}[0];
+    my $content = @{$msg_hash->{$header}}[0];
     if(ref($content) eq "HASH") { $content = ""; }
     #eval{ if( 0 == keys(%$content) ) { $content = ""; } };
     #if( $@ ) { $content = "$content"; }
@@ -251,8 +251,6 @@ sub PROGRESS {
     my $macaddress = @{$msg_hash->{'macaddress'}}[0];
 
     # test whether content is an empty hash or a string which is required
-    my $content;
-    my $cont = @{$msg_hash->{$header}}[0];
 # TODO eval ändern auf if(ref($content) eq "HASH") dann ... else, dann...
 #########
 # testing 
@@ -284,7 +282,6 @@ sub FAIREBOOT {
     my $macaddress = @{$msg_hash->{'macaddress'}}[0];
 
     # test whether content is an empty hash or a string which is required
-    my $content = @{$msg_hash->{$header}}[0];
 # TODO eval ändern auf if(ref($content) eq "HASH") dann ... else, dann...
 #########
 # testing 
@@ -316,7 +313,6 @@ sub TASKSKIP {
     my $macaddress = @{$msg_hash->{'macaddress'}}[0];
 
     # test whether content is an empty hash or a string which is required
-    my $content = @{$msg_hash->{$header}}[0];
 # TODO eval ändern auf if(ref($content) eq "HASH") dann ... else, dann...
 #########
 # testing 
@@ -401,7 +397,6 @@ sub TASKEND {
     my $macaddress = @{$msg_hash->{'macaddress'}}[0];
 
     # test whether content is an empty hash or a string which is required
-    my $content = @{$msg_hash->{$header}}[0];
 # TODO eval ändern auf if(ref($content) eq "HASH") dann ... else, dann...
 #########
 # testing 
@@ -442,7 +437,6 @@ sub TASKERROR {
     $header =~ s/CLMSG_//g;
 
     # test whether content is an empty hash or a string which is required
-    my $content = @{$msg_hash->{$header}}[0];
 # TODO eval ändern auf if(ref($content) eq "HASH") dann ... else, dann...
 #########
 # testing 
@@ -483,8 +477,6 @@ sub HOOK {
     $header =~ s/CLMSG_//g;
 
     # test whether content is an empty hash or a string which is required
-    my $content = @{$msg_hash->{$header}}[0];
-
 # TODO eval ändern auf if(ref($content) eq "HASH") dann ... else, dann...
 #########
 # testing