Index: trunk/install/perl/xmltv2foltia.pl
===================================================================
--- trunk/install/perl/xmltv2foltia.pl (リビジョン 132)
+++ trunk/install/perl/xmltv2foltia.pl (リビジョン 134)
@@ -127,6 +127,13 @@
 	chomp();
 	$item{title}  = &removetag($_);
+	$titlebackup = $item{title};
 	$item{title} =~ s/【.*?】//g;#【解】とか
 	$item{title} =~ s/\[.*?\]//g;#[二]とか 
+#	$item{title} =~ s/【.??】//g;#【解】とか
+#	$item{title} =~ s/\[.??\]//g;#[二]とか 
+	if ($item{title} eq ""){
+		# WOWOWで<title lang="ja_JP">【無】</title>こんなミニ番組があり、タイトル空白になってしまうことがある
+		$item{title} = $titlebackup;
+	}
 	#print Dumper($_) ;
 	#print "$result  \n";
@@ -172,4 +179,6 @@
 	}elsif ($item{category} =~ /その他/){
 	$item{category} = "etc";
+	}else{
+	$item{category} = "etc";
 	}
 	
@@ -251,6 +260,8 @@
 
 #Encode::JP::H2Z::z2h(\$string);
-$title = jcode($title)->tr('Ａ-Ｚａ-ｚ０-９！＃＄％＆（）＊＋，−．／：；＜＝＞？＠［＼］＾＿｀｛｜｝','A-Za-z0-9!#$%&()*+,-./:;<=>?@[\]^_`{|}');
-$desc = jcode($desc)->tr('Ａ-Ｚａ-ｚ０-９！＃＄％＆（）＊＋，−．／：；＜＝＞？＠［＼］＾＿｀｛｜｝','A-Za-z0-9!#$%&()*+,-./:;<=>?@[\]^_`{|}');
+$title = jcode($title)->tr('Ａ-Ｚａ-ｚ０-９！＃＄％＆（）＊＋，−．／：；＜＝＞？＠［＼］＾＿｀｛｜｝　','A-Za-z0-9!#$%&()*+,-./:;<=>?@[\]^_`{|} ');
+$desc = jcode($desc)->tr('Ａ-Ｚａ-ｚ０-９！＃＄％＆（）＊＋，−．／：；＜＝＞？＠［＼］＾＿｀｛｜｝　','A-Za-z0-9!#$%&()*+,-./:;<=>?@[\]^_`{|} ');
+#$title = jcode($title)->tr('Ａ-Ｚａ-ｚ０-９！＃＄％＆（）＊＋，−．／：；＜＝＞？＠［＼］＾＿｀｛｜｝','A-Za-z0-9!#$%&()*+,-./:;<=>?@[\]^_`{|}');
+#$desc = jcode($desc)->tr('Ａ-Ｚａ-ｚ０-９！＃＄％＆（）＊＋，−．／：；＜＝＞？＠［＼］＾＿｀｛｜｝','A-Za-z0-9!#$%&()*+,-./:;<=>?@[\]^_`{|}');
 
 #&writelog("xmltv2foltia DEBUG $foltiastarttime:$foltiaendtime");