$value) if ($value['eid'] == $eid) return $value; return null; } function RecommendedEntry_updateIndexFile ($eid_updated, $eid, $direction) { $filename = sprintf ($_SERVER['DOCUMENT_ROOT'].'/ReData/%d.txt', $eid_updated); file_exists ($filename) || touch ($filename); $fp = @fopen ($filename, 'r+'); if ($fp) { if (flock ($fp, LOCK_EX | LOCK_NB)) { $ret = ''; $not_found = 1; while (! feof ($fp) && ($buf = fgets ($fp))) { list ($_eid, $_n0, $_n1) = preg_split ("[\t\r\n]", $buf); if ($eid == $_eid) { $not_found = 0; $direction ? $_n1++ : $_n0++; } $ret .= sprintf ("%d\t%d\t%d\n", $_eid, $_n0, $_n1); } $not_found && $ret .= sprintf ("%d\t%d\t%d\n", $eid, 1 - $direction, $direction); rewind ($fp); fwrite ($fp, $ret, strlen ($ret)); } fclose ($fp); } } function RecommendedEntry_incoming () { $eid_prev = $_COOKIE['mtrcmnd_eid']; if (isset ($eid_prev)) { if ($eid_prev != 704 && RecommendedEntry_getEntryData ($eid_prev)) { RecommendedEntry_updateIndexFile (704, $eid_prev, 0 /*incoming_from*/); RecommendedEntry_updateIndexFile ($eid_prev, 704, 1 /*outgoing_to*/); } } else { RecommendedEntry_updateIndexFile (704, 704, 0 /*incoming_from*/); } } RecommendedEntry_incoming (); function RecommendedEntry_outgoing () { setcookie ('mtrcmnd_eid', 704, time () + 2592000, '/'); } RecommendedEntry_outgoing (); function RecommendedEntry_initialize ($mode = 0) { global $RecommendedEntry_table; $RecommendedEntry_table = array (); $fp = @fopen ($_SERVER['DOCUMENT_ROOT'].'/ReData/704.txt', 'r'); if ($fp) { if (flock ($fp, LOCK_SH | LOCK_NB)) { while (! feof ($fp) && ($buf = fgets ($fp))) { list ($_eid, $_n0, $_n1) = preg_split ("[\t\r\n]", $buf); if (704 == $_eid) continue; if ($mode == 1) $RecommendedEntry_table{$_eid} = $_n0; else if ($mode == 2) $RecommendedEntry_table{$_eid} = $_n1; else $RecommendedEntry_table{$_eid} = $_n0 + $_n1; } arsort ($RecommendedEntry_table, SORT_NUMERIC); } fclose ($fp); } } function RecommendedEntry_GetEntry ($_index) { global $RecommendedEntry_table; foreach ($RecommendedEntry_table as $eid => $count) { if (--$_index) continue; $entry = RecommendedEntry_getEntryData ($eid); if ($entry) $entry['count'] = $count; return $entry; } } ?> The Procedure Manual of Epidemiological Surveillance Program - SAG[Spanish] | Good Practices | Chile | APIP - Asia-Pacific Information Platform on Food Security

HOME > Search by Economy > Chile > Good Practices > The Procedure Manual of Epidemiological Surveillance Program - SAG[Spanish]

The Procedure Manual of Epidemiological Surveillance Program - SAG[Spanish]

This is the document of the SAG (Service of Agriculture and Stock Farming) about the procedure manual of epidemiological surveillance program.
The strategy of the vigilance in the risky areas associated to the presence of sylvan or (and) farmyard birds for the detection of the virus of bird flu.

'; ?> '; /* echo '
';
print_r($head);
echo '
'; echo '['.$is_link.']'; */ //リンク先があるときのみ表示 if($is_link==1){ echo '
'."\n"; if(preg_match("/text.html/", $contype)){ echo ''."\n"; echo '
'."\n"; if(!preg_match("/Microsoft/",$head['Server']) && $head['Server']){ $data_array = getPageData($exurl); $link_title = $data_array['title']; if($link_title != ""){ echo '

'.$link_title.'

'."\n"; //$pubtexts = 1; } $link_description = $data_array['description']; if($link_description != ""){ echo '

'.$link_description.'

'."\n"; //$pubtexts = 1; } } if($pubtexts==0 && $entryflg==1){ $pubtexts=1; echo '
'."\n".$entryText."\n"; } echo '
'; }elseif(preg_match("/application.pdf/", $contype)){ echo ''."\n"; if($pubtexts==0 && $entryflg==1){ $pubtexts=1; echo '
'."\n" .$entryText."\n" .'
'; } } echo '
'."\n"; } //MTアップロードPDFがある場合 if($pdfurl!=""){ echo '
'."\n"; echo ''."\n"; } ?> '."\n"; } if($pubtexts==0 && $entryflg==1){ $pubtexts=1; echo $entryText; } ?>
Also browsed