Parent Directory | Revision Log | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |