added support for commas and apostrophes in folder names

This commit is contained in:
JT Smith 2008-06-29 15:53:06 +00:00
parent 125a68dc41
commit b3cba88944

View file

@ -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";