--- 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||, join(qq| | |, map { $p->{$_} } keys %$p ), qq| | |, dump( $o ), qq| |
\n|;
+ print $client qq||, join(qq| | |, map { $p->{$_} } keys %$p ), qq| | |, dump( $o ), qq| |
\n|;
+ ( $s1, $s2 ) = ( $s2, $s1 );
});
print $client qq|
|;