FCLT#55779 Nieuwe meldingen registreren t/m min verplicht niveau op Mobile

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

APPL/PDA/melding_new.asp

@@ -50,15 +50,24 @@ if (urole == "")
     // Voorlopig bepalen wat de urole is, voor gebruik in autfunction.
     urole = (user.has("WEB_MLDFOF") ? "fo" : "fe");
 }
+var fronto = urole == "fo";
+var backo  = urole == "bo";
+var minfo  = urole == "mi";
+var frontend = (!fronto & !backo & !minfo);
+
+var autfunction = '';
+if (fronto)
+  autfunction = 'WEB_MLDFOF';
+else if (minfo)
+  autfunction = 'WEB_MLDBAC';
+else if (backo)
+  autfunction = 'WEB_MLDBOF';   // twijfel - PF
+else
+  autfunction = 'WEB_MLDUSE';
+
+var authparams = user.checkAutorisation(autfunction, true);
+var autlevel = authparams.ALGwritelevel;
 var transitParam = buildTransitParam(["mld_key", "action", "disc", "srtdisc", "ins_key", "loc_key", "bld_key", "flr_key", "roo_key", "meldbronkey", "deelsrtcont_key"] );
-var sql = "SELECT COALESCE(MIN(fac_gebruiker_alg_level_write), 9) writelevel"
-        + "  FROM fac_v_webgebruiker g, fac_functie f "
-        + " WHERE g.fac_functie_key = f.fac_functie_key "
-        + "   AND f.fac_functie_code = " + safe.quoted_sql("MLD_FOF")
-        + "   AND g.prs_perslid_key = " + user_key;
-var oRs = Oracle.Execute(sql);
-var autlevel = oRs("writelevel").Value; // Pas op: kan ook '0' zijn (regio)
-oRs.Close();
 
 // Verplicht:
 var disc_key = getQParamInt("disc", -1);
@@ -158,7 +167,7 @@ else
                + "&stdm=" + stdm_key
                + "&filtCode=FAC"
                + "<%=safe.jsstring(objPlaats.parms())%>"
-               + "&autlevel=-1"
+               + "&autlevel=<%=autlevel%>"
                + "&startlevel=<%=startlevel%>"
                + "&eindlevel=<%=requiredlevel%>"
                + "&return_to=<%=safe.url("melding.asp")%>" + encodeURIComponent(purl);