OSDN Git Service

remove detail of lacking EPG data
authorlonginus <longinus@4e526526-5e11-4fc0-8910-f8fd03428081>
Wed, 8 Aug 2012 16:34:27 +0000 (16:34 +0000)
committerlonginus <longinus@4e526526-5e11-4fc0-8910-f8fd03428081>
Wed, 8 Aug 2012 16:34:27 +0000 (16:34 +0000)
epg update table now sorted

git-svn-id: svn+ssh://svn.sourceforge.jp/svnroot/rec10@944 4e526526-5e11-4fc0-8910-f8fd03428081

rectool/trunk/rectool.pl

index fa4a478..1b28e19 100755 (executable)
@@ -1783,6 +1783,7 @@ if ( $mode eq 'expert' ) {
        $HTML .= qq {<hr>\nRec10 バージョン:$rec10_version\nrectool バージョン:$rectool_version\n<br>\n};
 
 
+       if (0) {
        $HTML .= qq {<hr>\n番組表の欠落<br>\n};
        $ary_ref = $dbh->selectall_arrayref( "SELECT chname, chtxt FROM epg_ch" );
        foreach my $line ( @{$ary_ref} ) {
@@ -1805,13 +1806,14 @@ if ( $mode eq 'expert' ) {
                        $program_old = $program_new;
                }
                $HTML .= qq {<pre>\n$line->[0]\n$error</pre>\n} if ( $error );
-               }
+       }
+       }
 
 
        $ary_ref = $dbh->selectall_arrayref( 
                "SELECT chname, chtxt, bctype, ch, csch, tsid, updatetime, status, visible 
                FROM epg_ch 
-               ORDER BY bctype " );
+               ORDER BY chtxt " );
        $HTML .= qq {<hr>\n番組表の更新状況<br>\n};
        $HTML .= qq {<table summary="channeltable" border=1 cellspacing=0>\n<tr>\n};
        $HTML .= qq {<th>チャンネル名</th>\n};