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

[webpac2] / vhost / webpac2.cgi

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} = $@;