/[webpac2]/trunk/lib/WebPAC/Output/SWISH.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Output/SWISH.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1161 by dpavlin, Sat Apr 25 14:18:06 2009 UTC revision 1165 by dpavlin, Sat Apr 25 17:11:33 2009 UTC
# Line 130  my $escape_re  = join '|' => keys %escap Line 130  my $escape_re  = join '|' => keys %escap
130  sub add {  sub add {
131          my ($self,$id,$ds) = @_;          my ($self,$id,$ds) = @_;
132    
133            die "need input" unless $self->input;
134    
135          my $log = $self->_get_logger;          my $log = $self->_get_logger;
136          $log->debug("id: $id ds = ",sub { dump($ds) });          $log->debug("id: $id ds = ",sub { dump($ds) });
137    
# Line 168  sub add { Line 170  sub add {
170                  $xml .= qq{<$tag><![CDATA[BW $vals EW]]></$tag>};                  $xml .= qq{<$tag><![CDATA[BW $vals EW]]></$tag>};
171    
172                  $self->{stats}->{attr}->{$tag}++;                  $self->{stats}->{attr}->{$tag}++;
173                    $self->{stats}->{input}->{ $self->input }->{$tag}++;
174    
175                  $data->{$tag} = $vals;                  $data->{$tag} = $vals;
176          }          }
Legend:
Removed from v.1161  
changed lines
  Added in v.1165
  ViewVC Help
Powered by ViewVC 1.1.26