--- trunk/lib/WebPAC/Output/SWISH.pm	2009/04/25 14:18:06	1161
+++ trunk/lib/WebPAC/Output/SWISH.pm	2009/04/25 17:11:33	1165
@@ -130,6 +130,8 @@
 sub add {
 	my ($self,$id,$ds) = @_;
 
+	die "need input" unless $self->input;
+
 	my $log = $self->_get_logger;
 	$log->debug("id: $id ds = ",sub { dump($ds) });
 
@@ -168,6 +170,7 @@
 		$xml .= qq{<$tag><![CDATA[BW $vals EW]]></$tag>};
 
 		$self->{stats}->{attr}->{$tag}++;
+		$self->{stats}->{input}->{ $self->input }->{$tag}++;
 
 		$data->{$tag} = $vals;
 	}