<%@language = "javascript" %>
<% /*
    $Revision$
    $Id$

    File:               cad_reserveerbaar_save.asp
    Description:        Maak een object vanuit de tekening al dan niet reserveerbaar

    Parameters:
        ins_key
        disc_key        res-discipline
        res_deel_key    niet-reserveerbaar maken
    Context:            Vanuit cad_reserveerbaar.asp
    Note:
*/
var JSON_Result = true;
%>
<!-- #include file="../Shared/common.inc" -->
<!-- #include file='../CAD/FGII.inc'-->
<%
var ins_key = getQParamInt("ins_key");
var disc_key = getQParamInt("disc_key");
var alg_scope = getQParamInt("alg_scope", 2); // default locatie

var res_deel_key = getQParamInt("res_deel_key", -1); // ontkoppelen

protectRequest.validateToken();

user.checkAutorisation("WEB_RESMSU");

if (res_deel_key > 0)
{
    // TODO Toekomstige reserveringen weg?
    var sql = "UPDATE res_deel"
            + "   SET res_deel_verwijder = SYSDATE"
            + " WHERE res_deel_key = " + res_deel_key
    var err = Oracle.Execute(sql, true);
}
else // reserveerbaar maken onder res-catalogus disc_key
{
    var sql_i = "INSERT INTO res_deel"
          + " (res_deel_omschrijving, res_ins_deel_key, res_discipline_key, res_deel_alg_level)"
          + " SELECT ins_deel_omschrijving"
          + "      , " + ins_key
          + "      , " + disc_key
          + "      , " + alg_scope
          + "  FROM ins_deel WHERE ins_deel_key = " + ins_key;
    var err = Oracle.Execute(sql_i, true);
}

var warning = null;
if (err.friendlyMsg)
    warning = err.friendlyMsg;

Response.Write(JSON.stringify({ success: true, warning: warning }));

ASPPAGE_END();
%>
