--- lib/PXElator/httpd.pm 2010/01/23 21:00:01 488 +++ lib/PXElator/httpd.pm 2010/01/23 21:02:52 489 @@ -274,6 +274,7 @@ print $client ok , qq|| ; + my ( $s1,$s2 ) = ( ' style="background: #eee"', '' ); store::query( sub { my $o = shift; my $p = delete( $o->{package} ); @@ -282,7 +283,8 @@ # XXX sigh, dump dies if we don't do this delete $o->{$_} foreach ( grep { ! defined $o->{$_} } keys %$o ); - print $client qq|\n|; + print $client qq|\n|; + ( $s1, $s2 ) = ( $s2, $s1 ); }); print $client qq|
|, join(qq||, map { $p->{$_} } keys %$p ), qq|
|, dump( $o ), qq|
|, join(qq||, map { $p->{$_} } keys %$p ), qq|
|, dump( $o ), qq|
|;