r1834@llin: dpavlin | 2009-04-25 19:12:00 +0200

 dump data for each search result in debug mode

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1166 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/vhost/webpac2.cgi b/vhost/webpac2.cgi
index 82c52a9..79adc7d 100755 (executable)
--- a/vhost/webpac2.cgi
+++ b/vhost/webpac2.cgi
@@ -237,6 +237,8 @@ if ( my $search = param('search') ) {
                while ( my $result = $swish_results->next_result ) {
                        my $data = from_json $result->property('data');
 
+                       dump_yaml( 'data', $data );
+
                        print qq|<li>|;
                        foreach my $attr ( @attr ) {
                                next unless defined $data->{$attr};