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} );
}
|
