- QDB format change

[quotesite.git] / quotesite / QdbGrabber.pm

diff --git a/quotesite/QdbGrabber.pm b/quotesite/QdbGrabber.pm
index 0a65255..1c56ee7 100644 (file)
--- a/quotesite/QdbGrabber.pm
+++ b/quotesite/QdbGrabber.pm
@@ -54,12 +54,10 @@ sub _parse {
 
     $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;
         }
     }