diff options
Diffstat (limited to 'perllib/Utils/Photo.pm')
-rw-r--r-- | perllib/Utils/Photo.pm | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/perllib/Utils/Photo.pm b/perllib/Utils/Photo.pm deleted file mode 100644 index 17514f195..000000000 --- a/perllib/Utils/Photo.pm +++ /dev/null @@ -1,46 +0,0 @@ -package Utils::Photo; - -use Image::Size; - -=head2 get_photo_params - -Returns a hashref of details of any attached photo (the first, if multiple -ones) for use in templates. Hashref contains height, width and url keys. - -=cut - -sub get_photo_params { - my ($self, $key) = @_; - - return {} unless $self->photo; - - $key = ($key eq 'id') ? '' : "/$key"; - - my $pre = "/photo$key/" . $self->id; - my $post = '.jpeg'; - my $photo = {}; - - if ($self->can('get_photoset')) { - my $data = $self->get_photoset()->get_raw_image_data(0); - my $fileid = $data->[0]; - $post .= '?' . $fileid; - $photo->{url_full} = "$pre.full$post"; - } elsif (length($self->photo) == 40) { - $post .= '?' . $self->photo; - $photo->{url_full} = "$pre.full$post"; - # XXX Can't use size here because {url} (currently 250px height) may be - # being used, but at this point it doesn't yet exist to find the width - # $str = FixMyStreet->config('UPLOAD_DIR') . $self->photo . '.jpeg'; - } else { - my $str = \$self->photo; - ( $photo->{width}, $photo->{height} ) = Image::Size::imgsize( $str ); - } - - $photo->{url} = "$pre$post"; - $photo->{url_tn} = "$pre.tn$post"; - $photo->{url_fp} = "$pre.fp$post"; - - return $photo; -} - -1; |