-
- for my $ext (@extensions) {
- $i4jcount++;
- #print "COUNT: $i4jcount\n";
- my $progresspercent = int(($i4jcount/$num)*100);
- #print "PC: $progresspercent\n";
- $progresspercent = 100 if $progresspercent > 100;
- my $xext = xml_escape($ext);
- my $i4jextentry = $i4jentry;
- $i4jextentry =~ s/\$\$EXTENSION\$\$/$xext/g;
- $i4jextentry =~ s/\$\$PROGRESSPERCENT\$\$/$progresspercent/g;
- $i4jextentry =~ s/\$\$ID\$\$/$id/g;
- $id++;
- $i4jextentry =~ s/\$\$ID1\$\$/$id/g;
- $id++;
- $i4jextentry =~ s/\$\$ID2\$\$/$id/g;
- $id++;
-
- print IA $i4jextentry;
- }
+ $i4jentry =~ s/\$\$PRIMARY\$\$/$xprimarystring/g;
+ $i4jentry =~ s/\$\$MACASSOCIATIONROLE\$\$/$xROLE/g;
+
+ my $ext = join(",",sort(@extensions));
+ my $xdisplayext = xml_escape(join(", ", map(".$_",sort(@extensions))));
+ my $progresspercent = int(($i4jcount/$num)*100);
+ $progresspercent = 100 if $progresspercent > 100;
+ $i4jcount++;
+ my $xext = xml_escape($ext);
+ my $addunixextension = "true";
+
+ $i4jentry =~ s/\$\$ADDUNIXEXTENSION\$\$/$addunixextension/g;
+ $i4jentry =~ s/\$\$EXTENSION\$\$/$xext/g;
+ $i4jentry =~ s/\$\$DISPLAYEXTENSION\$\$/$xdisplayext/g;
+ $i4jentry =~ s/\$\$PROGRESSPERCENT\$\$/$progresspercent/g;
+ $i4jentry =~ s/\$\$ID\$\$/$id/g;
+ $id++;
+ $i4jentry =~ s/\$\$ID1\$\$/$id/g;
+ $id++;
+ $i4jentry =~ s/\$\$ID2\$\$/$id/g;
+ $id++;
+
+ print IA $i4jentry;