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},
|
