# HG changeset patch
# User devi
# Date 1137254148 -7200
# Node ID 4d7e45bc659b37c45575e420aad914bd2902b78c
# Parent  93e98a3fa44d79b276c72d5c154ad8224647d56f
Исправлена ошибка с фильтром

diff -r 93e98a3fa44d -r 4d7e45bc659b l3-frontend
--- a/l3-frontend	Sat Jan 14 00:12:41 2006 +0200
+++ b/l3-frontend	Sat Jan 14 17:55:48 2006 +0200
@@ -397,13 +397,14 @@
 
     if ($Config{filter}) {
         # Инициализация фильтра
-        my %filter;
         for (split /&/,$Config{filter}) {
             my ($var, $val) = split /=/;
             $filter{$var} = $val || "";
         }
     }
 
+    #$result = "Filter=".$Config{filter}."\n";
+
     $Stat{LastCommand}   ||= 0;
     $Stat{TotalCommands} ||= 0;
     $Stat{ErrorCommands} ||= 0;
@@ -436,7 +437,11 @@
 # Если у нас недостаточно информации о том, подходит строка под  фильтр или нет, 
 # мы её выводим
 
+        #$result .= "before<br/>";
         for my $filter_key (keys %filter) {
+            #$result .= "undefined local session id<br/>\n" if !defined($cl->{local_session_id});
+            #$result .= "undefined filter key $filter_key <br/>\n" if !defined($Sessions{$cl->{local_session_id}}->{$filter_key});
+            #$result .= $Sessions{$cl->{local_session_id}}->{$filter_key}." != ".$filter{$filter_key};
             next COMMAND_LINE if 
                 defined($cl->{local_session_id}) 
                 && defined($Sessions{$cl->{local_session_id}}->{$filter_key})