Changeset Navigation

Changeset 1119

Timestamp:

07/21/06 16:37:11

Author:

miyagawa

Message:

By Jcode. let's use Text::WrapI18N

Files:

r1118	r1119
5	5	use File::Spec;
6	6	use SWF::Builder;
7		~~use Jcode;~~
8	7
9	8	sub register {
…	…
107	106	my $body_size = $self->conf->{body_size} \|\| 24;
108	107
109		$body = $self->linefeed($body);
	108	if ($self->conf->{linefeed}) {
	109	$body = $self->fold_body($body, $self->conf->{linefeed});
	110	}
110	111
111	112	my $entry_name = 'entry_text'.$page;
…	…
130	131	}
131	132
132		sub linefeed {
133		my($self, $str, $n) = @_;
134		my $linefeed = $self->conf->{linefeed} \|\| 30;
135		my @line = split "\n",$str;
136		my $line;
137		for my $l (@line){
138		my @l = Jcode->new($l)->jfold($linefeed);
139		$line .= join "\n",@l;
140		$line .= "\n";
	133	sub fold_body {
	134	my($self, $str, $length) = @_;
	135
	136	$length \|\|= 30;
	137
	138	if (eval { require Text::WrapI18N }) {
	139	local $Text::WrapI18N::columns = $length;
	140	return Text::WrapI18N::wrap('', '', Encode::encode_utf8($str));
	141	} else {
	142	require Text::Wrap;
	143	local $Text::Wrap::columns = $length + 1;
	144	return Text::Wrap::wrap('', '', $str);
141	145	}
142		~~$line;~~
143	146	}
144	147