Hi all
I've got the following issue:sub breakLine() { my ($string, $length, $marker) = @_; my $tempstring = ""; my $afterstring = ""; if ( length($string) > $length && $length > 0 ) { $length -= length($marker); if ($length <= length($marker)) { $marker = ""; $tempstring = substr( $string, 0, $length ); } else { $afterstring = substr( $string, $length, lengt +h($string)); if (length($afterstring) > $length ) { $afters +tring = &breakLine($afterstring,$length+1, $marker);} $tempstring = substr( $string, 0, $length ) . +$marker . " " . $afterstring; } $string = $tempstring; } $string; } $tmpl->param( useremail => &breakLine($user->{email},$length,"-"), ); print $tmpl->output;
In reply to breaking words in a table. by jbrugger
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |