Export Pali Text DB to CSV
$from";
if ($to == 0 || $to >= 217) {
$to = 216;
}
$book = $from + 1;
if (($fp = fopen(_DIR_PALI_TITLE_ . "/" . $book . "_title.csv", "w")) !== false) {
fputcsv($fp, array('id', 'book', 'par_num', 'level', 'class', 'title', 'text'));
PDO_Connect("" . _FILE_DB_PALITEXT_);
$query = "select id, book, paragraph, level, class, toc, text from pali_text where book = '$book' ";
$title_data = PDO_FetchAll($query);
foreach ($title_data as $value) {
$value["id"] = "NULL";
$value["book"] = "p" . $value["book"];
if ($value["level"] == "100") {
$value["toc"] = "";
}
fputcsv($fp, $value);
}
fclose($fp);
echo "ok";
} else {
echo "error:can not open file " . _DIR_PALI_TITLE_ . "/" . $book . "_title.csv";
}
if ($from == $to) {
echo "齐活！功德无量！all done!
";
} else {
echo "";
echo "正在载入:" . ($from + 1) . "——" . $filelist[$from + 1][0];
}
?>