Ticket #6264: tmdb.pl.2.diff

88,91c88
< 
< # there can be multiple movies with the same imdbid, movie also has an id attribute.  Force xml to ignore this id 
< # attribute, and always create an array of movies
< my $xml = $xs->XMLin($response, forcearray => ['movie'], KeyAttr=>[ ]);
---
> my $xml = $xs->XMLin($response);
96d92
<         # there may be multiple movies with this id - assume the first one is the one we want
98c94
<         my $tmdbid = $xml->{moviematches}->{movie}->[0]->{id};
---
>         my $tmdbid = $xml->{moviematches}->{movie}->{id};
146,164c142,159
<         if (exists $xml->{moviematches}->{movie}->{people}->{person}) {
<            my @castlist = @{$xml->{moviematches}->{movie}->{people}->{person}};
<            for (my $i = 0; $i < @castlist; $i++)
<            {
<               if ($castlist[$i]->{job} eq "actor")
<               {
<                  $lcast[$cc++] = $castlist[$i]->{name};
<               }
< 
<               if ($castlist[$i]->{job} eq "director")
<               {
<                  $ldirector[$dc++] = $castlist[$i]->{name};
<               }
< 
<               if ($castlist[$i]->{job} eq "writer")
<               {
<                  $lwriter[$wc++] = $castlist[$i]->{name};
<               }
<            }
---
>         my @castlist = @{$xml->{moviematches}->{movie}->{people}->{person}};
>         for (my $i = 0; $i < @castlist; $i++)
>         {
>             if ($castlist[$i]->{job} eq "actor")
>             {
>                 $lcast[$cc++] = $castlist[$i]->{name};
>             }
> 
>             if ($castlist[$i]->{job} eq "director")
>             {
>                 $ldirector[$dc++] = $castlist[$i]->{name};
>             }
> 
>             if ($castlist[$i]->{job} eq "writer")
>             {
>                 $lwriter[$wc++] = $castlist[$i]->{name};
>             }
> 
201,203c196
<     # movie has an id attribute, we don't want this created into a hash, so force no key attr
<     my $xml = XMLin($response, forcearray => [ 'movie', 'poster', 'backdrop'], KeyAttr => { } );
< #    print Dumper($xml);
---
>     my $xml = XMLin($response, forcearray => [ 'poster', 'backdrop' ]);
205a199
>         my $poster = $xml->{moviematches}->{movie}->{poster}->[0]->{content};
207,210c201,203
<         my $poster;
< 
<         # there can be multiple movies with the same imdb id
<         foreach my $m (@{$xml->{moviematches}->{movie}}) 
---
>         if ($poster) {
>         # check for a mid sized poster
>         foreach my $p (@{$xml->{moviematches}->{movie}->{poster}})
212,213c205
<            # check for a mid sized poster
<            foreach my $p (@{$m->{poster}})
---
>            if ($p->{size} eq "mid")
215,219c207,208
<               if ($p->{size} eq "mid")
<               {
<                  $poster = $p->{content};
<                  last;
<               }
---
>                $poster = $p->{content};
>                last;
225a215
>         }