From c97119d61ab446b7761be94fc166dd6503e772d1 Mon Sep 17 00:00:00 2001
From: Alexander Sulfrian <alex@spline.inf.fu-berlin.de>
Date: Tue, 20 Jan 2015 01:02:03 +0100
Subject: FilterElementPre: Fix Hash vs. Hashref usage

---
 Kernel/Output/HTML/ResponseChangeDefaultTo.pm | 21 +++++++++++++--------
 1 file changed, 13 insertions(+), 8 deletions(-)

diff --git a/Kernel/Output/HTML/ResponseChangeDefaultTo.pm b/Kernel/Output/HTML/ResponseChangeDefaultTo.pm
index 2fb8500..66e34b6 100644
--- a/Kernel/Output/HTML/ResponseChangeDefaultTo.pm
+++ b/Kernel/Output/HTML/ResponseChangeDefaultTo.pm
@@ -44,25 +44,25 @@ sub Run {
         $Self->{LayoutObject}->FatalDie();
     }
 
-    my @BlockData = $Self->{LayoutObject}->{BlockData};
+    my $BlockData = $Self->{LayoutObject}->{BlockData};
 
     # get ticket data
-    my %Ticket = ();
+    my $Ticket;
     BLOCK:
-    for my $block ( @BlockData ) {
+    for my $block ( @$BlockData ) {
         if ( $block->{Name} eq 'TicketBack' ) {
-            %Ticket = $block->{Data};
+            $Ticket = $block->{Data};
             last BLOCK;
         }
     } 
 
     # return if not generated from template
-    return unless $Ticket{ResponseID};
+    return unless $Ticket->{ResponseID};
 
     # get all ResponseChangeDefaultTo
     my %MappedResponseChangeDefaultTo =
         $Self->{ResponseChangeDefaultToObject}->MappingList(
-            ResponseID => $Ticket{ResponseID},        
+            ResponseID => $Ticket->{ResponseID},
         );
 
     my $RemoveDefault = 0;
@@ -82,8 +82,13 @@ sub Run {
 
     if ( $RemoveDefault ) {
         # remove preselected "To" address
-        $Self->{LayoutObject}->{BlockData} =
-            grep { $_->{Name} ne 'PreFilledToRow' } @BlockData;
+        for my $block ( @$BlockData ) {
+            if ( $block->{Name} eq 'PreFilledToRow' ) {
+                $block->{Data} = undef;
+            }
+        }
+
+        $Self->{LayoutObject}->{BlockData} = $BlockData;
     }
 
     # add new addresses
-- 
cgit v1.2.3-1-g7c22