|
|
@ -241,11 +241,26 @@ sub gallery_markup { |
|
|
|
|
|
|
|
if (-d "$basedir/$file") { |
|
|
|
return gallery("$basedir/$file", ""); |
|
|
|
} elsif (-d $self->root_dir . $file) { |
|
|
|
return gallery($self->root_dir . $file); |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
# Encapsulate some ugly file-location functionality. |
|
|
|
sub resolve_file { |
|
|
|
my $self = shift; |
|
|
|
my ($filename) = @_; |
|
|
|
|
|
|
|
# Get a basename and directory for the file: |
|
|
|
my ($basename, $dir) = fileparse($file); |
|
|
|
|
|
|
|
#if (-e "$dir/$image_url" ) { |
|
|
|
#$image_file = "$dir/$image_url"; |
|
|
|
#$image_url = "${file_date}${image_url}"; |
|
|
|
#} elsif (-e $self->root_dir . "/$image_url") { |
|
|
|
#$image_file = $self->root_dir . "/$image_url"; |
|
|
|
#} |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
1; |