remove detail of lacking EPG data

epg update table now sorted

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

diff --git a/rectool/trunk/rectool.pl b/rectool/trunk/rectool.pl
index fa4a478..1b28e19 100755 (executable)
--- a/rectool/trunk/rectool.pl
+++ b/rectool/trunk/rectool.pl
@@ -1783,6 +1783,7 @@ if ( $mode eq 'expert' ) {
        $HTML .= qq {<hr>\nRec10 バージョン：$rec10_version\nrectool バージョン：$rectool_version\n<br>\n};
 
 
        $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} ) {
        $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 );
                        $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 
 
 
        $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};
        $HTML .= qq {<hr>\n番組表の更新状況<br>\n};
        $HTML .= qq {<table summary="channeltable" border=1 cellspacing=0>\n<tr>\n};
        $HTML .= qq {<th>チャンネル名</th>\n};