40 lines
1.3 KiB
Plaintext
40 lines
1.3 KiB
Plaintext
<%@language = "javascript" %>
|
|
<%/*
|
|
$Revision$
|
|
$Id$
|
|
|
|
File: mld_logboek.asp
|
|
Description: Maak een melding per dag per persoon aan
|
|
of neem de bestaande als die melding er vandaag al was
|
|
Ga daarna door naar mld_melding.asp voor het echte werk
|
|
Parameters: mld_defaultstdmelding
|
|
TODO: Autorisatie
|
|
Context:
|
|
Note:
|
|
|
|
*/ %>
|
|
<!--#include file="../Shared/common.inc" -->
|
|
<!--#include file="mld.inc" -->
|
|
<!--#include file="../shared/save2db.inc" -->
|
|
<%
|
|
FCLTHeader.Requires();
|
|
|
|
var mld_defaultstdmelding = getQParamInt("mld_defaultstdmelding");
|
|
|
|
var sql = "SELECT MAX(mld_melding_key) mld_melding_key"
|
|
+ " FROM mld_melding"
|
|
+ " WHERE prs_perslid_key = " + user_key
|
|
+ " AND mld_melding_status in (0,2,3,4,7)" // openstaande meldingen
|
|
+ " AND mld_stdmelding_key = " + mld_defaultstdmelding;
|
|
var oRs = Oracle.Execute(sql);
|
|
var mld_key = oRs("mld_melding_key").value;
|
|
if (mld_key == null) // geen bestaande gevonden
|
|
{
|
|
// toevoegen melding
|
|
mld_key = mld.insertmelding(mld_defaultstdmelding, {});
|
|
mld.setmeldingstatus(mld_key, 4); // direct accepteren
|
|
}
|
|
|
|
Response.Redirect("mld_melding.asp?urole=bo¬eonly=1&tracking=0&mld_key=" + mld_key);
|
|
%>
|