From 6977f530c9280258b675d10e23b59cb721946bf2 Mon Sep 17 00:00:00 2001
From: longinus <longinus@4e526526-5e11-4fc0-8910-f8fd03428081>
Date: Fri, 10 Aug 2012 08:39:18 +0000
Subject: [PATCH] category fix, EPG reget fix

git-svn-id: svn+ssh://svn.sourceforge.jp/svnroot/rec10@949 4e526526-5e11-4fc0-8910-f8fd03428081
---
 rectool/trunk/rectool.pl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/rectool/trunk/rectool.pl b/rectool/trunk/rectool.pl
index 93f7e8b..d3e9ae1 100755
--- a/rectool/trunk/rectool.pl
+++ b/rectool/trunk/rectool.pl
@@ -278,7 +278,9 @@ tie %category, 'Tie::IxHash';
 	'documentary' => { name => 'ドキュメンタリー・教養'  , color => '#0000ff' }, 
 	'stage'       => { name => '演劇'                    , color => '#8000ff' }, 
 	'hobby'       => { name => '趣味・実用'              , color => '#ff00ff' }, 
-	'etc'         => { name => 'その他'                  , color => '#ff0080' }, 
+	'welfare'     => { name => '福祉'                    , color => '#ff0080' }, 
+	'reserved'    => { name => '予備'                    , color => '#808080' }, 
+	'etc'         => { name => 'その他'                  , color => '#808080' }, 
 );
 
 ################ 初期化ここまで ################
@@ -1901,11 +1903,11 @@ if ( $mode eq 'expert' ) {
 	$HTML .= qq {<input type="hidden" name="mode_sub" value="reget">\n};
 	$HTML .= qq {<select name="bctype">\n};
 	$ary_ref = $dbh->selectall_arrayref(
-		"SELECT chname, bctype 
+		"SELECT DISTINCT bctype 
 		FROM epg_ch WHERE bctype NOT LIKE '_s%' "
 	);
 	foreach my $line ( @{$ary_ref} ) {
-		$HTML .= qq {<option value="$line->[1]">$line->[1]</option>\n};
+		$HTML .= qq {<option value="$line->[0]">$line->[0]</option>\n};
 	}
 	$HTML .= qq {<option value="bs">BS</option>\n};
 	$HTML .= qq {<option value="cs1">CS1</option>\n};
-- 
2.11.0