$p = HTML::TokeParser->new(\$content);
- OUTER: while ($t = $p->get_tag('table')) {
- if (exists($t->[1]->{'class'}) && ($t->[1]->{'class'} eq 'quote')) {
- while ($t2 = $p->get_tag('p')) {
- $metadata->{'CONTENT'} = $p->get_text('/p');
- last OUTER;
- }
+ OUTER: while ($t = $p->get_tag('span')) {
+ if (exists($t->[1]->{'class'}) && ($t->[1]->{'class'} eq 'qt')) {
+ $metadata->{'CONTENT'} = $p->get_text('/span');
+ last OUTER;
}
}