lilalo

diff l3-frontend @ 59:4d7e45bc659b

Исправлена ошибка с фильтром
author devi
date Sat Jan 14 17:55:48 2006 +0200 (2006-01-14)
parents 187b6636a3be
children c4bea959dbb1
line diff
     1.1 --- a/l3-frontend	Wed Dec 28 18:44:42 2005 +0200
     1.2 +++ b/l3-frontend	Sat Jan 14 17:55:48 2006 +0200
     1.3 @@ -397,13 +397,14 @@
     1.4  
     1.5      if ($Config{filter}) {
     1.6          # Инициализация фильтра
     1.7 -        my %filter;
     1.8          for (split /&/,$Config{filter}) {
     1.9              my ($var, $val) = split /=/;
    1.10              $filter{$var} = $val || "";
    1.11          }
    1.12      }
    1.13  
    1.14 +    #$result = "Filter=".$Config{filter}."\n";
    1.15 +
    1.16      $Stat{LastCommand}   ||= 0;
    1.17      $Stat{TotalCommands} ||= 0;
    1.18      $Stat{ErrorCommands} ||= 0;
    1.19 @@ -436,7 +437,11 @@
    1.20  # Если у нас недостаточно информации о том, подходит строка под  фильтр или нет, 
    1.21  # мы её выводим
    1.22  
    1.23 +        #$result .= "before<br/>";
    1.24          for my $filter_key (keys %filter) {
    1.25 +            #$result .= "undefined local session id<br/>\n" if !defined($cl->{local_session_id});
    1.26 +            #$result .= "undefined filter key $filter_key <br/>\n" if !defined($Sessions{$cl->{local_session_id}}->{$filter_key});
    1.27 +            #$result .= $Sessions{$cl->{local_session_id}}->{$filter_key}." != ".$filter{$filter_key};
    1.28              next COMMAND_LINE if 
    1.29                  defined($cl->{local_session_id}) 
    1.30                  && defined($Sessions{$cl->{local_session_id}}->{$filter_key})