projects
/
webpac2
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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) = @_;
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) });
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}++;
$xml .= qq{<$tag><![CDATA[BW $vals EW]]></$tag>};
$self->{stats}->{attr}->{$tag}++;
+ $self->{stats}->{input}->{ $self->input }->{$tag}++;
$data->{$tag} = $vals;
}
$data->{$tag} = $vals;
}