added support for commas and apostrophes in folder names
This commit is contained in:
parent
125a68dc41
commit
b3cba88944
1 changed files with 1 additions and 1 deletions
|
|
@ -149,7 +149,7 @@ sub addAlbumFromFilesystem {
|
|||
if (scalar(@photos)) {
|
||||
# get album name
|
||||
my $albumName = $File::Find::name;
|
||||
$albumName =~ s{.*\/([A-Za-z0-9\.-_\s]+)$}{$1};
|
||||
$albumName =~ s{.*\/([A-Za-z0-9\.-_'\,\s]+)$}{$1};
|
||||
|
||||
# create album
|
||||
print "Creating album $albumName\n";
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue