#!/usr/bin/perl
#print "Content-type: text/html\n\n";
#print "<html><head></head><body>ok<br>\n\n";
#print "</body></html>\n\n";
#exit;
#use utf8;
use Jcode;
use Encode qw(decode);

use CGI qw(:standard);
$AREA = param('BASHO');
$SHORI = param('SHORI');
$DBF = 'dat/shopdata2.csv';
$TICKETDBF = 'dat/ticket.csv';
$MCOUNT = 10;#モーダルの数字カウント用
$AREA = param('BASHO');

	if (!open(IN,"$TICKETDBF")){ &error('Can not open the data file','no information.'); }
	@TICKET = <IN>;
	close (IN);
	
	if (!open(IN,"$DBF")){ &error('Can not open the data file','no information.'); }
	@OMISE = <IN>;
	close (IN);


#全部のデータを回す
if ( $AREA ne '' ){
	foreach $DATA (@OMISE){
	($CODE,$KAI,$TENMEI,$BUNRUI,$TELEPHONE,$JIKAN1,$JIKAN2,$JIKAN3,$JIKAN4,$YASUMI1,$YASUMI2,$TAISAKU1,$TAISAKU2,$TAISAKU3,$TAISAKU4,$TAISAKU5,$TAISAKU6,$TAISAKU7,$TAISAKU8,$TAISAKU9,$TAISAKU10,$TAISAKU11,$TAISAKU12,$TAISAKU13,$TAISAKU14,$TAISAKU15,$TAISAKU16,$TAISAKU17,$SONOTA,$SETSUMEI,$SHOPURL,$MOSURL,$MAPURL,$DELIAREA,$ACCDATA,$TOURL,$YOBI,$KOUSHIN,$TES,$EN) = split(/\,/,$DATA);
			if ( $KAI eq $AREA ){ push(@OMISE2,$DATA); }
	}#foreachの終わり

	@OMISE = @OMISE2;
}#AREAの終わり

