[popfile-commit] engine/UI HTML.pm,1.98.2.3,1.98.2.4

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

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

Modified Files:
      Tag: v0/18/1
	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.98.2.3
retrieving revision 1.98.2.4
diff -C2 -d -r1.98.2.3 -r1.98.2.4
*** HTML.pm	20 Mar 2003 09:07:05 -0000	1.98.2.3
--- HTML.pm	27 Mar 2003 04:12:09 -0000	1.98.2.4
***************
*** 2114,2118 ****
      # all sort next to each other
  
!     if ( $sort ne '' ) {
          @{$self->{history_keys_}} = sort { 
                                              my ($a1,$b1) = ($self->{history_}{$a}{$sort}, 
--- 2114,2118 ----
      # all sort next to each other
  
!     if ( $sort ne ''  && defined(@{$self->{history_keys_}})) {
          @{$self->{history_keys_}} = sort { 
                                              my ($a1,$b1) = ($self->{history_}{$a}{$sort}, 
***************
*** 3403,3407 ****
              my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($mail_file);
  
!             if ( $ctime < (time - $self->{configuration}->{configuration}{history_days} * $seconds_per_day) )  {
                  $self->history_delete_file( $mail_file, $self->{configuration}->{configuration}{archive} );
              }
--- 3403,3407 ----
              my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($mail_file);
  
!             if ( $ctime < (time - ( $self->{configuration}->{configuration}{history_days} * $seconds_per_day )) )  {
                  $self->history_delete_file( $mail_file, $self->{configuration}->{configuration}{archive} );
              }