245 |
|
|
246 |
my $limit = $pager->entries_on_this_page; |
my $limit = $pager->entries_on_this_page; |
247 |
|
|
248 |
|
my $nr = 1; |
249 |
|
|
250 |
while ( my $result = $swish_results->next_result ) { |
while ( my $result = $swish_results->next_result ) { |
251 |
|
|
252 |
my $data = from_json $result->property('data'); |
my $data = from_json $result->property('data'); |
253 |
|
|
254 |
dump_yaml( 'data', $data ); |
dump_yaml( 'data', $data ); |
255 |
|
|
256 |
print qq|<li>|; |
my $li_class = ''; |
257 |
|
$li_class = qq| class="z"| if $nr++ % 2 == 0; |
258 |
|
print qq|<li$li_class>|; |
259 |
foreach my $attr ( @attr ) { |
foreach my $attr ( @attr ) { |
260 |
next unless defined $data->{$attr}; |
next unless defined $data->{$attr}; |
261 |
my $v = $data->{$attr}; |
my $v = $data->{$attr}; |