#全データまたは抽出されたデータを回す
foreach $DATA (@OMISE){
	$CHECK = '';#対策店のフラグは毎回からにする
	$VIEW = '';#表示用に作ったデータを消す
	$HP = '';	
	$MAP = '';	
	$SONOTA = '';
	$SETSUMEI = '';
	$ACCDATA = '';
	$TAISAKU17 = '';

	($CODE,$KAI,$TENMEI,$BUNRUI,$TELEPHONE,$JIKAN1,$JIKAN2,$JIKAN3,$JIKAN4,$YASUMI1,$YASUMI2,$TAISAKU1,$TAISAKU2,$TAISAKU3,$TAISAKU4,$TAISAKU5,$TAISAKU6,$TAISAKU7,$TAISAKU8,$TAISAKU9,$TAISAKU10,$TAISAKU11,$TAISAKU12,$TAISAKU13,$TAISAKU14,$TAISAKU15,$TAISAKU16,$TAISAKU17,$SONOTA,$SETSUMEI,$SHOPURL,$MOSURL,$MAPURL,$DELIAREA,$ACCDATA,$TOURL,$CKEN,$KOUSHIN,$TES,$YOBI,$YOBI,$YOBI,$YOBI,$YOBI,$EN) = split(/\,/,$DATA);

#クーポンを発行している場合は対策店として取り扱う
#foreach $TDATA (@TICKET){ 
#	($TICKETNUM,$TCODE,$TKAI,$TTENMEI,$TBUNRUI,$TTELEPHONE,$TTICKETNAME,$THAIKEI,$TLIMSYEAR,$TLIMSMON,$TLIMSDAY,$TLIMEYEAR,$TLIMEMON,$TLIMEDAY,$TNAIYO,$TYOYAKU,$J1,$J2,$J3,$J4,$J5,$J5A,$J6,$J6A,$J7,$J8,$J9,$J10,$TCHIZU,$TURL,$TYOBI,$YOBI,$YOBI,$YOBI,$EN) = split(/\,/,$TDATA);
#		if ( $CODE eq $TCODE ){ $TAISAKU17 = 'on'; }
#}#foreac:TICKETの終わり

#加盟商店会の表示用
if ( $KAI eq '1' ){ $KAIDATA = "<img src=\"img/onsenba-logo.png\" alt=\"温泉場商店会\" width=\"40%\" height=\"40%\" />"; $BGCOLOR = '#ffe6e6'; }
if ( $KAI eq '2' ){ $KAIDATA = "<img src=\"img/meitengai-logo.png\" alt=\"湯河原駅前通り 明店街\" width=\"40%\" height=\"40%\" />"; $BGCOLOR = '#ffdd66'; }
if ( $KAI eq '3' ){ $KAIDATA = "<img src=\"img/sansan-logo.png\" alt=\"サンサン通り会\" width=\"40%\" height=\"40%\" />"; $BGCOLOR = '#e6e6ff'; }
if ( $KAI eq '4' ){ $KAIDATA = "<img src=\"img/chuo-logo.png\" alt=\"中央商店会\" width=\"40%\" height=\"40%\" />"; $BGCOLOR = '#99eeee'; }

#対策を表示用にするのと格付け
if ( $TAISAKU1 eq 'on' ){ $TAISAKUDATA1 = "<img src=\"img/ken.jpg\" alt=\"神奈川県感染症対策取組書対応店\" title=\"神奈川県感染症対策取組書対応店\" width=\"32%\" />"; $CHECK = 'A'; }else{$TAISAKUDATA1 = ''; }#県の登録有無
if ( $TAISAKU2 eq 'on' ){ $TAISAKUDATA2 = "<img src=\"img/arc.jpg\" alt=\"消毒液設置店\" title=\"消毒液設置店\" width=\"32%\" />"; if ( $CHECK eq '' ){ $CHECK = 'B'; } }else{$TAISAKUDATA2 = ''; }#消毒液設置
if ( $TAISAKU3 eq 'on' ){ $TAISAKUDATA3 = "<img src=\"img/mask.jpg\" alt=\"マスク着用店\" title=\"マスク着用店\" width=\"32%\" />"; if ( $CHECK eq '' ){ $CHECK = 'B'; } }else{$TAISAKUDATA3 = ''; }#マスク着用
if ( $TAISAKU4 eq 'on' ){ $TAISAKUDATA4 = "<img src=\"img/kanki.jpg\" alt=\"換気を行っているお店\" title=\"換気を行っているお店\" width=\"32%\" />"; if ( $CHECK eq '' ){ $CHECK = 'B'; } }else{$TAISAKUDATA4 = ''; }#換気
if ( $TAISAKU5 eq 'on' ){ $TAISAKUDATA5 = "<img src=\"img/sheet.jpg\" alt=\"飛沫防止シート設置店\" title=\"飛沫防止シート設置店\" width=\"32%\" />"; if ( $CHECK eq '' ){ $CHECK = 'B'; } }else{$TAISAKUDATA5 = ''; }#飛沫防止
if ( $TAISAKU6 eq 'on' ){ $TAISAKUDATA6 = "<img src=\"img/clean.jpg\" alt=\"店内消毒実施店\" title=\"店内消毒実施店\" width=\"32%\" />"; if ( $CHECK eq '' ){ $CHECK = 'B'; } }else{$TAISAKUDATA6 = ''; }#店内消毒
if ( $TAISAKU7 eq 'on' ){ $TAISAKUDATA7 = "<img src=\"img/fever.jpg\" alt=\"発熱時入場制限実施店\" title=\"発熱時入場制限実施店\" width=\"32%\" />"; if ( $CHECK eq '' ){ $CHECK = 'B'; } }else{$TAISAKUDATA7 = ''; }#発熱
if ( $TAISAKU8 eq 'on' ){ $TAISAKUDATA8 = "<img src=\"img/sd.jpg\" alt=\"ソーシャルディスタンス確保店\" title=\"ソーシャルディスタンス確保店\" width=\"32%\" />"; if ( $CHECK eq '' ){ $CHECK = 'B'; } }else{$TAISAKUDATA8 = ''; }#ソーシャル
if ( $TAISAKU9 eq 'on' ){ $TAISAKUDATA9 = "<img src=\"img/cashless.jpg\" alt=\"キャッシュレス導入店\" title=\"キャッシュレス導入店\" width=\"32%\" />"; if ( $CHECK eq '' ){ $CHECK = 'B'; } }else{$TAISAKUDATA9 = ''; }#キャッシュレス
if ( $TAISAKU10 eq 'on' ){ $TAISAKUDATA10 = "<img src=\"img/coin.jpg\" alt=\"支払時コイントレイ使用店\" title=\"支払時コイントレイ使用店\" width=\"32%\" />"; if ( $CHECK eq '' ){ $CHECK = 'B'; } }else{$TAISAKUDATA10 = ''; }#コイントリ
if ( $TAISAKU11 eq 'on' ){ $TAISAKUDATA11 = "<img src=\"img/mos.jpg\" alt=\"WEB通販実施店\" title=\"WEB通販実施店\" width=\"32%\" />"; if ( $CHECK eq '' ){ $CHECK = 'B'; } }else{$TAISAKUDATA11 = ''; }#web通販
if ( $TAISAKU12 eq 'on' ){ $TAISAKUDATA12 = "<img src=\"img/tos.jpg\" alt=\"電話受注通販実施店\" title=\"電話受注通販実施店\" width=\"32%\" />"; if ( $CHECK eq '' ){ $CHECK = 'B'; } }else{$TAISAKUDATA12 = ''; }#電話通販
if ( $TAISAKU13 eq 'on' ){ $TAISAKUDATA13 = "<img src=\"img/deli.jpg\" alt=\"配達行っています\" title=\"配達行っています\" width=\"32%\" />"; if ( $CHECK eq '' ){ $CHECK = 'B'; } }else{$TAISAKUDATA13 = ''; }#配達
if ( $TAISAKU14 eq 'on' ){ $TAISAKUDATA14 = "<img src=\"img/takeout.jpg\" alt=\"テイクアウトやっています\" title=\"テイクアウトやっています\" width=\"32%\" />"; if ( $CHECK eq '' ){ $CHECK = 'B'; } }else{$TAISAKUDATA14 = ''; }#テイクアウト
if ( $TAISAKU15 eq 'on' ){ $TAISAKUDATA15 = "<img src=\"img/close.jpg\" alt=\"店舗は閉めております\" title=\"店舗は閉めております\" width=\"32%\" />"; if ( $CHECK eq '' ){ $CHECK = 'B'; } }else{$TAISAKUDATA15 = ''; }#店舗クローズ
if ( $TAISAKU16 eq 'on' ){ $TAISAKUDATA16 = "<img src=\"img/tel.jpg\" alt=\"店舗は閉めておりますがお電話にてご注文を受けております\" title=\"店舗は閉めておりますがお電話にてご注文を受けております\" width=\"32%\" />"; if ( $CHECK eq '' ){ $CHECK = 'B'; } }else{$TAISAKUDATA16 = ''; }#電話注文
if ( $TAISAKU17 eq 'on' ){ $TAISAKUDATA17 = "<a href=\"cgi/ticket.cgi?SHOPCODE=$CODE\"><img src=\"img/waribiki.jpg\" alt=\"クーポン券発行中\" width=\"32%\" /></a>"; }#クーポンの発行
if ( $CKEN eq 'on' ){ $CKENDATA = "<img src=\"img/cken.jpg\" alt=\"地域商品券取り扱い店\" title=\"地域商品券取り扱い店\" width=\"32%\" />"; }else{$CKENDATA = ''; }
#if ( $TAISAKU eq 'on' ){ $TAISAKUDATA = "<img src=\"img/.jpg\" alt=\"\" title=\"\" width=\"20%\" />"; }else{$TAISAKU = ''; }

#その他の対策をしている場合も対策店にする
if ( $SONOTA ne '' and $CHECK eq '' ){ $CHECK = 'B'; }

#説明が長いときは途中で切って、続きはモーダルにする
#$SETSUMEI2 = $SETSUMEI;
#$MOJISU = length(decode('utf-8',$SETSUMEI2));
#if ( $MOJISU > 50 ){ &modalmake; }

#対策アイコンにアンカーを仕込む。
if ( $TAISAKU12 eq 'on' and $TELEPHONE ne '' ){ $TELEPHONE = '0'."$TELEPHONE"; $TAISAKUDATA12 = "<a href=\"tel:$TELEPHONE\">$TAISAKUDATA12</a>"; }
if ( $TAISAKU16 eq 'on' and $TELEPHONE ne '' ){ $TELEPHONE = '0'."$TELEPHONE"; $TAISAKUDATA16 = "<a href=\"tel:$TELEPHONE\">$TAISAKUDATA16</a>"; }
if ( $TAISAKU11 eq 'on' and $MOSURL ne '' ){ $TAISAKUDATA11 = "<a href=\"$MOSURL\" target=\"_blank\">$TAISAKUDATA11</a>"; }
if ( $TAISAKU14 eq 'on' and $TOURL ne '' ){ $TAISAKUDATA14 = "<a href=\"$TOURL\" target=\"_blank\">$TAISAKUDATA14</a>"; }

#改行空白関係（２行にするか１行か）
if ( $YASUMI1 eq '' and $YASUMI2 ne '' ){ $YASUMI1 = $YASUMI2; $YASUMI2 = ''; }
if ( $YASUMI1 ne '' and $YASUMI2 ne '' ){ $YASUMIVIEW = "$YASUMI1（$YASUMI2）"; }else{ $YASUMIVIEW = "$YASUMI1"; }
if ( $YASUMIVIEW eq '' ){ $YASUMIVIEW = 'お問い合わせください'; }

if ( $JIKAN1 eq '' and $JIKAN3 ne '' ){ $JIKAN1 = $JIKAN3; $JIKAN2 = $JIKAN4;  $JIKAN3 = ''; $JIKAN4 = ''; }
if ( $JIKAN1 ne '' and $JIKAN3 ne '' ){ $JIKANVIEW = "$JIKAN1 ー $JIKAN2<br />$JIKAN3 ー $JIKAN4"; }else{ $JIKANVIEW = "$JIKAN1 ー $JIKAN2"; }

if ( $TAISAKU13 eq 'on' ){
	if ( $DELIAREA ne '' ){ $DELIMES = "配達エリア：$DELIAREA <br />"; }else{ $DELIMES = "配達エリアは問合せ下さい <br />"; }
}
if ( $SETSUMEI ne '' ){ $SETSUMEI = "<strong>店舗コメント：</strong>$SETSUMEI"; }

#ＵＲＬがある場合の表示用
if ( $SHOPURL ne '' ){ $HP = "<a href=\"$SHOPURL\" class=\"btn btn-info\" target=\"_blank\">WEB</a>"; }
if ( $MAPURL ne '' ){ &modalmake; }


if ( $CHECK eq '' ){ #県の登録無しで対策も無し
	
	$VIEW = "
		<div class=\"col-xl-4 col-md-6\">
		<div class=\"card\" style=\"margin-top:10px;\">
		<img src=\"./img/cl.png\" width=\"100%\">
		<div style=\"background-color:$BGCOLOR;padding:0.5rem;\">$TENMEI</div>
		</div>
		</div>
	";
		if ( $BUNRUI eq '1' ){ push(@CNOTOFF1,$VIEW); }#食品
		if ( $BUNRUI eq '2' ){ push(@CNOTOFF2,$VIEW); }#飲食
		if ( $BUNRUI eq '3' ){ push(@CNOTOFF3,$VIEW); }#暮らし
		if ( $BUNRUI eq '4' ){ push(@CNOTOFF4,$VIEW); }#装い
		if ( $BUNRUI eq '5' ){ push(@CNOTOFF5,$VIEW); }#癒やし
		if ( $BUNRUI eq '6' ){ push(@CNOTOFF6,$VIEW); }#その他
		
		$KENOFFCOUNT[$BUNRUI]++;
		
}



if ( $CHECK eq 'B' ){ #県の登録無しで対策はあり

	&jikankoushin; #更新時間を最新にする

	$VIEW = "
		<div class=\"col-xl-4 col-md-6\">
		<div class=\"card\">
			$KAIDATA
			<div class=\"card-body\">
				<strong>$TENMEI</strong>
				<br />
				定休日：$YASUMIVIEW
				<br />
				営業時間：$JIKANVIEW
				<br />
				$ACCDATA
				<br />
				<hr />
				$TAISAKUDATA1
				$TAISAKUDATA2
				$TAISAKUDATA3
				$TAISAKUDATA4
				$TAISAKUDATA5
				$TAISAKUDATA6
				$TAISAKUDATA7
				$TAISAKUDATA8
				$TAISAKUDATA9
				$TAISAKUDATA10
				$TAISAKUDATA11
				$TAISAKUDATA12
				$TAISAKUDATA13
				$TAISAKUDATA14
				$TAISAKUDATA15
				$TAISAKUDATA16
				$TAISAKUDATA17
$CKENDATA
				<br />
				$DELIMES
					<div style=\"color:#008888;\">
						$SONOTA
					</div>
					<div>
						$SETSUMEI
					</div>
					<hr />
				$HP
				$MAP
			</div>
		</div>
		</div>
	"; 

		if ( $BUNRUI eq '1' ){ push(@CONTYES1,$VIEW); }
		if ( $BUNRUI eq '2' ){ push(@CONTYES2,$VIEW); }
		if ( $BUNRUI eq '3' ){ push(@CONTYES3,$VIEW); }
		if ( $BUNRUI eq '4' ){ push(@CONTYES4,$VIEW); }
		if ( $BUNRUI eq '5' ){ push(@CONTYES5,$VIEW); }
		if ( $BUNRUI eq '6' ){ push(@CONTYES6,$VIEW); }

		$BUNRUICOUNT[$BUNRUI]++;
}#check=B

if ( $CHECK eq 'A' ){ #県の登録無しで対策はあり

	&jikankoushin; #更新時間を最新にする

	$VIEW = "
		<div class=\"col-xl-4 col-md-6 pb-3\">
		<div class=\"card\">
			$KAIDATA
			<div class=\"card-body\">
				<strong>$TENMEI</strong>
				<br />
				定休日：$YASUMIVIEW
				<br />
				営業時間：$JIKANVIEW
				<br />
				$ACCDATA
				<br />
				<hr />
				$TAISAKUDATA1
				$TAISAKUDATA2
				$TAISAKUDATA3
				$TAISAKUDATA4
				$TAISAKUDATA5
				$TAISAKUDATA6
				$TAISAKUDATA7
				$TAISAKUDATA8
				$TAISAKUDATA9
				$TAISAKUDATA10
				$TAISAKUDATA11
				$TAISAKUDATA12
				$TAISAKUDATA13
				$TAISAKUDATA14
				$TAISAKUDATA15
				$TAISAKUDATA16
				$TAISAKUDATA17
$CKENDATA
				<br />
				$DELIMES
					<div style='color:#008888;'>
						$SONOTA
					</div>
					<div>
						$SETSUMEI
					</div>
					<hr />
				$HP
				$MAP
			</div>
		</div>
		</div>
";

		if ( $BUNRUI eq '1' ){ push(@KONTYES1,$VIEW); }
		if ( $BUNRUI eq '2' ){ push(@KONTYES2,$VIEW); }
		if ( $BUNRUI eq '3' ){ push(@KONTYES3,$VIEW); }
		if ( $BUNRUI eq '4' ){ push(@KONTYES4,$VIEW); }
		if ( $BUNRUI eq '5' ){ push(@KONTYES5,$VIEW); }
		if ( $BUNRUI eq '6' ){ push(@KONTYES6,$VIEW); }

		$BUNRUICOUNT[$BUNRUI]++;;
}#check=A

}#foreachの終わり


#振り分けととりあえずのデータ化はここまで、ここから表示について考える

@CONTYES1 = "@KONTYES1" . "@CONTYES1";
@CONTYES2 = "@KONTYES2" . "@CONTYES2";
@CONTYES3 = "@KONTYES3" . "@CONTYES3";
@CONTYES4 = "@KONTYES4" . "@CONTYES4";
@CONTYES5 = "@KONTYES5" . "@CONTYES5";
@CONTYES6 = "@KONTYES6" . "@CONTYES6";



&htmlatama;
#分類１について
$XYZ = 1;
#まず対策店と申し込み店
while ( $XYZ < 7 ){

if ( $BUNRUICOUNT[$XYZ] ne '' ){
#最後に追加する空白の数を計算
$AMARI = $BUNRUICOUNT[$XYZ] % 3;#最後に追加する空白の数を計算
if ( $AMARI == 0 ){ $TUIKA = ''; }
if ( $AMARI == 1 ){ $TUIKA = "<div class=\"col-xl-4 col-md-6\"><img src=\"./img/cl.png\" width=\"100%\"></div><div class=\"col-xl-4 col-md-6\"><img src=\"./img/cl.png\" width=\"100%\"></div>"; }
if ( $AMARI == 2 ){ $TUIKA = "<div class=\"col-xl-4 col-md-6\"><img src=\"./img/cl.png\" width=\"100%\"></div>"; }
}
if ( $KENOFFCOUNT[$XYZ] ne '' ){
#最後に追加する空白の数を計算
$AMARI = $KENOFFCOUNT[$XYZ] % 3;#最後に追加する空白の数を計算
if ( $AMARI == 0 ){ $TUIKA2 = ''; }
if ( $AMARI == 1 ){ $TUIKA2 = "<div class=\"col-xl-4 col-md-6\"><img src=\"./img/cl.png\" width=\"100%\"></div><div class=\"col-xl-4 col-md-6\"><img src=\"./img/cl.png\" width=\"100%\"></div>"; }
if ( $AMARI == 2 ){ $TUIKA2 = "<div class=\"col-xl-4 col-md-6\"><img src=\"./img/cl.png\" width=\"100%\"></div>"; }
}

#タイトルを決める
#$TITLE = ('','食品関係のお店','日中のお食事のお店','暮らしのお店','装いのお店','癒しのお店','夜のお店','その他のお店')[$XYZ];
$TITLE = ('','食品関係のお店','お食事のお店','暮らしのお店','装いのお店','癒しのお店','その他のお店')[$XYZ];

#更新日をエポックから表示用にする
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($KOUSHIN[$XYZ]);
$years = $year +1900;
$month = ($mon + 1);
$wday = ('日曜日','月曜日','火曜日','水曜日','木曜日','金曜日','土曜日')[$wday];
$KOUSHIN[$XYZ] = 'この分類情報は '."$years".'年'."$month".'月'."$mday".'日 '."$wday".' に更新されました。';


		if ( $XYZ eq '1' ){ push(@CONTYES1,$TUIKA); push(@CNOTOFF1,$TUIKA2); $SID = 'shokuhin'; }
		if ( $XYZ eq '2' ){ push(@CONTYES2,$TUIKA); push(@CNOTOFF2,$TUIKA2); $SID = 'shokuji'; }
		if ( $XYZ eq '3' ){ push(@CONTYES3,$TUIKA); push(@CNOTOFF3,$TUIKA2); $SID = 'kurashi'; }
		if ( $XYZ eq '4' ){ push(@CONTYES4,$TUIKA); push(@CNOTOFF4,$TUIKA2); $SID = 'yosoi'; }
		if ( $XYZ eq '5' ){ push(@CONTYES5,$TUIKA); push(@CNOTOFF5,$TUIKA2); $SID = 'iyashi'; }
		if ( $XYZ eq '6' ){ push(@CONTYES6,$TUIKA); push(@CNOTOFF6,$TUIKA2); $SID = 'sonota'; }

#print "<div class=\"row mb-4\">";
#print "@CONTYES1";
#print "@CNOTOFF1";
#print "@CONTYES2";
#print "@CNOTOFF2";
#print "@CONTYES3";
#print "@CNOTOFF3";
#print "@CONTYES4";
#print "@CNOTOFF4";
#print "@CONTYES5";
#print "@CNOTOFF5";
#print "@CONTYES6";
#print "@CNOTOFF6";
#print "</div>";
#exit;

if ( $XYZ eq '1' ){ @VIEWALL = @CONTYES1; @VIEWALL2 = @CNOTOFF1; }
if ( $XYZ eq '2' ){ @VIEWALL = @CONTYES2; @VIEWALL2 = @CNOTOFF2; }
if ( $XYZ eq '3' ){ @VIEWALL = @CONTYES3; @VIEWALL2 = @CNOTOFF3; }
if ( $XYZ eq '4' ){ @VIEWALL = @CONTYES4; @VIEWALL2 = @CNOTOFF4; }
if ( $XYZ eq '5' ){ @VIEWALL = @CONTYES5; @VIEWALL2 = @CNOTOFF5; }
if ( $XYZ eq '6' ){ @VIEWALL = @CONTYES6; @VIEWALL2 = @CNOTOFF6; }

print "
<section id=\"$SID\">
<br />
";
$TOPHE = '';
if ( $BUNRUICOUNT[$XYZ] ne '' and $KENOFFCOUNT[$XYZ] ne '' ){$TOPHE = 'on';#どっちもある
print "
<h3>$TITLE</h3>
<p>$KOUSHIN[$XYZ]</p>

<div class=\"row\">
@VIEWALL
</div>
<div class=\"row\">
@VIEWALL2
</div>
";
}else{#両方はない

if ( $BUNRUICOUNT[$XYZ] ne '' ){$TOPHE = 'on';#対策店舗はある
print "
<h3>$TITLE</h3>
<p>$KOUSHIN[$XYZ]</p>

<div class=\"row\">
@VIEWALL
</div>
";
}#対策店舗の表示
if ( $KENOFFCOUNT[$XYZ] ne '' ){$TOPHE = 'on';#未対策店舗のみ
print "
<h3>$TITLE</h3>

<div class=\"row\">
@VIEWALL2
</div>
";
}#未対策店舗の表示
}#両方はないときの終わり。どちらもなければ何も表示されない
print "</section>\n";


$XYZ++;
if ( $TOPHE eq 'on' ){
print "
<div style=\"text-align:right;\"><a href=\"#covid\" class=\"btn btn-warning\">先頭へ</a></div>
<hr />
";
}
}#while
print @MDR;
&footer;
exit;





sub jikankoushin {
	if ( $KOUSHIN[$BUNRUI] < $KOUSHIN ){ $KOUSHIN[$BUNRUI] = $KOUSHIN; }
}

sub modalmake {
$MCOUNT++;
	$MAP = "<span><button type=\"button\" class=\"btn btn-success\" data-toggle=\"modal\" data-target=\"#modal$MCOUNT\">地図を表示</button></span>";

$MDARU = "
        <div class=\"modal fade\" id=\"modal$MCOUNT\" tabindex=\"-1\" role=\"dialog\" aria-labelledby=\"modal01-label\" aria-hidden=\"true\">
          <div class=\"modal-dialog modal-dialog-centered modal-dialog-fluid\" role=\"document\">
            <div class=\"modal-content\">
              <div class=\"modal-header\">
                <h5 class=\"modal-title\" id=\"modal$MCOUNT-label\">$TENMEI</h5>
                <button type=\"button\" class=\"close\" data-dismiss=\"modal\" aria-label=\"Close\"> <span aria-hidden=\"true\">&times;</span> </button>
              </div>
              <div class=\"modal-body\">

				定休日：$YASUMIVIEW
				<br />
				営業時間：$JIKANVIEW
				<hr />
				$MAPURL
              </div>
              <div class=\"modal-footer\">
                <button type=\"button\" class=\"btn btn-secondary\" data-dismiss=\"modal\">閉じる</button>
              </div>
            </div>
          </div>
        </div>
";

push (@MDR,$MDARU);
}


