r1832@llin: dpavlin | 2009-04-25 18:46:39 +0200

[webpac2] / lib / WebPAC / Output / SWISH.pm

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