<?php
// +-------------------------------------------------+
// © 2002-2004 PMB Services / www.sigb.net pmb@sigb.net et contributeurs (voir www.sigb.net)
// +-------------------------------------------------+
// $Id: export_notices.inc.php,v 1.10 2018/12/28 13:16:06 dgoron Exp $

if (stristr($_SERVER['REQUEST_URI'], ".inc.php")) die("no access");

//Exécution de l'export
global $base_path;
require_once("$base_path/admin/convert/start_export.class.php");

function cree_export_notices($liste=array(), $typeexport='pmbxml2marciso', $expl=1,$param_export) {
	global $base_path;
	global $keep_expl, $dbh;
	
	$keep_expl = $expl ;
	// Récupération des notices
	$n_notices=count($liste);
	if ($n_notices == 0) {
		return "" ;
	} else {
		// Export ! 
		$z = 0;
		$e_notice = "" ;
		$nb_notices=0;
		$_SESSION["param_export"]["notice_exporte"]=array();
		$_SESSION["param_export"]["bulletin_exporte"]=array();
		while ($z<count($liste)) {
			$id=$liste[$z];
			// Exclure de l'export (opac, panier) les fiches interdites de diffusion dans administration, Notices > Origines des notices NG72
			$sql="select orinot_diffusion from origine_notice,notices where notice_id = '$id' and origine_catalogage = orinot_id";
			$res=pmb_mysql_query($sql,$dbh);
			if(pmb_mysql_num_rows($res)){
				$diffusable = pmb_mysql_result($res,0,0);
				if($diffusable){
					$export= new start_export($id,$typeexport,$param_export) ;
					$e_notice.=$export->output_notice;
					$nb_notices++;
				}
			}
			$z ++;
		}
	}
	if($nb_notices>0){
		$e_notice=$export->get_header().$e_notice.$export->get_footer();
	}
	return $e_notice ;
}
?>