From 5ebb6723e1fac31e01fc757c4472be1fddc64984 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 12 Jul 2009 15:10:00 +0000
Subject: [PATCH 1/1] 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
---
 vhost/webpac2.cgi | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/vhost/webpac2.cgi b/vhost/webpac2.cgi
index 66fec44..e59820e 100755
--- 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} = $@;
-- 
2.20.1