/[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 1160 by dpavlin, Sat Apr 25 11:43:46 2009 UTC revision 1161 by dpavlin, Sat Apr 25 14:18:06 2009 UTC
# Line 148  sub add { Line 148  sub add {
148    
149          return unless (@tags);          return unless (@tags);
150    
151          my $xml = qq{<xml>};          my $xml = qq{<all>};
152    
153          $xml .= "<$_>" . $self->$_ . "</$_>" foreach ( 'database', 'input' );          $xml .= "<$_>" . $self->$_ . "</$_>" foreach ( 'database', 'input' );
154    
# Line 176  sub add { Line 176  sub add {
176          $data = to_json($data);          $data = to_json($data);
177          $xml .= qq{<data><![CDATA[$data]]></data>};          $xml .= qq{<data><![CDATA[$data]]></data>};
178    
179          $xml .= qq{</xml>\n};          $xml .= qq{</all>\n};
180    
181          my $len = length($xml);          my $len = length($xml);
182    
Legend:
Removed from v.1160  
changed lines
  Added in v.1161
  ViewVC Help
Powered by ViewVC 1.1.26