#!/usr/local/bin/perl
BEGIN{$| = 1; 
#    print "Content-type: text/html\n\n";
    open(STDERR, ">&STDOUT"); }
# =============================================================
# 管理者用 新着情報
# create date:2008/04/16     writen By HOPS S.T
# modify 
# =============================================================
# インクルード
# =============================================================
use DBI;
require '../lib/jcode.pl';
require '../lib/util.pl';
require '../lib/dateget.pl';
require '../lib/suuti.pl';
require '../lib/db_set.pl';
require '../lib/kdisp.pl';
require '../lib/count.pl';
# ==============================================================
# グローバル変数
# ==============================================================
# フォームから送られるデータ格納用
&parseInput;

# 検索にヒットしたデータを格納する
my @data;

$sp = '　';
$script	= "$ENV{'SCRIPT_NAME'}";
my $kensu;  # ファイル件数
my $pre_kensu;

$T_img   = "../../imgcgi/new";
# ===================================================
# メインルーチン
# ===================================================
$db = DBI->connect("DBI:mysql:$db_name",$db_id, $db_pass) or die "MySQL接続エラー\n";
&date_get(time);
$mdate  = "$year-$month-$mday $hour:$min:$sec";
$mdate2 = "$year/$month/$mday";

#print "$FORM{'mode'}<br>\n";

