- $ret{"url"} = "http://www.animenewsnetwork.com/encyclopedia/anime.php?id=$id";
- ($ret{"name"}) = ($html =~ /\<TITLE\>Anime News Network - ([^<]*)<\/TITLE>/);
+ $ret{"url"} = geturl $id;
+ ($buf) = ($html =~ /\<TITLE\>Anime News Network - ([^<]*)<\/TITLE>/);
+ if($buf =~ /\([^\)]+\)$/) {
+ ($ret{"name"}, $ret{"type"}) = ($buf =~ /^(.*[^\s])\s*\(([^\)]+)\)$/);
+ } else {
+ $ret{"name"} = $buf;
+ }