Revision 100

Date:
2011/05/12 13:58:14
Author:
ahitrov
Revision Log:
Обработка полей
Files:

Legend:

 
Added
 
Removed
 
Modified

  • utf8/core/lib/Contenido/Parser/RSS.pm

     
    1045 1045 sub __field_prepare {
    1046 1046 my ($self, $text) = @_;
    1047 1047
    1048 # $text =~ s/^[\n\r\x20\t]+//;
    1049 $text =~ s/[\n\r\x20\t]+$//;
    1048 $text =~ s/^[\n\r\ \t]+//;
    1049 $text =~ s/[\n\r\ \t]+$//;
    1050 1050 $self->__cdata (\$text);
    1051 1051 $self->__extchar (\$text);
    1052 1052 # $text = HTML::Entities::decode_entities($text);
    … …  
    1085 1085 s/&/\&/sg;
    1086 1086 s/\&/\&/sgi;
    1087 1087 s/\&/\&/sgi;
    1088 s/\&lt;/</sgi;
    1089 s/\&gt;/>/sgi;
    1088 1090 s/\&quot;/"/sgi;
    1089 1091 s/\&#171;/«/sg;
    1090 1092 s/\&#187;/»/sg;
    … …  
    1100 1102 s/\&#34;/"/sg;
    1101 1103 }
    1102 1104 # $$textref =~ s/&#(\d+);/{'&#'.__normalise($1).';'}/eg;
    1103 # $$textref =~ s/&gt;/>/sgi;
    1104 # $$textref =~ s/&lt;/</sgi;
    1105 # $$textref =~ s/&quot;/"/sgi;
    1106 1105 # $$textref =~ s/&laquo;/«/sgi;
    1107 1106 # $$textref =~ s/&raquo;/»/sgi;
    1108 1107 # $$textref =~ s/&copy;/©/sgi;