/[mws]/trunk/MWS_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/MWS_swish.pm

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

revision 15 by dpavlin, Thu May 6 19:46:58 2004 UTC revision 16 by dpavlin, Thu May 6 23:06:08 2004 UTC
# Line 88  sub add_index { Line 88  sub add_index {
88          my $xml = qq{<message>};          my $xml = qq{<message>};
89          foreach my $tag (keys %$document) {          foreach my $tag (keys %$document) {
90                  my $data = $document->{$tag};                  my $data = $document->{$tag};
91                    next if (! $data || $data eq '');
92                  # save [cr/]lf before conversion to XML                  # save [cr/]lf before conversion to XML
93                  $data =~ s/\n\r/##lf##/gs;                  $data =~ s/\n\r/##lf##/gs;
94                  $data =~ s/\n/##lf##/gs;                  $data =~ s/\n/##lf##/gs;
95                  $xml .= "<$tag><![CDATA[".$data."]]></$tag>\n" if ($data && $data ne '');                  $xml .= "<$tag><![CDATA[".$data."]]></$tag>\n";
96          }          }
97          $xml .= qq{</message>};          $xml .= qq{</message>};
98    
Legend:
Removed from v.15  
changed lines
  Added in v.16
  ViewVC Help
Powered by ViewVC 1.1.26