Index: trunk/install/perl/mklocalizeddir.pl
===================================================================
--- trunk/install/perl/mklocalizeddir.pl (リビジョン 1)
+++ trunk/install/perl/mklocalizeddir.pl (リビジョン 94)
@@ -16,9 +16,9 @@
 use DBI;
 use DBD::Pg;
-
+use DBD::SQLite;
 
 $path = $0;
 $path =~ s/mklocalizeddir.pl$//i;
-if ($pwd  ne "./"){
+if ($path ne "./"){
 push( @INC, "$path");
 }
@@ -43,12 +43,9 @@
 
 #接続
-	my $data_source = sprintf("dbi:%s:dbname=%s;host=%s;port=%d",
-		$DBDriv,$DBName,$DBHost,$DBPort);
-	 $dbh = DBI->connect($data_source,$DBUser,$DBPass) ||die $DBI::error;;
+    $dbh = DBI->connect($DSN,$DBUser,$DBPass) ||die $DBI::error;;
 
 #検索
-$DBQuery =  "select title from foltia_program where tid=$tid ";
-	 $sth = $dbh->prepare($DBQuery);
-	$sth->execute();
+    $sth = $dbh->prepare($stmt{'mklocalizeddir.1'});
+    $sth->execute($tid);
  @subticount= $sth->fetchrow_array;
 $title = $subticount[0] ;