X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=lib%2FWebPAC%2FOutput%2FSWISH.pm;h=759131fe422105e3f4a9fce4eaf10d8f2882bce9;hb=921bff74b889275112e0cfa64fcadad3aef46dac;hp=c252e427c5dc7c5151b934c0182487e8e2fda91b;hpb=e1519b1a065ae356c5ee2f3b4639846cf99b5977;p=webpac2

diff --git a/lib/WebPAC/Output/SWISH.pm b/lib/WebPAC/Output/SWISH.pm
index c252e42..759131f 100644
--- a/lib/WebPAC/Output/SWISH.pm
+++ b/lib/WebPAC/Output/SWISH.pm
@@ -130,6 +130,8 @@ my $escape_re  = join '|' => keys %escape;
 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 @@ sub add {
 		$xml .= qq{<$tag><![CDATA[BW $vals EW]]></$tag>};
 
 		$self->{stats}->{attr}->{$tag}++;
+		$self->{stats}->{input}->{ $self->input }->{$tag}++;
 
 		$data->{$tag} = $vals;
 	}