#!/usr/bin/php
<?
function apache_note() {
}

include('config.php');
include('phplib/phplib.php');
include('system.php');
include('db.php');
include('common.php');

if (count($argv) != 2) die("een argument nodig\n");

if (!preg_match('/(\w)(\w)_(\d\d)-(\d\d).xlsx.csv$/', $argv[1], $matches)) die("filename heeft verkeerde format\n");

//print_r($matches);

$lj = $matches[1];
$opl = $matches[2];
$sj = $matches[3].$matches[4];
$dit_exj = $matches[4];

if ($opl == 'H') $exj = $dit_exj - $lj + 5;
else if ($opl == 'V') $exj = $dit_exj - $lj + 6;
else die ("impossible\n");

// splitsing A G wordt gemaakt op basis van vakkenpakket
echo("lj=$lj, opl=$opl, sj=$sj, exj=$exj\n");

if (!($fp = fopen($argv[1], 'r'))) die("unable to open {$argv[1]}\n");

// eerste twee regels zijn niet belangrijk
fgets($fp);
fgets($fp);

$legenda1 = fgetcsv($fp);
$legenda2 = fgetcsv($fp);

$legenda = array ();

$legenda_vak = array();
$legenda_profiel = array();

$leerlingnummer_gevonden = 0;

foreach ($legenda1 as $idx => $l1) {
	if ($idx == 0 && $legenda1[$idx] == '' && $legenda2[$idx] == 'Leerlingcode')
		$leerlingnummer_gevonden = 1;

	if ($legenda1[$idx] == 'Vakken') {
		//echo("vak ${legenda2[$idx]}\n");
		$vak = $legenda2[$idx];
		if ($vak == 'kcv') continue;
		if ($vak == 're') continue;
		if ($vak == 'vip') continue;
		if ($vak == 'netl') continue;
		if ($vak == 'lo') continue;
		if ($vak == 'maat') continue;
		if ($vak == 'mt') continue;
		if ($vak == 'fd') continue; // niemand heeft fd
		if ($vak == 'anw') continue;
		if ($vak == 'doub') continue; // aangevinkt als doublant
		if ($vak == 'wisd') continue;
		if ($vak == 'kualg') continue;
		if ($vak == 'ckv') continue;
		if ($vak == 'gtc') $vak = 'grkc';
		if ($vak == 'ltc') $vak = 'lakc';
		$legenda_vak[$vak] = $idx;
	} else if ($legenda1[$idx] == 'Profielen') {
		//echo("profiel ${legenda2[$idx]}\n");
		$legenda_profiel[$legenda2[$idx]] = $idx;
	}
}

if (!$leerlingnummer_gevonden) die("leerlingnummer niet in kolom 0?!?!?\n");

//print_r($vakken);
//print_r($paketten);

