DJIN#37690 opdrachten flags toegevoegd

svn path=/Website/trunk/; revision=34281

APPL/MLD/opdr_flag.asp

@@ -0,0 +1,38 @@
+<%@language = "javascript" %>
+<% /*
+     $Revision$
+     $Id$
+
+     verhoog de status van de flag met 1.
+  */ %>
+<%
+var JSON_Result = true;
+%>
+
+<!-- #include file="../Shared/common.inc" -->
+<!-- #include file="../Shared/json2.js" -->
+<!-- #include file="mld.inc" -->
+
+<%
+protectRequest.validateToken();
+var opdr_key = getFParamInt("opdr_key");
+var flagkey = getFParamInt("flagkey");
+
+var this_opdr = mld.func_enabled_opdracht(opdr_key);
+user.auth_required_or_abort(this_opdr.canWriteFlags);
+
+var result = {};
+
+flagkey = (flagkey+1) % S("mld_opdracht_flags"); // cycle door de waarden [0 .. S("mld_opdracht_flags")]
+
+var updateSql = "UPDATE mld_opdr"
+              + "   SET mld_opdr_flag = " + flagkey
+              + " WHERE mld_opdr_key = " + opdr_key;
+Oracle.Execute(updateSql);
+
+result.success = true;
+result.opdr_key = opdr_key;
+result.newflag = flagkey;               // Het nieuwe volgnummer van de melding vlaggetjes.
+
+Response.Write(JSON.stringify(result));
+%>