-
-# multiple extensions now all dealt with together since i4j 8.0.1
-# 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;
-# }