X-Git-Url: http://dolda2000.com/gitweb/?a=blobdiff_plain;f=ANN.pm;fp=ANN.pm;h=90bd24a28e614c51199fdba1f02ffae7b51bab97;hb=604af5b7b25637902595d77841de832aa5ee9ab3;hp=fbf08e55a88d0d943c556006168fd93890ff8a2e;hpb=23d4abb2e29634e8d2e11879be91cec9cfd6ad13;p=utils.git

diff --git a/ANN.pm b/ANN.pm
index fbf08e5..90bd24a 100644
--- a/ANN.pm
+++ b/ANN.pm
@@ -92,7 +92,12 @@ sub getseries
     $html = _get "http://www.animenewsnetwork.com/encyclopedia/anime.php?id=$id";
     
     $ret{"url"} = "http://www.animenewsnetwork.com/encyclopedia/anime.php?id=$id";
-    ($ret{"name"}) = ($html =~ /\<TITLE\>Anime News Network - ([^<]*)<\/TITLE>/);
+    ($buf) = ($html =~ /\<TITLE\>Anime News Network - ([^<]*)<\/TITLE>/);
+    if($buf =~ /\([^\)]+\)$/) {
+	($ret{"name"}, $ret{"type"}) = ($buf =~ /^(.*[^\s])\s*\(([^\)]+)\)$/);
+    } else {
+	$ret{"name"} = $buf;
+    }
     if(($buf) = ($html =~ /vintage:<\/b>\n([^<]+)</is)) {
 	$ret{"vtg"} = $buf;
     }