pass $data to html::vhost so we can lookup other fields from same record

(e.g. to create link with some other field value)

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

diff --git a/vhost/webpac2.cgi b/vhost/webpac2.cgi
index 66fec44..e59820e 100755 (executable)
--- a/vhost/webpac2.cgi
+++ b/vhost/webpac2.cgi
@@ -291,7 +291,7 @@ if ( my $search = param('search') ) {
                                next unless defined $data->{$attr};
                                my $v = $data->{$attr};
                                if ( $html_markup && ! $html_markup_skip->{$attr} ) {
-                                       eval "\$v = $html_markup->$attr( \$v );";
+                                       eval "\$v = $html_markup->$attr( \$v, \$data );";
                                        if ( $@ ) {
                                                warn "disable html markup for $attr: $@";
                                                $html_markup_skip->{$attr} = $@;