Revision 267
- Date:
- 2013/01/17 16:45:40
- Files:
Legend:
- Added
- Removed
- Modified
-
koi8/core/lib/Utils/HTML.pm
221 221 my %opts = @_; 222 222 my $text = $opts{'text'}; 223 223 my $length = $opts{'length'} || 200; 224 my $ellipsis = $opts{'ellipsis'} || '…'; 224 my $ellipsis = $opts{'ellipsis'} || '…'; 225 225 $text =~ s/<[^>]*>//g; 226 226 if (length($text) > $length) { 227 227 $text = substr($text, 0, $length);