|
|
|
@ -1533,6 +1533,7 @@ sub tag_ICON()
|
|
|
|
|
(
|
|
|
|
|
'action' => 'actions',
|
|
|
|
|
'app' => 'apps',
|
|
|
|
|
'category' => 'categories',
|
|
|
|
|
'device' => 'devices',
|
|
|
|
|
'filesys' => 'places',
|
|
|
|
|
'mime' => 'mimetypes'
|
|
|
|
@ -1582,12 +1583,13 @@ sub tag_ICON()
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
my $dir = $dir_hash{$prefix} . "/" . $type_hash{$type};
|
|
|
|
|
if ($newfile =~ /-[^\.]/) {
|
|
|
|
|
my $tmp = $newfile;
|
|
|
|
|
$tmp =~ s/^([^-]+)-.*$/$1/;
|
|
|
|
|
$dir = $dir . "/" . $tmp;
|
|
|
|
|
$newfile =~ s/^[^-]+-//;
|
|
|
|
|
}
|
|
|
|
|
#-- does not convert from dashes to folders inside icon names
|
|
|
|
|
#if ($newfile =~ /-[^\.]/) {
|
|
|
|
|
# my $tmp = $newfile;
|
|
|
|
|
# $tmp =~ s/^([^-]+)-.*$/$1/;
|
|
|
|
|
# $dir = $dir . "/" . $tmp;
|
|
|
|
|
# $newfile =~ s/^[^-]+-//;
|
|
|
|
|
#}
|
|
|
|
|
|
|
|
|
|
if (!defined $directories{$dir}) {
|
|
|
|
|
$install .= "\t\$(mkinstalldirs) \$(DESTDIR)\$($destdir)/$dir\n";
|
|
|
|
|