Index: trunk/install/perl/updatem2pfiletable.pl
===================================================================
--- trunk/install/perl/updatem2pfiletable.pl (リビジョン 54)
+++ trunk/install/perl/updatem2pfiletable.pl (リビジョン 57)
@@ -28,4 +28,5 @@
 	 $dbh = DBI->connect($data_source,$DBUser,$DBPass) ||die $DBI::error;;
 
+$dbh->{AutoCommit} = 0;
 #　ひとまず消す
 $query =  "DELETE  FROM  foltia_m2pfiles  ";
@@ -36,11 +37,10 @@
 $file =~ s/$recfolderpath\///;
 $query =  "insert into  foltia_m2pfiles values ('$file')";
-	 $sth = $dbh->prepare($query);
-	$sth->execute();
+$oserr = $dbh->do($query);
 # print "$file\n";
 }#while
+$oserr = $dbh->commit;
 
 # foltia_mp4files
-
 #　ひとまず消す
 $query =  "DELETE  FROM  foltia_mp4files  ";
@@ -49,14 +49,8 @@
 
 @mp4filelist = `find ${recfolderpath}/ | grep MP4`;#by foltia dev ticket #5 http://www.dcc-jpl.com/foltia/ticket/5
-# find /home/foltia/php/tv/ | grep MP4
-
-#/home/foltia/php/tv/1057.localized/mp4/M4V-1057-14-20061016-2345.MP4
-#/home/foltia/php/tv/1057.localized/mp4/M4V-1057-15-20061023-2345.MP4
 
 foreach (@mp4filelist) {
 chomp();
 s/$recfolderpath\///;
-# 1057.localized/mp4/M4V-1057-14-20061016-2345.MP4
-# 1057.localized/mp4/M4V-1057-15-20061023-2345.MP4
 @fileline = split (/\//);
 $filetid = $fileline[0];
@@ -64,9 +58,9 @@
 
 $query =  "insert into  foltia_mp4files values ('$filetid','$fileline[2]')";
-	 $sth = $dbh->prepare($query);
-	$sth->execute();
-
+$oserr = $dbh->do($query);
 #print "$filetid;$fileline[2];$query\n"
 # http://www.atmarkit.co.jp/fnetwork/rensai/sql03/sql1.html
 
 }
+$oserr = $dbh->commit;
+