Index: trunk/install/perl/updatem2pfiletable.pl
===================================================================
--- trunk/install/perl/updatem2pfiletable.pl (リビジョン 94)
+++ trunk/install/perl/updatem2pfiletable.pl (リビジョン 97)
@@ -31,5 +31,4 @@
 $sth = $dbh->prepare($stmt{'updatem2pfiletable.1'});
 	$sth->execute();
-
 while ($file = glob("$recfolderpath/*.m2?")) {
 $file =~ s/$recfolderpath\///;
@@ -38,4 +37,11 @@
 # print "$file\n";
 }#while
+while ($file = glob("$recfolderpath/*.aac")) {
+$file =~ s/$recfolderpath\///;
+    $sth = $dbh->prepare($stmt{'updatem2pfiletable.2'});
+    $sth->execute($file);
+# print "$file\n";
+}#while
+
 $oserr = $dbh->commit;