# エラー表示
sub error {

	local (@msg) = @_;
	local ($i);

	print "Content-type: text/html\n\n";
	print <<"EOF";
<meta charset="utf-8">
	<h2>$_[0]</h2>
EOF

	print "<ul>\n";
	foreach $i (1 .. $#msg) { print "<li>$msg[$i]\n"; }
	print "</ul>\n";

	exit;
}


sub htmlatama {
#表示関連
print "Content-type: text/html\n\n";
print <<"EOF";
<!doctype html>
<html lang="ja">
<head>
<meta charset="utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no" />
<meta http-equiv="cache-control" content="no-cache" />
<link rel="canonical" href="https://yugawara.tv" />
<meta name="robots" content="noindex,nofollow,noarchive" />
<meta name="description" content="湯河原町の商店街,温泉場商店会,湯河原駅前通り 明店街,サンサン通り会,中央商店会の統括団体">

<link rel="stylesheet" href="css/bootstrap.min.css" />
<!-- 追加CSS -->
<link rel="stylesheet" href="css/custom.css" />
<title>新型コロナウイルス対策：湯河原町商店街連合会</title>
</head>
<body>
<!-- ナビゲーションバー -->
<nav class="navbar navbar-expand-md navbar-light sticky-top" style="background-color:#f29900;">
  <div class="container">
    <!-- サブコンポーネント -->
    <!-- ブランド -->
    <a class="navbar-brand" href="index.html">湯河原町商店街連合会</a>
    <!-- 切替ボタン -->
    <button class="navbar-toggler" type="button" data-toggle="collapse" data-target="#navbar-content" aria-controls="navbar-content" aria-expanded="false" aria-label="Toggle navigation"> <span class="navbar-toggler-icon"></span> </button>
    <!-- ナビゲーション -->
    <div class="collapse navbar-collapse" id="navbar-content">
      <!-- ナビゲーションメニュー -->
      <!-- 左側メニュー：トップページの各コンテンツへのリンク -->
      <ul class="navbar-nav mr-auto">
        <li class="nav-item active">
          <a class="nav-link" href="https://yugawara.tv/">トップ <span class="sr-only">(current)</span></a>
        </li>
        <!-- ドロップダウン -->
        <li class="nav-item dropdown">
          <a class="nav-link dropdown-toggle" href="#" id="navbarDropdown" role="button" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false"> コロナ対策店舗紹介 </a>
          <div class="dropdown-menu" aria-labelledby="navbarDropdown">
            <a class="dropdown-item" href="#covid">対策店舗一覧先頭</a>
            <a class="dropdown-item" href="#shokuhin">食料品関連のお店</a>
            <a class="dropdown-item" href="#shokuji">日中のお食事店</a>
            <a class="dropdown-item" href="#kurashi">暮らしのお店</a>
            <a class="dropdown-item" href="#yosoi">装いのお店</a>
            <a class="dropdown-item" href="#iyashi">癒しのお店</a>
            <a class="dropdown-item" href="#yoru">夜のお店</a>
            <a class="dropdown-item" href="#sonota">その他のお店</a>
          </div>
        <li class="nav-item dropdown">
          <a class="nav-link dropdown-toggle" href="#" id="navbarDropdown" role="button" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false"> 商店会ホームページ </a>
          <div class="dropdown-menu" aria-labelledby="navbarDropdown">
            <a class="dropdown-item" href="https://yugawara.tv/onsenba/">温泉場商店会</a>
            <a class="dropdown-item" href="https://yugawara.tv/meitengai/">湯河原駅前通り 明店街</a>
            <a class="dropdown-item" href="https://yugawara.tv/sansan/">サンサン通り会</a>
            <a class="dropdown-item" href="https://yugawara.tv/chuo/">中央商店会</a>
          </div>
		</li>
<!--
        </li>
        <li class="nav-item">
          <a class="nav-link" href="https://yugawara.tv/onsenba/">温泉場商店会</a>
        </li>
        <li class="nav-item">
          <a class="nav-link" href="https://yugawara.tv/meitengai/">湯河原駅前通り明店街</a>
        </li>
        <li class="nav-item">
          <a class="nav-link" href="https://yugawara.tv/sansan/">サンサン通り会</a>
        </li>
        <li class="nav-item">
          <a class="nav-link" href="https://yugawara.tv/chuo/">中央商店会</a>
        </li>
-->
      </ul>
      <!-- 右側メニュー：Contactページへのリンク -->
      <ul class="navbar-nav">
        <li class="nav-item">
          <a href="contact.html" class="nav-link btn btn-info">Contact</a>
        </li>
      </ul>
      <!-- /ナビゲーションメニュー -->
    </div>
    <!-- /サブコンポーネント -->
  </div>
</nav>
<!-- /ナビゲーションバー -->
<!-- メイン -->
<main>
<!--covid-->
<section id="covid">
<div class="waku">
  <div class="container">
  <h3>= 新型コロナウイルス対策店舗のご紹介 =</h3>

<div class="row mb-4">
<div class="col-lg-3 col-sm-6">
	<div class="card">
		<a href="stores2.pl?BASHO=1" class="btn btn-success">温泉場商店会のみ表示</a>
	</div>
</div>
<div class="col-lg-3 col-sm-6">
	<div class="card">
<a href="stores2.pl?BASHO=2" class="btn btn-success">湯河原駅前通り明店街のみ表示</a>
	</div>
</div>
<div class="col-lg-3 col-sm-6">
	<div class="card">
<a href="stores2.pl?BASHO=3" class="btn btn-success">サンサン通り会のみ表示</a>
	</div>
</div>
<div class="col-lg-3 col-sm-6">
	<div class="card">
<a href="stores2.pl?BASHO=4" class="btn btn-success">中央商店会のみ表示</a>
	</div>
</div>
</div>
<span style="color:red">※ 最新の情報は店舗までお問い合わせください。</span>
<br />

EOF
}

sub footer {

print <<"EOF";
</div><!--container-->
</div><!--waku-->
</section>

@MDR

</main>
<!-- /メイン -->
<!-- フッター -->
<footer class="py-4 bg-dark text-light">
  <div class="container text-center">
    <!-- ナビゲーション -->
    <ul class="nav justify-content-center mb-3">
      <li class="nav-item">
        <a class="nav-link" href="https://yugawara.tv/">トップ</a>
      </li>
      <li class="nav-item">
        <a class="nav-link" href="https://yugawara.tv/onsenba/">温泉場商店会</a>
      </li>
      <li class="nav-item">
        <a class="nav-link" href="https://yugawara.tv//meitengai/">湯河原駅前通り 明店街</a>
      </li>
      <li class="nav-item">
        <a class="nav-link" href="https://yugawara.tv/sansan/">サンサン通り会</a>
      </li>
      <li class="nav-item">
        <a class="nav-link" href="https://yugawara.tv/chuo/">中央商店会</a>
      </li>
      <li class="nav-item">
        <a class="nav-link" href="https://yugawara.tv/contact.html">Contact</a>
      </li>
    </ul>
    <!-- /ナビゲーション -->
    <p>
      <small>Copyright &copy;2020 湯河原町商店街連合会, All Rights Reserved.</small>
    </p>
  </div>
</footer>
<!-- /フッター -->

<script src="js/jquery-3.3.1.slim.min.js"></script>
<script src="js/bootstrap.bundle.min.js"></script>
</body>
</html>
EOF
}