");
		}
$now = date("YmdHi");   
//タイトル取得
$query = "
SELECT 
foltia_subtitle.pid  , 
foltia_subtitle.stationid , 
foltia_subtitle.countno , 
foltia_subtitle.subtitle  ,
foltia_subtitle.startdatetime , 
foltia_subtitle.enddatetime ,
foltia_subtitle.lengthmin ,
foltia_station.stationname , 
foltia_station.stationrecch 
FROM foltia_subtitle , foltia_station 
WHERE foltia_subtitle.tid = 0 AND 
foltia_station.stationid = foltia_subtitle.stationid AND 
foltia_subtitle.pid = ? 
 ";
//	$rs = m_query($con, $query, "DBクエリに失敗しました");
	$rs = sql_query($con, $query, "DBクエリに失敗しました",array($pid));
$rowdata = $rs->fetch();
if (! $rowdate) {
		die_exit("登録番組がありません
");
		}
		$pid = htmlspecialchars($rowdata[0]);
		$stationid = htmlspecialchars($rowdata[1]);
		$countno = htmlspecialchars($rowdata[2]);
		$subtitle = htmlspecialchars($rowdata[3]);
		$starttime = htmlspecialchars($rowdata[4]);
		$startprinttime = htmlspecialchars(foldate2print($rowdata[4]));
		$endtime = htmlspecialchars($rowdata[5]);
		$endprinttime = htmlspecialchars(foldate2print($rowdata[5]));
		$lengthmin = htmlspecialchars($rowdata[6]);
		$stationjname = htmlspecialchars($rowdata[7]);
		$recch = htmlspecialchars($rowdata[8]);
$delflag = getgetnumform(delflag);
?>
  EPG予約解除
  
\n";
		
		//削除処理
		if (($demomode) || ($protectmode) ){
		//demomodeやprotectmodeならなにもしない
		}else{
		//キュー更新
//		$oserr = system("$toolpath/perl/addatq.pl 0 $stationid ");
		$oserr = system("$toolpath/perl/addpidatq.pl $pid ");
		//DB削除
		$query = "
		DELETE  
		FROM  foltia_subtitle  
		WHERE foltia_subtitle.pid = ? AND  foltia_subtitle.tid = 0 ";
//			$rs = m_query($con, $query, "DBクエリに失敗しました");
			$rs = sql_query($con, $query, "DBクエリに失敗しました",array($pid));
		}
	}else{
		print "過去番組は予約削除出来ません。";
	}//end if
}else{//delflagが1じゃなければ
	//時刻確認
	if ($now < $starttime ){
	print "EPG予約「".$subtitle."」の録画予約を解除します。 
\n";
	print "\n";
}
?>