#!/usr/bin/perl print "Content-type: text/html\n\n"; require './init_h.cgi'; #戻り先のCGI $script = "dtb1.cgi"; #一覧表示用XSLファイル切替CGI $script_xsl = "xsl_henko.cgi"; #==========メインルーチン========== &decode_f; if($FORM{'mark'} eq "mark"){ &mark_datain; ($FORM{'tensou'}, $FORM{'bunken'}) = split(/#/, $markin); } if($FORM{'mode'} eq "img"){ &img; } $datafile = $FORM{'tensou'}."\.xml"; &data; #タイトルの定義 $title = $FORM{'tensou'}; print ""; print ""; print "
";
if($zokusei[5] eq "4"){
print "";
$next = $n + 1;
if($next > $end-3){
$next = $next - 1;
print "owari";
print " | |
記事番号: $n
action : $FORM{'action'}
要素top: $FORM{'yoso_top'}
タイトル: $zokusei[0]
サブタイトル:$zokusei[1]
文献 : $zokusei[2]
人物 : $zokusei[3]
年月日 : $zokusei[4]
連続 : $zokusei[5]
画像 : $zokusei[6]
横サイズ: $zokusei[7]
移動: $zokusei[8]
リンク名: $zokusei[9]
リンク : $zokusei[10]
コメント: $zokusei[11]
ジャンプ: $zokusei[12]
テキスト: $text[$n]
要素end: $FORM{'yoso_end'}
EOL
}