while (($row = fgetcsv($fp))) {
	$vakken = array ();
	$profielen = array ();

	
	foreach ($legenda_vak as $vak => $idx) {
		if (!($type = $row[$idx])) continue;
		/* remove question mark */
		if (preg_match('/^(\w+)\?$/', $type, $matches)) {
			$type = $matches[1];
		}	
		if (!isset($vakken[$type])) $vakken[$type] = array ();
		$vakken[$type][] = $vak;
	}
	foreach ($legenda_profiel as $profiel => $idx) {
		if (!($type = $row[$idx])) continue;
		/* remove question mark */
		if (preg_match('/^(\w+)\?$/', $type, $matches)) {
			$type = $matches[1];
		}	
		if (!isset($profielen[$type])) $profielen[$type] = array ();
		$profielen[$type][] = $profiel;
	}

	/* als opl niet HAVO, dan checken of dit een gymnasium of atheneumleerling betreft */
	/* gymnasium heeft grkc of lakc in het gemeenschappelijke deel */
	if ($opl != 'H') {
		if (count($vakken['gem']) != 2) {
			echo("-------leerling met te weinig vakken in gemeenschappelijk deel---------\n");
			continue;
		}
		if (in_array('lakc', $vakken['gem']) || in_array('grkc', $vakken['gem'])) $opl = 'G';
		else $opl = 'A';
	}

	//print_r($vakken);
	//print_r($profielen);
	
	$pakket = array ('gem' => '', 'pv' => '', 'vd' => '', 'xv' => '');
	ksort($vakken, SORT_NATURAL);
	foreach ($vakken as $type => $list) {
		if (!isset($pakket[$type])) die("onbekend soort vak\n");
		natcasesort($list);
		$pakket[$type] = implode('-', $list);
	}

	if ($pakket['vd'] == '') {
		$pakket['vd'] = $pakket['xv'];
		$pakket['xv'] = '';
	}

	// sommige leerlingen hebben meer dan 1 vak staan bij keuzevak
	if (count($res = explode('-', $pakket['vd'])) > 1) {
		$pakket['xv'] = $res[1];
		$pakket['vd'] = $res[0];
	}

	// sommige leerlingen hebben meer dan 1 vak staan bij extra vak
	if (count($res = explode('-', $pakket['xv'])) > 1) {
		$pakket['xv'] = $res[0];
	}

	if (isset($profielen['dp'])) $profiel = substr($profielen['dp'][0], 1);
	else if (isset($profielen['pk'])) $profiel = $profielen['pk'][0];
	else if (isset($profielen['pka'])) $profiel = $profielen['pka'][0];
	else if (isset($profielen['pkg'])) $profiel = $profielen['pkg'][0];

	$pakket_string = '';
	if ($pakket['gem'] != '') $pakket_string .= 'G-'.$pakket['gem'];
	else die("impossible\n");
	if ($pakket['pv'] != '') $pakket_string .= ',P-'.$pakket['pv'];
	else die("impossible\n");
	if ($pakket['vd'] != '') $pakket_string .= ',V-'.$pakket['vd'];
	else die("impossible\n");
	if ($pakket['xv'] != '') $pakket_string .= ',X-'.$pakket['xv'];

	$pakket_id = db_single_field(<<<EOQ
SELECT pakket_id FROM pakket2eq
JOIN eq USING (eq_id)
JOIN eq_type USING (eq_type_id)
WHERE eq_type = 'pakket' AND eq_weergave = ?
EOQ
	, $pakket_string);

	if (!$pakket_id) { // pakket niet bekend
		// voeg het pakket toe, voeg alle vakken toe aan het pakket,
		// maak een pakket aan waarin niet aan de vakken gekoppeld is in
		// welk deel van het profiel ze zitten, dat maakt immers voor
		// het rooster niet uit. Het maakt ook niet uit voor het
		// diploma, omdat de plaats van vakken nog kan worden gewijzigd
		// bij de uitslagvergadering...
		$pakket_simple = array();
		$pakket_id = db_get_id('pakket_id', 'pakket', 'pakket_gem', $pakket['gem'], 'pakket_pv', $pakket['pv'], 'pakket_vd', $pakket['vd'], 'pakket_xv', $pakket['xv']);
		add_to_pakket2eq($pakket_id, 'pakket', $pakket_string);
		$G = explode('-', $pakket['gem']);
		$P = explode('-', $pakket['pv']);
		$V = explode('-', $pakket['vd']);
		$X = ($pakket['xv'] == '')?array ():explode('-', $pakket['xv']);
		foreach ($G as $vak) {
			add_to_pakket2eq($pakket_id, 'vak', $vak);
			add_to_pakket2eq($pakket_id, 'G', $vak);
			$pakket_simple[] = $vak;
		}
		foreach ($P as $vak) {
			add_to_pakket2eq($pakket_id, 'vak', $vak);
			add_to_pakket2eq($pakket_id, 'P', $vak);
			$pakket_simple[] = $vak;
		}
		foreach ($V as $vak) {
			add_to_pakket2eq($pakket_id, 'vak', $vak);
			add_to_pakket2eq($pakket_id, 'V', $vak);
			$pakket_simple[] = $vak;
		}
		foreach ($X as $vak) {
			add_to_pakket2eq($pakket_id, 'vak', $vak);
			add_to_pakket2eq($pakket_id, 'X', $vak);
			$pakket_simple[] = $vak;
		}
		natcasesort($pakket_simple);
		$pakket_simple_weergave = implode(',', $pakket_simple);
		add_to_pakket2eq($pakket_id, 'vakken', $pakket_simple_weergave);
		echo($candidate1 = preg_replace('/cen/', 'entl/cen', $pakket_simple_weergave, -1, $count1)."\n");
		echo($candidate2 = preg_replace('/entl/', 'entl/cen', $pakket_simple_weergave, -1, $count2)."\n");
		echo($count1.' '.$count2."\n");
		if ($count1 == $count2) die("impossible\n");
		if ($count1 == 1) add_to_pakket2eq($pakket_id, 'vakken entl=cen', $candidate1);
		else add_to_pakket2eq($pakket_id, 'vakken entl=cen', $candidate2);

		// een pakket bepaalt uniek een opleiding
		// want HAVO heeft 1 vak in het gemeenschappelijke deel en
		// vwo 2, en Gymnasium is herkenbaar aan lakc of grkc in het
		// gemeenschappelijke deel
		// ---- en toch zetten we de opleiding bij de leerling
	} 

	//$sj_id = db_get_id('sj_id', 'sj', 'sj', $sj);
	//$lj_id = db_get_id('lj_id', 'lj', 'lj', $lj);
	//$opl_id = db_get_id('opl_id', 'opl', 'opl', $opl);
	//$exj_id = db_get_id('exj_id', 'exj', 'exj', $exj);
	$llsj_id = db_get_id('llsj_id', 'llsj');

	echo($row[0].' '.$sj.' '.$lj.$opl.' '.$exj.' '.$profiel.' '.$pakket_string."\n");

	add_to_llsj2eq($llsj_id, 'schooljaar', $sj);
	add_to_llsj2eq($llsj_id, 'leerjaar', $lj);
	add_to_llsj2eq($llsj_id, 'opleiding', $opl);
	add_to_llsj2eq($llsj_id, 'examenjaar', $exj);
	add_to_llsj2eq($llsj_id, 'leerlingnummer', $row[0]);
	add_to_llsj2eq($llsj_id, 'pakket', $pakket_string);

	switch ($profiel) {
	case 'cm':
	case 'em':
	case 'ng':
	case 'nt':
		add_to_pakket2eq($pakket_id, 'profiel', strtoupper($profiel));
		break;
	case 'ecm':
		add_to_pakket2eq($pakket_id, 'profiel', 'EM');
		//add_to_pakket2eq($pakket_id, 'Zermelo Profiel', 'CM');
		break;
	case 'ntg':
		add_to_pakket2eq($pakket_id, 'profiel', 'NT');
		//add_to_pakket2eq($pakket_id, 'Zermelo Profiel', 'NG');
		break;
	default:
		die("impossible profiel ->$profiel<-\n");
	}
}

//print_r(fgetcsv($fp));
fclose($fp);
?>