1162,1163d1161
< 	unless($self->{_also_known_as}) {
< 		my $parser = $self->_parser(FORCED);
1165,1169c1163,1165
<         while(my $tag = $parser->get_tag(MAIN_TAG)) {
<         	my $text = $parser->get_text();
< 			$self->_show_message("AKA: $text", 'DEBUG');
<             last if $text =~ /^(aka|also known as)/i;
<         }
---
>   	unless($self->{_also_known_as}) {
> 		my $page;
> 	    	$page = $self->_cacheObj->get($self->code . '_releaseinfo') if $self->_cache;
1171,1177c1167,1197
< 		my $aka = $parser->get_trimmed_text('span');
< 		
< 		$self->_show_message("AKA: $aka", 'DEBUG');
< 		my @aka = ($aka);
< 		$self->{_also_known_as} = \@aka;
< 	}	
< 	
---
>     		unless($page) {
>       			my $url = "http://". $self->{host} . "/" . $self->{query} .  $self->code . "/releaseinfo";
> 	      		$self->_show_message("URL for movie releaseinfo is $url ...", 'DEBUG');
> 
> 	      		$page = $self->_get_page_from_internet($url);
>       			$self->_cacheObj->set($self->code.'_releaseinfo', $page, $self->_cache_exp) if $self->_cache;
> 	    	}
> 
> 	    	my $parser = $self->_parser(FORCED, \$page);
> 
> 	    	my %result;
>     		my @lookFor = ('a');
> 		my $found = 0;
> 		while (my $tag = $parser->get_tag(@lookFor)) {
> 			if ($tag->[0] eq 'a' && defined($tag->[1]->{name}) && $tag->[1]->{name} eq 'akas') {
> 				$self->_show_message("Start search for AKA.", 'DEBUG');
> 				$found = 1;
>         			@lookFor = ('tr', '/table');
>       			} elsif ($found && $tag->[0] eq 'tr') {
> 				my $aka = $parser->get_trimmed_text("/td");
> 				$parser->get_text("td");
> 				my $info = $parser->get_trimmed_text("/td");
> 				$self->_show_message("AKA: $aka", 'DEBUG');
> 				$result{$info} = $aka;
> 	      		} elsif ($found) {
>         			# Stop when we hit the divider
>         			last;
> 	      		}
>     		}
> 		$self->{_also_known_as} = \%result;
> 	}