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

     File:          ins_deel_note_save.asp
     Description:   Het echte bewaren van een object notitie, zonder interactie
     Parameters:    ins_key   object key
                    note_key   notitie key
                    note       notitie tekst
                    urole
     Context:       Vanuit pda/notitie.asp

*/
var JSON_Result = true;

var ins_key = getQParamInt("ins_key");
var LOCKED_USER_OK = { "xmlnode": "ins_deel", "key": ins_key };
%>
<!-- #include file="../Shared/common.inc" -->
<!-- #include file="../Shared/save2db.inc" -->
<!-- #include file="ins.inc" -->

<%
var note_key = getQParamInt("note_key", -1);
var this_ins = ins.func_enabled_deel(ins_key); // wat mag ik zoal op deze opdracht
user.auth_required_or_abort(this_ins.canChange);

var note = getFParam("note", "");
if (note != "")
{
    var fields =  [ { dbs: "ins_deel_key",                  typ: "key",     val: ins_key },
                    { dbs: "prs_perslid_key",               typ: "key",     val: user_key },
                    { dbs: "ins_deel_note_omschrijving",    typ: "varchar", frm: "note", len:4000 }
                  ]
    if (note_key == -1)
    {
      var noteIns = buildInsert("ins_deel_note", fields);
      Oracle.Execute(noteIns.sql);
    }
    else
    {
      var sql = buildUpdate("ins_deel_note", fields)
              + " ins_deel_note_key = " + note_key
              + " AND prs_perslid_key = " + user_key; // Voorkom dat er een notitie van een ander aangepast wordt.
      Oracle.Execute(sql);
    }
}
var result = {success: true,
              ins_key: ins_key,
              note_key: note_key
             };
Response.Write(JSON.stringify(result));

ASPPAGE_END();
%> 
