#! /usr/bin/perl require "./header/header.pl"; require "./header/jcode.pl"; require "./header/function.pl"; &LoadFormData(); open(FILE, "<$ECOFEED_CSV"); @Ecofeed_Data = ; close FILE; print qq(Content-type: text/html; charset=$CHARSET\n\n); print < 農政局管轄エコフィード事業所
Top＞検索

＊各都道府県をクリックすると、エコフィード事業所のリストが表示されます。

＊（　）内は現在登録されている事業所数です。


HTML for($i = 0, $a_cnt = 0, $a_cnt2 = 0; $i < @ADDRESS1; $i++, $a_cnt2++){ if($i == $ADDRESS2[$a_cnt]){ if(($a_cnt2 % 2) != 0){ print qq( \n); } if($i != 0){ print qq( \n); } print < HTML $a_cnt++; $a_cnt2 = 0; }elsif(($a_cnt2 % 2) == 0){ print qq( \n); } $cnt = 0; for($i2 = 0; $i2 < @Ecofeed_Data; $i2++){ chomp($Ecofeed_Data[$i2]); my (@t_work) = split(/\,/, $Ecofeed_Data[$i2]); if(($t_work[1] == $ECOFEED_STATUS_ACTIVE_ID) && ($t_work[4] eq $ADDRESS1[$i])){ $cnt++; } } print qq( \n); } if(($a_cnt2 % 2) != 0){ print qq( \n); } print <
 
【$ADDRESS3[$a_cnt]】
$ADDRESS1[$i]（$cnt） 
HTML if($FORM{'address'} ne ""){ print qq(
$ADDRESS1[$FORM{'address'}]
\n); }elsif($FORM{'area'} ne ""){ print qq(
$ADDRESS3[$FORM{'area'}]
\n); } print < 事業所名をクリックすると詳細なデータを見ることができます。

HTML for($i = 0; $i < @Ecofeed_Data; $i++){ chomp($Ecofeed_Data[$i]); my (@t_work) = split(/\,/, $Ecofeed_Data[$i]); if($t_work[1] == $ECOFEED_STATUS_ACTIVE_ID){ if(($t_work[4] eq $ADDRESS1[$FORM{'address'}]) && ($FORM{'address'} ne "")){ print < HTML }elsif($FORM{'area'} ne ""){ for($i2 = $ADDRESS2[$FORM{'area'}]; $i2 < $ADDRESS2[$FORM{'area'} + 1]; $i2++){ if($ADDRESS1[$i2] eq $t_work[4]){ if(($FORM{'area'} == 0) && ($ADDRESS2[$FORM{'area'}] >= $i2)){ print < HTML }elsif(($ADDRESS2[$FORM{'area'}] <= $i2) && ($ADDRESS2[$FORM{'area'} + 1] > $i2)){ print < HTML } } } } } } print < HTML
都道府県 事業所名 住所 電話番号 一般食品残さの受け入れ エコフィードの一般販売可否
$t_work[4] $t_work[2] 〒$t_work[5]
$t_work[6]		 $t_work[7] $t_work[16] $t_work[20]
$t_work[4] $t_work[2] 〒$t_work[5]
$t_work[6]		 $t_work[7] $t_work[16] $t_work[20]
$t_work[4] $t_work[2] 〒$t_work[5]
$t_work[6]		 $t_work[7] $t_work[16] $t_work[20]