+ $HTML .= qq {<input type="submit" value="更新" accesskey="r">\n</div>\n</form>\n};
+}
+
+sub draw_form_channel {
+ $HTML .= qq {<select name="chtxt">\n};
+ $HTML .= qq {<option value="" selected>無指定</option>\n} if ( shift ne 'nonone' );
+ $ary_ref = $dbh->selectall_arrayref(
+ "SELECT chtxt, chname FROM epg_ch"
+ );
+ foreach my $line ( @{$ary_ref} ) {
+ if ( $line->[0] eq $chtxt || $line->[1] eq $chname ) {
+ $HTML .= qq {<option value="$line->[0]" selected>$line->[1]</option>\n};
+ }
+ else {
+ $HTML .= qq {<option value="$line->[0]">$line->[1]</option>\n};
+ }
+ }
+ $HTML .= qq {</select>\n};
+}
+
+sub draw_form_opt {
+ my $shift = shift;
+ my ( %selected, %checked );
+
+ if ( $chtxt =~ /\Qbs-nhk-hi\E/ ) {
+ $selected{F} = 'selected';
+ }
+ elsif ( $chtxt =~ /movieplus|nihoneiga/ ) {
+ $selected{G} = 'selected';
+ }
+ elsif ( $chtxt =~ /bs-nhk/ || $bctype =~ /cs/ ) {
+ $selected{L} = 'selected';
+ }
+ elsif ( $bctype =~ /bs|te/ ) {
+ $selected{G} = 'selected';
+ }
+ $checked{a} = $chtxt =~ /animax|atx|disney|kids/ || $category =~ /アニメ/ ? 'checked' : '';
+ $checked{l} = '';
+ $checked{d} = $title =~ /\Q[二]\E|[二]|\Q(二)\E|(二)/ ? 'checked' : '';
+ $checked{5} = $title =~ /5\.1|5.1/ ? 'checked' : '';
+ $checked{2} = 'checked';
+
+ if ( $opt ) {
+ my @opt = split //, $opt;
+ foreach my $opt ( @opt ) {
+ $selected{$opt} = 'selected' if ( $opt =~ /S|L|G|H|F/ );
+ $checked {$opt} = 'checked' if ( $opt =~ /a|h|l|d|2|5/ );
+ }
+ }
+
+ $HTML .= qq {<select name="opt">\n};
+ $HTML .= qq {<option value="S" $selected{S}>S 720x480 1250kbps</option>\n};
+ $HTML .= qq {<option value="L" $selected{L}>L ***x*** 1250kbps</option>\n};
+ $HTML .= qq {<option value="G" $selected{G}>G 1280x720 2500kbps</option>\n};
+ $HTML .= qq {<option value="H" $selected{H}>H 1280x720 3750kbps</option>\n};
+ $HTML .= qq {<option value="F" $selected{F}>F 1920x1080 5000kbps</option>\n};
+ $HTML .= qq {</select>\n};
+ $HTML .= qq {<input type="checkbox" name="opt" value="a" $checked{a}>アニメ\n};
+ $HTML .= qq {<input type="checkbox" name="opt" value="l" $checked{l}>速度優先\n};
+ $HTML .= qq {<input type="checkbox" name="opt" value="h" $checked{h}>画質優先\n};
+ $HTML .= qq {<input type="checkbox" name="opt" value="d" $checked{d}>二ヶ国語放送\n};
+ $HTML .= qq {<input type="checkbox" name="opt" value="2" $checked{2}>2passモード\n};
+ $HTML .= qq {<input type="checkbox" name="opt" value="5" $checked{5}>5.1ch放送\n};
+ $HTML .= qq {<br>\n};
+ $HTML .= qq {<select name="opt">\n};
+ $HTML .= qq {<option value="">移動なし</option>\n};
+ $HTML .= qq {<option value="R">録画後移動</option>\n};
+ $HTML .= qq {<option value="D">解読後移動</option>\n};
+ $HTML .= qq {<option value="E">縁故後移動</option>\n};
+ $HTML .= qq {</select>\n};
+ $HTML .= qq {<input type="checkbox" name="opt" value="N">ファイル名日時追加\n} if ( $shift eq 'reserve' );
+ $HTML .= qq {<input type="checkbox" name="every" value="1">隔週録画\n} if ( $shift eq 'reserve' );