r1852@llin: dpavlin | 2009-04-29 18:14:57 +0200
[webpac2] / vhost / webpac2.cgi
index 8b9d844..d4f6ffd 100755 (executable)
@@ -245,13 +245,17 @@ if ( my $search = param('search') ) {
 
                my $limit = $pager->entries_on_this_page;
 
+               my $nr = 1;
+
                while ( my $result = $swish_results->next_result ) {
 
                        my $data = from_json $result->property('data');
 
                        dump_yaml( 'data', $data );
 
-                       print qq|<li>|;
+                       my $li_class = '';
+                       $li_class = qq| class="z"| if $nr++ % 2 == 0;
+                       print qq|<li$li_class>|;
                        foreach my $attr ( @attr ) {
                                next unless defined $data->{$attr};
                                my $v = $data->{$attr};