From 0037d5bf26b84d868338a36dff42a62e8582aa6b Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 25 Apr 2009 17:12:44 +0000
Subject: [PATCH]  r1835@llin:  dpavlin | 2009-04-25 19:12:40 +0200  add
 database and input to json which is returned with search result

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1167 07558da8-63fa-0310-ba24-9fe276d99e06
---
 lib/WebPAC/Output/SWISH.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/lib/WebPAC/Output/SWISH.pm b/lib/WebPAC/Output/SWISH.pm
index 759131f..19a5532 100644
--- a/lib/WebPAC/Output/SWISH.pm
+++ b/lib/WebPAC/Output/SWISH.pm
@@ -151,11 +151,13 @@ sub add {
 	return unless (@tags);
 
 	my $xml = qq{<all>};
-
-	$xml .= "<$_>" . $self->$_ . "</$_>" foreach ( 'database', 'input' );
-
 	my $data;
 
+	foreach ( 'database', 'input' ) {
+		$xml .= "<$_>" . $self->$_ . "</$_>";
+		$data->{$_} = $self->$_;
+	}
+
 	foreach my $tag (@tags) {
 
 		my $r = ref $ds->{$tag}->{$type};
-- 
2.20.1