fixed resolutions problem

This commit is contained in:
Doug Bell 2008-05-29 19:25:57 +00:00
parent 7a1aa167c5
commit 126a2bacb5

View file

@ -236,9 +236,10 @@ sub getTemplateVars {
### Download resolutions ### Download resolutions
for my $resolution ( @{ $self->getResolutions } ) { for my $resolution ( @{ $self->getResolutions } ) {
my $downloadUrl = $self->getStorageLocation->getPathFrag( $resolution ); ( my $label ) = $resolution =~ /\.[^.]+$/; # Remove the trailing extention
my $downloadUrl = $self->getStorageLocation->getUrl( $resolution );
push @{ $var->{ resolutions_loop } }, { push @{ $var->{ resolutions_loop } }, {
resolution => $resolution, resolution => $label,
url_download => $downloadUrl, url_download => $downloadUrl,
}; };
$var->{ "resolution_" . $resolution } = $downloadUrl; $var->{ "resolution_" . $resolution } = $downloadUrl;