| Subject: | User not found when user was returned from previous call |
The following script returns: 'error_message' => 'User not found',
even when the user exists.
#!/usr/bin/perl
use Flickr::Photo;
use Flickr::API::Photosets;
use Data::Dumper;
my ($photo,$owner,$userid,$photosets);
$photo = Flickr::Photo->new({ api_key => $my_flickr_api_key } );
if ($photo->id({id => '2719963722'})){
$owner = $photo->owner;
$title = $photo->title;
$username = $owner->username;
}
print "getting ".${username}."'s photosets.";
if($username ne ""){
my $flickrphotosets = Flickr::API::Photosets->new($my_flickr_api_key);
$photosets = $flickrphotosets->getList(${username});
print Data::Dumper->Dump([$photosets]);
}
Also: the documentation for Flickr::API::Photosets; indicates that use
Flickr::API::Photos; should be used, which throws an error.