From: <ssc...@us...> - 2003-04-15 05:32:17
|
Update of /cvsroot/popfile/engine/UI In directory sc8-pr-cvs1:/tmp/cvs-serv13604 Modified Files: HTML.pm Log Message: remove excess boolean Index: HTML.pm =================================================================== RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v retrieving revision 1.127 retrieving revision 1.128 diff -C2 -d -r1.127 -r1.128 *** HTML.pm 15 Apr 2003 05:30:19 -0000 1.127 --- HTML.pm 15 Apr 2003 05:32:13 -0000 1.128 *************** *** 2022,2038 **** # and there are no ways to sort nothing && defined @{$self->{history_keys__}}) { - - - - if ($sort ne '') { - @{$self->{history_keys__}} = sort { - my ($a1,$b1) = ($self->{history__}{$a}{$sort}, - $self->{history__}{$b}{$sort}); - $a1 =~ s/[^A-Z0-9]//ig; - $b1 =~ s/[^A-Z0-9]//ig; - return ( $a1 cmp $b1 ); - } @{$self->{history_keys__}}; - } } else { # Here's a quick shortcut so that we don't have to iterate --- 2022,2033 ---- # and there are no ways to sort nothing && defined @{$self->{history_keys__}}) { + @{$self->{history_keys__}} = sort { + my ($a1,$b1) = ($self->{history__}{$a}{$sort}, + $self->{history__}{$b}{$sort}); + $a1 =~ s/[^A-Z0-9]//ig; + $b1 =~ s/[^A-Z0-9]//ig; + return ( $a1 cmp $b1 ); + } @{$self->{history_keys__}}; } else { # Here's a quick shortcut so that we don't have to iterate |