my $xshortname = xml_escape($shortname);
my $xiconfile = xml_escape($iconfile);
my $xrole = xml_escape($role);
+ my $xROLE = xml_escape(uc($role));
my $xprimarystring = xml_escape($primarystring);
my $macentry = $mactemplate;
$i4jentry =~ s/\$\$MIMETYPE\$\$/$xmimetype/g;
$i4jentry =~ s/\$\$ICONFILE\$\$/$xiconfile/g;
$i4jentry =~ s/\$\$PRIMARY\$\$/$xprimarystring/g;
+ $i4jentry =~ s/\$\$MACASSOCIATIONROLE\$\$/$xROLE/g;
my $ext = join(",",sort(@extensions));
my $xdisplayext = xml_escape(join(", ", map(".$_",sort(@extensions))));