if($FORM{'mode'} eq 'list')	{
	&disp_list;
}
elsif($FORM{'mode'} eq 'shosai')	{
	
	# 新着情報詳細TBL
	$sql = "SELECT * FROM m_news WHERE id=$FORM{'no'}";
	
	$sth = $db->prepare($sql);
	$result = $sth->execute;
	if($result eq ''){ 
   		&err("MySQL エラー1：読み込みに失敗しました。"); 
	}
		while((@data) = $sth->fetchrow_array){
       		$id    			  = $data[0];
       		$dcode			  = $data[1];
			$hdate  		  = jcode::sjis($data[2]);
			$title  		  = jcode::sjis($data[3]);
			$com     		  = jcode::sjis($data[4]);
			$temp1 			  = jcode::sjis($data[5]);
			$temp2   		  = jcode::sjis($data[6]);
			$reserve1	      = jcode::sjis($data[7]);
			$reserve2    	  = jcode::sjis($data[8]);
			$reserve3  		  = jcode::sjis($data[9]);
			$registday  	  = jcode::sjis($data[10]);
			$renewday   	  = jcode::sjis($data[11]);
			$layout		   	  = jcode::sjis($data[12]);
			$delflg  		  = jcode::sjis($data[13]);
    	}
		
		&disp_shosai;
	$sth->finish if($sth);
	
}
elsif($FORM{'mode'} eq 'gazo')	{
	
	# 新着情報詳細TBL
	$sql = "SELECT * FROM m_news_ctg WHERE id=$FORM{'no'}";
	
	$sth = $db->prepare($sql);
	$result = $sth->execute;
	if($result eq ''){ 
   		&err("MySQL エラー2：読み込みに失敗しました。"); 
	}
	$kensu = $sth->rows;
		while((@data) = $sth->fetchrow_array){
       		$id      = $data[0];
       		$title   = $data[1];
			$dsp_idx    = jcode::sjis($data[2]);
			$registday   = jcode::sjis($data[3]);
			$renewday   = jcode::sjis($data[4]);
			$delflg   = jcode::sjis($data[5]);
    	}
		&gazo;
	$sth->finish if($sth);
}
else	{
	&disp_menu;
}
$db->disconnect;
# =========================================================================
# サブルーチン
# -------------------------------------------------------------------------
# 新着情報の表示
# -------------------------------------------------------------------------
sub disp_menu{
$count = 0;

&header;
&title('','新着情報');
#if ($d_url ne "")	{
#	$url = "$d_url";
#}
#else	{
#	$url = "$script?mode=shosai&no=$d_id";
#}
print <<HTML;
<p class="sel_cat">新着コラム一覧</p>
HTML

$sql = "SELECT id,dcode,hdate,title,com,temp2 FROM m_news where delflg=0 ORDER BY id DESC";
	
	$sth = $db->prepare($sql);
	$result = $sth->execute;
	if($result eq ''){ 
   		&err("MySQL エラー：読み込みに失敗しました。"); 
	}
	$kensu = $sth->rows;
 	
	$i = 0;
 	while(($d_id,$d_dcode,$d_hdate,$d_title,$d_com,$temp2) = $sth->fetchrow_array){
		$d_title = jcode::sjis($d_title);
		
if ($d_url ne "")	{
	$url = "$d_url";
}
else	{
	$url = "$script?mode=shosai&no=$d_id";
}


if ($d_com) {
print <<HTML;

	<div class="shosai_header"></div>
	<div class="shosai_cont">
		<a href="$url">
			<p class="shosai_day">$d_hdate</p>
			<p class="shosai_honbun">$d_title<br>(カテゴリ:
HTML
	
	$sql1 = "SELECT id,title FROM m_news_ctg where delflg=0";
	$sth1 = $db->prepare($sql1);
	$result1 = $sth1->execute;
	if($result1 eq ''){ 
   		&err("MySQL エラー：読み込みに失敗しました。"); 
	}
	$kensu1 = $sth1->rows;
	
	while(($m_id,$m_title,) = $sth1->fetchrow_array){
		   $m_title = jcode::sjis($m_title);
		   
		   if ($d_dcode eq $m_id)	{
		   	print "$m_title";
		   }
	}
	$sth1->finish if($sth1);
	
print <<HTML;
			)</p>
		</a>
	</div>
	<div class="shosai_footer"></div>

HTML


}elsif($temp2){

print <<HTML;

	<div class="shosai_header"></div>
	<div class="shosai_cont">
		<a href="../../imgcgi/mhcc/$temp2">
			<p class="shosai_day">$d_hdate</p>
			<p class="shosai_honbun">$d_title<br>(カテゴリ:
HTML
	
	$sql1 = "SELECT id,title FROM m_news_ctg where delflg=0";
	$sth1 = $db->prepare($sql1);
	$result1 = $sth1->execute;
	if($result1 eq ''){ 
   		&err("MySQL エラー：読み込みに失敗しました。"); 
	}
	$kensu1 = $sth1->rows;
	
	while(($m_id,$m_title,) = $sth1->fetchrow_array){
		   $m_title = jcode::sjis($m_title);
		   
		   if ($d_dcode eq $m_id)	{
		   	print "$m_title";
		   }
	}
	$sth1->finish if($sth1);
	
print <<HTML;
			)</p>
		</a>
	</div>
	<div class="shosai_footer"></div>

HTML

}else{

print <<HTML;

	<div class="shosai_header"></div>
	<div class="shosai_cont">
		<a href="$url">
			<p class="shosai_day">$d_hdate</p>
			<p class="shosai_honbun">$d_title<br>(カテゴリ:
HTML
	
	$sql1 = "SELECT id,title FROM m_news_ctg where delflg=0";
	$sth1 = $db->prepare($sql1);
	$result1 = $sth1->execute;
	if($result1 eq ''){ 
   		&err("MySQL エラー：読み込みに失敗しました。"); 
	}
	$kensu1 = $sth1->rows;
	
	while(($m_id,$m_title,) = $sth1->fetchrow_array){
		   $m_title = jcode::sjis($m_title);
		   
		   if ($d_dcode eq $m_id)	{
		   	print "$m_title";
		   }
	}
	$sth1->finish if($sth1);
	
print <<HTML;
			)</p>
		</a>
	</div>
	<div class="shosai_footer"></div>
HTML

}

		$i++;
	}
	$sth->finish if($sth);
	
print <<HTML;
		</td>
		<td width="220" valign="top">
		<div  class="cate_title"><img src="../../new/images/cat_title.gif" width="70" height="19"></div>
HTML

$sql = "SELECT id,title FROM m_news_ctg where delflg=0";
	
	$sth = $db->prepare($sql);
	$result = $sth->execute;
	if($result eq ''){ 
   		&err("MySQL エラー：読み込みに失敗しました。"); 
	}
	$kensu = $sth->rows;
 	
	$i = 0;
 	while(($c_id,$c_title) = $sth->fetchrow_array){
		$c_title = jcode::sjis($c_title);
		
	if ($d_url ne "")	{
	$url = "$d_url";
}
else	{
	$url = "$script?mode=list&dno=$c_id";
}
		
print <<HTML;	
		<div class="cate_all">
		  <div class="cate"><a href="$url">$c_title</a></div>
		  </div>
HTML
		$i++;
	}
	$sth->finish if($sth);
	
&footer("../../index.html");

exit;
}
# -------------------------------------------------------------------------
# カテゴリごとに表示
# -------------------------------------------------------------------------
sub disp_list{
$count = 0;

&header;
&title('','新着情報');


$sql1 = "SELECT id,title FROM m_news_ctg where id=$FORM{'dno'}";
	$sth1 = $db->prepare($sql1);
	$result1 = $sth1->execute;
	if($result1 eq ''){ 
   		&err("MySQL エラー：読み込みに失敗しました。"); 
	}
	$kensu1 = $sth1->rows;
	
	while((@data) = $sth1->fetchrow_array){
       		$m_id      = $data[0];
       		$m_title   = jcode::sjis($data[1]);
    }
	
	$sth1->finish if($sth1);


print <<HTML;
<p class="sel_cat">$m_titleの新着コラム一覧</p>
HTML

$sql = "SELECT id,dcode,hdate,title,com,temp2 FROM m_news where dcode=$FORM{'dno'} and delflg=0";
	
	$sth = $db->prepare($sql);
	$result = $sth->execute;
	if($result eq ''){ 
   		&err("MySQL エラー：読み込みに失敗しました。"); 
	}
	$kensu = $sth->rows;
	
	$i = 0;
	while(($d_id,$d_dcode,$d_hdate,$d_title,$d_com,$temp2) = $sth->fetchrow_array){
		$d_title = jcode::sjis($d_title);
		
if ($d_url ne "")	{
	$url = "$d_url";
}
else	{
	$url = "$script?mode=shosai&no=$d_id";
}

if ($d_com) {
print <<HTML;

	<div class="shosai_header"></div>
	<div class="shosai_cont">
		<a href="$url">
			<p class="shosai_day">$d_hdate</p>
			<p class="shosai_honbun">$d_title<br>(カテゴリ:
HTML
	
	$sql1 = "SELECT id,title FROM m_news_ctg where delflg=0";
	$sth1 = $db->prepare($sql1);
	$result1 = $sth1->execute;
	if($result1 eq ''){ 
   		&err("MySQL エラー：読み込みに失敗しました。"); 
	}
	$kensu1 = $sth1->rows;
	
	while(($m_id,$m_title,) = $sth1->fetchrow_array){
		   $m_title = jcode::sjis($m_title);
		   
		   if ($d_dcode eq $m_id)	{
		   	print "$m_title";
		   }
	}
	$sth1->finish if($sth1);
	
print <<HTML;
			)</p>
		</a>
	</div>
	<div class="shosai_footer"></div>

HTML


}elsif($temp2){

print <<HTML;

	<div class="shosai_header"></div>
	<div class="shosai_cont">
		<a href="../../imgcgi/mhcc/$temp2">
			<p class="shosai_day">$d_hdate</p>
			<p class="shosai_honbun">$d_title<br>(カテゴリ:
HTML
	
	$sql1 = "SELECT id,title FROM m_news_ctg where delflg=0";
	$sth1 = $db->prepare($sql1);
	$result1 = $sth1->execute;
	if($result1 eq ''){ 
   		&err("MySQL エラー：読み込みに失敗しました。"); 
	}
	$kensu1 = $sth1->rows;
	
	while(($m_id,$m_title,) = $sth1->fetchrow_array){
		   $m_title = jcode::sjis($m_title);
		   
		   if ($d_dcode eq $m_id)	{
		   	print "$m_title";
		   }
	}
	$sth1->finish if($sth1);
	
print <<HTML;
			)</p>
		</a>
	</div>
	<div class="shosai_footer"></div>

HTML

}else{

print <<HTML;

	<div class="shosai_header"></div>
	<div class="shosai_cont">
		<a href="$url">
			<p class="shosai_day">$d_hdate</p>
			<p class="shosai_honbun">$d_title<br>(カテゴリ:
HTML
	
	$sql1 = "SELECT id,title FROM m_news_ctg where delflg=0";
	$sth1 = $db->prepare($sql1);
	$result1 = $sth1->execute;
	if($result1 eq ''){ 
   		&err("MySQL エラー：読み込みに失敗しました。"); 
	}
	$kensu1 = $sth1->rows;
	
	while(($m_id,$m_title,) = $sth1->fetchrow_array){
		   $m_title = jcode::sjis($m_title);
		   
		   if ($d_dcode eq $m_id)	{
		   	print "$m_title";
		   }
	}
	$sth1->finish if($sth1);
	
print <<HTML;
			)</p>
		</a>
	</div>
	<div class="shosai_footer"></div>
HTML

}

		$i++;
	}
	$sth->finish if($sth);
	
print <<HTML;
		</td>
		<td width="220" valign="top">
		<div  class="cate_title"><img src="../../new/images/cat_title.gif" width="70" height="19"></div>
		<div class="cate_all">
		  <div class="cate"><a href="$script?mode=menu">全てのカテゴリ</a></div>
		  </div>
HTML

$sql = "SELECT id,title FROM m_news_ctg where delflg=0";
	
	$sth = $db->prepare($sql);
	$result = $sth->execute;
	if($result eq ''){ 
   		&err("MySQL エラー：読み込みに失敗しました。"); 
	}
	$kensu = $sth->rows;
	
	$i = 0;
	while(($c_id,$c_title) = $sth->fetchrow_array){
		$c_title = jcode::sjis($c_title);
		
	if ($d_url ne "")	{
	$url = "$d_url";
}
else	{
	$url = "$script?mode=list&dno=$c_id";
}
		
print <<HTML;	
		<div class="cate_all">
		  <div class="cate"><a href="$url">$c_title</a></div>
		  </div>
HTML
		$i++;
	}
	$sth->finish if($sth);
	
&footer("../../index.html");

return;
}
# ---------------------------------------------------------------------
# 詳細画面
#----------------------------------------------------------------------
sub disp_shosai {
$count = 0;

&header;
&title('','新着情報');

		
print "<br>\n";


if($temp2){
	
	print <<HTML;
	
	<!-- コラム本文 -->
	<div class="daily_title"><p class="day">$hdate</p>$title</div>
	<div class="daily_cont">
	<table class="daily_honbun">
		<tr>
			<td colspan="2" class="img">$com<br><br>
			<a href="../../imgcgi/mhcc/$temp2">＜PDFはこちら＞</a></td>
		</tr>
	</table>
	</div>
	<!-- コラム end -->
	
HTML
	
	}
elsif( $temp1 and $layout == 1 ){
	
	print <<HTML;
	
	<!-- コラム本文 -->
	<div class="daily_title"><p class="day">$hdate</p>$title</div>
	<div class="daily_cont">
	<table class="daily_honbun">
		<tr>
			<td class="main">$com</td>
			<td class="img"><img src="../../imgcgi/mhcc/$temp1"></td>
		</tr>
	</table>
	</div>
	<!-- コラム end -->
	
HTML
	
	}
elsif( $temp1 and $layout == 2 ){
	
	print <<HTML;
	
	<!-- コラム本文 -->
	<div class="daily_title"><p class="day">$hdate</p>$title</div>
	<div class="daily_cont">
	<table class="daily_honbun">
		<tr>
			<td class="img"><img src="../../imgcgi/mhcc/$temp1"></td>
			<td>$com</td>
		</tr>
	</table>
	</div>
	<!-- コラム end -->
	
HTML
	
	}
elsif( $temp1 and $layout == 3 ){
	
	print <<HTML;
	
	<!-- コラム本文 -->
	<div class="daily_title"><p class="day">$hdate</p>$title</div>
	<div class="daily_cont">
	<table class="daily_honbun">
		<tr>
			<td>$com</td>
		</tr>
		<tr>
			<td align="center" class="img"><img src="../../imgcgi/mhcc/$temp1"></td>
		</tr>
	</table>
	</div>
	<!-- コラム end -->
	
HTML
	
	}
else {
	
	print <<HTML;
	<!-- コラム本文 -->
			<div class="daily_title">
		<p class="day">$hdate</p>
		$title</div>
		<div class="daily_cont">
			<p class="daily_honbun">$com</p>
		</div>
	<!-- コラム end -->
HTML
	
	}
	
print <<HTML;
		<div class="daily_footer"><a href="$script?mode=menu">新着コラム一覧に戻る</a></div></div>
		</td>
		<td width="220" valign="top">
		<div  class="cate_title"><img src="../../new/images/cat_title.gif" width="70" height="19"></div>
		<div class="cate_all">
		  <div class="cate"><a href="$script?mode=menu">全てのカテゴリ</a></div>
		  </div>
HTML

$sql = "SELECT id,title FROM m_news_ctg where delflg=0";
	
	$sth = $db->prepare($sql);
	$result = $sth->execute;
	if($result eq ''){ 
   		&err("MySQL エラー：読み込みに失敗しました。"); 
	}
	$kensu = $sth->rows;
	
	$i = 0;
	while(($c_id,$c_title) = $sth->fetchrow_array){
		$c_title = jcode::sjis($c_title);
#		
#	if ($d_url ne "")	{
#	$url = "$d_url";
#}
#else	{
#	$url = "$script?mode=list&no=$d_id";
#}
		
print <<HTML;	
		<div class="cate_all">
		  <div class="cate"><a href="$script?mode=list&dno=$c_id">$c_title</a></div>
		  </div>
HTML
		$i++;
	}
	$sth->finish if($sth);	
&footer("../../index.html");
#}
exit;
}

# -------------------------------------------------------------------------
# 高精細画像
# -------------------------------------------------------------------------
sub gazo {
	
&header;
&title("","$name");
#print "高精細画像";

if (($agent_name eq $jphone)or($agent_name eq $vodafone)) { 
		print "<CENTER><br><img src=\"$T_img/$temp1\"><br></CENTER>\n";
	}
	else	{
		print "<CENTER><br><img src=\"$T_img/$temp2\"><br></CENTER>\n";
	}

&footer2("$script?mode=shosai&no=$id");

exit;
}
# -------------------------------------------------------------------------
# エラー情報を出力
# -------------------------------------------------------------------------
sub err {
	
&header;
&title("往診クリニック");

print <<HTML;
<br><font color="#FF6600">$_[0]</font><br>
<br>
<FORM ACTION=$script METHOD="POST">
<INPUT TYPE=hidden NAME="no" VALUE="$FORM{'no'}">
<INPUT NAME="mode" TYPE="hidden"VALUE="$FORM{'mode'}">
<INPUT type="submit" value="戻る">
</FORM>
HTML

&footer("$script");

exit;
}