From e1519b1a065ae356c5ee2f3b4639846cf99b5977 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 25 Apr 2009 14:18:06 +0000
Subject: [PATCH] rename top-level tag to all so we can have quieries like
 (all=something) in swish-e

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

diff --git a/lib/WebPAC/Output/SWISH.pm b/lib/WebPAC/Output/SWISH.pm
index 2eef778..c252e42 100644
--- a/lib/WebPAC/Output/SWISH.pm
+++ b/lib/WebPAC/Output/SWISH.pm
@@ -148,7 +148,7 @@ sub add {
 
 	return unless (@tags);
 
-	my $xml = qq{<xml>};
+	my $xml = qq{<all>};
 
 	$xml .= "<$_>" . $self->$_ . "</$_>" foreach ( 'database', 'input' );
 
@@ -176,7 +176,7 @@ sub add {
 	$data = to_json($data);
 	$xml .= qq{<data><![CDATA[$data]]></data>};
 
-	$xml .= qq{</xml>\n};
+	$xml .= qq{</all>\n};
 
 	my $len = length($xml);
 
-- 
2.20.1