Revision 268

Date:
2013/01/31 17:26:14
Author:
ahitrov
Revision Log:
text_trim with the right symbol for ...
Files:

Legend:

 
Added
 
Removed
 
Modified

  • utf8/core/lib/Utils/HTML.pm

     
    249 249 my %opts = @_;
    250 250 my $text = $opts{'text'};
    251 251 my $length = $opts{'length'} || 200;
    252 my $ellipsis = $opts{'ellipsis'} || '…';
    252 my $ellipsis = $opts{'ellipsis'} || '…';
    253 253 $text =~ s/<[^>]*>//g;
    254 254 if (length($text) > $length) {
    255 255 $text = substr($text, 0, $length);