| Subject: | Full Also Known As [patch] |
Hi,
I made small patch for retrieving full Also Known As from
http://www.imdb.com/title/tt0111161/releaseinfo#akas
| Subject: | full_aka.txt |
=item full_also_known_as()
Retrieve FULL AKA information as array, each element of which is string:
my $aka = $film->full_also_known_as();
print map { "$_\n" } @$aka;
=cut
sub full_also_known_as {
my CLASS_NAME $self = shift;
unless($self->{_full_also_known_as}) {
my $page;
$page = $self->_cacheObj->get($self->code.'_releaseinfo') if $self->_cache;
unless($page) {
my $url = "http://". $self->{host} . "/" . $self->{query} . $self->code . "/releaseinfo";
$self->_show_message("URL is $url ...", 'DEBUG');
$page = $self->_get_page_from_internet($url);
unless($page) {
return;
}
$self->_cacheObj->set($self->code.'_releaseinfo', $page, $self->_cache_exp) if $self->_cache;
}
my $parser = $self->_parser(FORCED, \$page);
my (@aka, $tag);
while($tag = $parser->get_tag('a')) {
last if $tag->[1]->{name} && $tag->[1]->{name} =~ /^akas$/i;
}
while($tag = $parser->get_tag()) {
push @aka, $parser->get_trimmed_text('/td') if $tag->[0] eq 'tr'; #only title
last if $tag->[0] eq '/table';
}
$self->{_full_also_known_as} = \@aka;
}
return $self->{_full_also_known_as};
}