--- trunk/lib/WebPAC/Output/SWISH.pm	2009/04/25 11:00:22	1155
+++ trunk/lib/WebPAC/Output/SWISH.pm	2009/04/25 11:43:46	1156
@@ -8,6 +8,7 @@
 use base qw/WebPAC::Common Class::Accessor/;
 __PACKAGE__->mk_accessors(qw(
 	database
+	input
 	type
 
 	index_path
@@ -134,7 +135,7 @@
 
 	my $database = $self->database || $log->logconfess('no database in $self');
 
-	my $uri = $self->database . "/$id";
+	my $uri = $self->database . '/' . $self->input . "/$id";
 	$log->debug("creating $uri");
 
 	# filter all tags which have type defined
@@ -149,6 +150,8 @@
 
 	my $xml = qq{<xml>};
 
+	$xml .= "<$_>" . $self->$_ . "</$_>" foreach ( 'database', 'input' );
+
 	my $data;
 
 	foreach my $tag (@tags) {