Changeset Navigation

Changeset 1525

Timestamp:

08/20/06 20:54:53

Author:

miyagawa

Message:

Deal with $entry->body and $entry->author now returns ::Content object, not a string.

Files:

r1524	r1525
54	54	sub unicode { $_[0]->data }
55	55	sub utf8 { Encode::encode_utf8($_[0]->data) }
	56	sub encode { Encode::encode($_[1], $_[0]->data) }
56	57
57	58	sub serialize {

r936	r1525
82	82	$self->add_enclosure($args->{entry}, [ 'a', { href => $args->{entry}->permalink } ], 'href' );
83	83
84		my $parser = HTML::TokeParser->new(\$args->{entry}->body);
	84	return unless $args->{entry}->body;
	85
	86	my $parser = HTML::TokeParser->new(\$args->{entry}->body->data);
85	87	while (my $tag = $parser->get_tag('a', 'embed', 'img', 'object')) {
86	88	if ($tag->[0] eq 'a' ) {

r1391	r1525
42	42	my $doc = Search::Estraier::Document->new;
43	43	$doc->add_attr('@uri' => $args->{entry}->permalink);
44		$doc->add_attr('@title' => ~~_u($args->{entry}->title)~~);
	44	$doc->add_attr('@title' => $args->{entry}->title->utf8);
45	45	$doc->add_attr('@cdate' => $args->{entry}->date->format('W3CDTF')) if $args->{entry}->date;
46		$doc->add_attr('@author' => ~~_u($args->{entry}->author)~~) if $args->{entry}->author;
	46	$doc->add_attr('@author' => $args->{entry}->author->utf8) if $args->{entry}->author;
47	47
48		$doc->add_text(~~_u($args->{entry}->body_text)~~);
49		$doc->add_hidden_text(~~_u($args->{entry}->title)~~);
	48	$doc->add_text($args->{entry}->body->utf8);
	49	$doc->add_hidden_text($args->{entry}->title->utf8);
50	50
51	51	$doc->add_attr('@id' => $id) if $id; # update mode

r1339	r1525
59	59	$string = eval $string;
60	60	Plagger->context->log(error => $@) if $@;
	61
	62	$string = "$string"; # stringify ::Content
61	63	utf8::encode($string) if utf8::is_utf8($string);
62	64	}