[popfile-commit] engine/UI HTML.pm,1.119,1.120

[<ssc...@us...>]

Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv1024

Modified Files:
	HTML.pm 
Log Message:
fixes sort and filter crash (bug 709584)

Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.119
retrieving revision 1.120
diff -C2 -d -r1.119 -r1.120
*** HTML.pm	25 Mar 2003 05:24:58 -0000	1.119
--- HTML.pm	27 Mar 2003 04:08:50 -0000	1.120
***************
*** 1983,1987 ****
          @{$self->{history_keys__}} = keys %{$self->{history__}};
      }
! 
      # If a sort is specified then use it to sort the history items by an a subkey
      # (from, subject or bucket) otherwise use compare_mf to give the history back
--- 1983,1988 ----
          @{$self->{history_keys__}} = keys %{$self->{history__}};
      }
!     
!     
      # If a sort is specified then use it to sort the history items by an a subkey
      # (from, subject or bucket) otherwise use compare_mf to give the history back
***************
*** 1990,1994 ****
      # all sort next to each other
  
!     if ( $sort ne '' ) {
          @{$self->{history_keys__}} = sort {
                                              my ($a1,$b1) = ($self->{history__}{$a}{$sort},
--- 1991,1998 ----
      # all sort next to each other
  
!     if ( $sort ne '' 
!          # If the filter had no messages, this will be undefined
!          # and there are no ways to sort nothing
!          && defined @{$self->{history_keys__}}) {
          @{$self->{history_keys__}} = sort {
                                              my ($a1,$b1) = ($self->{history__}{$a}{$sort},