Attachment #2335 for bug #2166

By default, Bugzilla does not search the list of RESOLVED bugs.
You can force it to do so by putting the upper-case word ALL in front of your search query, e.g.: ALL tdelibs
We recommend searching for bugs this way, as you may discover that your bug has already been resolved and fixed in a later release. View | Details | Raw Unified | Return to bug 2166
Collapse All | Expand All




            my $type = $prefix;
            $type =~ s/^.*-([^-]+)$/$1/;
            $prefix =~ s/^(.*)-[^-]+$/$1/;

            my %type_hash =
              (
               'action' => 'actions',
               'app' => 'apps',
               'category' => 'categories',
               'device' => 'devices',
               'filesys' => 'places',
               'mime' => 'mimetypes'

                print STDERR "unknown icon prefix $prefix in $printname\n";
                next;
            }

            my $dir = $dir_hash{$prefix} . "/" . $type_hash{$type};
            #-- does not convert from dashes do folders
            #if ($newfile =~ /-[^\.]/) {
            #    my $tmp = $newfile;
            #    $tmp =~ s/^([^-]+)-.*$/$1/;
            #    $dir = $dir . "/" . $tmp;
            #    $newfile =~ s/^[^-]+-//;
            #}

            if (!defined $directories{$dir}) {
                $install .= "\t\$(mkinstalldirs) \$(DESTDIR)\$($destdir)/$dir\n";
                $directories{$dir} = 1;

Return to bug 2166

Lines 1528-1538 sub tag_ICON() Link Here

(-)a/am_edit (-9 / +11 lines)
1528	my $type = $prefix;	1528	my $type = $prefix;
1529	$type =~ s/^.*-([^-]+)$/$1/;	1529	$type =~ s/^.*-([^-]+)$/$1/;
1530	$prefix =~ s/^(.*)-[^-]+$/$1/;	1530	$prefix =~ s/^(.*)-[^-]+$/$1/;
1531		1531
1532	my %type_hash =	1532	my %type_hash =
1533	(	1533	(
1534	'action' => 'actions',	1534	'action' => 'actions',
1535	'app' => 'apps',	1535	'app' => 'apps',
		1536	'category' => 'categories',
1536	'device' => 'devices',	1537	'device' => 'devices',
1537	'filesys' => 'places',	1538	'filesys' => 'places',
1538	'mime' => 'mimetypes'	1539	'mime' => 'mimetypes'
Lines 1580-1594 sub tag_ICON() Link Here
1580	print STDERR "unknown icon prefix $prefix in $printname\n";	1581	print STDERR "unknown icon prefix $prefix in $printname\n";
1581	next;	1582	next;
1582	}	1583	}
1583		1584
1584	my $dir = $dir_hash{$prefix} . "/" . $type_hash{$type};	1585	my $dir = $dir_hash{$prefix} . "/" . $type_hash{$type};
1585	if ($newfile =~ /-[^\.]/) {	1586	#-- does not convert from dashes do folders
1586	my $tmp = $newfile;	1587	#if ($newfile =~ /-[^\.]/) {
1587	$tmp =~ s/^([^-]+)-.*$/$1/;	1588	# my $tmp = $newfile;
1588	$dir = $dir . "/" . $tmp;	1589	# $tmp =~ s/^([^-]+)-.*$/$1/;
1589	$newfile =~ s/^[^-]+-//;	1590	# $dir = $dir . "/" . $tmp;
1590	}	1591	# $newfile =~ s/^[^-]+-//;
1591		1592	#}
		1593
1592	if (!defined $directories{$dir}) {	1594	if (!defined $directories{$dir}) {
1593	$install .= "\t\$(mkinstalldirs) \$(DESTDIR)\$($destdir)/$dir\n";	1595	$install .= "\t\$(mkinstalldirs) \$(DESTDIR)\$($destdir)/$dir\n";
1594	$directories{$dir} = 1;	1596	$directories{$dir} = 1;