pmb_mysql_query($rqt_maj, $dbh);
}
print planning_list(0, 0, 0, '', '', GESTION_INFO_GESTION);
break;
case 'to_resa':
if (count($resa_check)) {
foreach ($resa_check as $k => $id_rp) {
$rp = new resa_planning($id_rp);
$rp->to_resa();
}
}
print planning_list(0, 0, 0, '', '', GESTION_INFO_GESTION);
break;
default:
print planning_list(0, 0, 0, '', '', GESTION_INFO_GESTION);
break;
}
break;
case 'pret':
switch ($action) {
case 'suppr_resa':
//Suppression réservation depuis fiche lecteur
resa_planning::delete($id_resa);
break;
default:
break;
}
break;
default:
break;
}
function del_resa($id_empr, $id_notice, $id_bulletin, $cb_encours_de_pret)
{
global $dbh;
if (!$id_empr || !$id_notice && !$id_bulletin) {
return FALSE;
}
if (!$id_notice) {
$id_notice = 0;
}
if (!$id_bulletin) {
$id_bulletin = 0;
}
$rqt = "select resa_cb, id_resa, resa_planning_id_resa from resa where resa_idnotice='" . $id_notice . "' and resa_idbulletin='" . $id_bulletin . "' and resa_idempr='" . $id_empr . "' ";
$res = pmb_mysql_query($rqt, $dbh);
$obj = pmb_mysql_fetch_object($res);
$cb_recup = $obj->resa_cb;
$id_resa = $obj->id_resa;
// suppression resa
$rqt = "delete from resa where id_resa='" . $id_resa . "' ";
$res = pmb_mysql_query($rqt, $dbh);
// suppression de la prévision associée à la resa
resa_planning::delete($obj->resa_planning_id_resa);
// si on delete une resa à partir d'un prêt, on invalide la résa qui était validée avec le cb, mais on ne change pas les dates, ça sera fait par affect_cb
$rqt_invalide_resa = "update resa set resa_cb='' where resa_cb='" . $cb_encours_de_pret . "' ";
$res = pmb_mysql_query($rqt_invalide_resa, $dbh);
// réaffectation du doc éventuellement
if ($cb_recup != $cb_encours_de_pret) {
// les cb sont différents
if (!verif_cb_utilise($cb_recup)) {
// le cb qui était affecté à la résa qu'on vient de supprimer n'est pas utilisé
// on va affecter le cb_récupéré à une resa non validée
$res_affectation = affecte_cb($cb_recup);
if (!$res_affectation && $cb_recup) {
// cb non réaffecté, il faut transférer les infos de la résa dans la table des docs à ranger
$rqt = "insert into resa_ranger (resa_cb) values ('" . $cb_recup . "') ";
$res = pmb_mysql_query($rqt, $dbh);
}
}
}
// Au cas où il reste des résa invalidées par resa_cb, on leur colle les dates comme il faut...
$rqt_invalide_resa = "update resa set resa_date_debut='0000-00-00', resa_date_fin='0000-00-00' where resa_cb='' ";
$res = pmb_mysql_query($rqt_invalide_resa, $dbh);
return TRUE;
}
