/[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 1151 by dpavlin, Fri Apr 24 17:03:11 2009 UTC revision 1154 by dpavlin, Sat Apr 25 10:59:43 2009 UTC
# Line 161  sub add { Line 161  sub add {
161                  next if ! $vals;                  next if ! $vals;
162    
163                  $vals =~ s/($escape_re)/$escape{$1}/gs;                  $vals =~ s/($escape_re)/$escape{$1}/gs;
164                  $xml .= qq{<$tag><![CDATA[$vals]]></$tag>};                  # BW & EW are our markers for tag boundry
165                    $xml .= qq{<$tag><![CDATA[BW $vals EW]]></$tag>};
166    
167                  $self->{stats}->{attr}->{$tag}++;                  $self->{stats}->{attr}->{$tag}++;
168    
# Line 181  sub add { Line 182  sub add {
182          print $fh "Path-Name: $uri\nContent-Length: $len\nDocument-Type: XML\n\n$xml" or          print $fh "Path-Name: $uri\nContent-Length: $len\nDocument-Type: XML\n\n$xml" or
183                  die "can't add $uri: $@\n$xml";                  die "can't add $uri: $@\n$xml";
184    
185  #       warn "$xml\n";          $log->debug( $xml );
186    
187          return 1;          return 1;
188  }  }
Legend:
Removed from v.1151  
changed lines
  Added in v.1154
  ViewVC Help
Powered by ViewVC 1.1.26