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

diff --git a/lib/WebPAC/Output/SWISH.pm b/lib/WebPAC/Output/SWISH.pm
index 2eef778..c252e42 100644 (file)
--- 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);