-
- my $unixext;
- for my $ext (sort @extensions) {
- if (not defined($unixext)) {
- $unixext = $ext;
- next;
- }
- if (length($ext) < length($unixext)) {
- $unixext = $ext;
- next;
- }
- }
-
- 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 $addunixextension = ($ext eq $unixext)?"true":"false";
-
- my $i4jextentry = $i4jentry;
- $i4jextentry =~ s/\$\$ADDUNIXEXTENSION\$\$/$addunixextension/g;
- $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;
+
+ 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;