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

     NOTE: als hier inhoudelijk wordt gewijzigd, dan mogelijk in mld/mld_search.asp ook.
*/ %>

<%
DOCTYPE_Disable = true;
%>

<!-- #include file="../Shared/common.inc" -->
<!-- #include file="../Shared/selector.inc" -->

<%
// Bouw een soort melding (srtdiscipline) lijst.
var urole = getQParamSafe("urole");
var autfunction  = getQParam("autfunction", ""); // Check of user rechten heeft op meegegeven artikelen.
var srtdisc_key  = getQParamInt("srtdisc_key",  -1); // Soort Melding.
var sel_srtdisc_key = getQParamInt("sel_srtdisc_key",  -1); // Geselecteerde soort Melding.

// Autfunction kan meerdere autfuncties bevatten.
autfunction = autfunction.split(",");
var afunction = "";
for (var i = 0; i < autfunction.length; i++)
{
  afunction += (i > 0? ", " : "" ) + safe.quoted_sql(autfunction[i]);
}
// Als een srtdisc_key meegegeven dan geen lege optie

srtdiscsql = "SELECT sd.ins_srtdiscipline_key"
           + ", "+ lcl.xsqla('sd.ins_srtdiscipline_omschrijving', 'ins_srtdiscipline_key')
           + " FROM ins_srtdiscipline sd"
           + " WHERE EXISTS (SELECT 'x'"
             + " FROM mld_stdmelding ms"
             + ", mld_v_aanwezigdiscipline m1"
             + " WHERE m1.ins_discipline_key = ms.mld_ins_discipline_key"
             + " AND ms.mld_stdmelding_verwijder IS NULL)"
           + " AND EXISTS (SELECT 'y'"
             + " FROM fac_v_my_disciplines md"
             + " , mld_v_aanwezigdiscipline m1"
             + " WHERE fac_functie_code IN (" + afunction + ")"
             + " AND prs_perslid_key = " + user_key
             + " AND m1.ins_srtdiscipline_key = sd.ins_srtdiscipline_key"
             + " AND md.ins_discipline_key = m1.ins_discipline_key"
             + ") "
           + (srtdisc_key > 0
             ? " AND ins_srtdiscipline_key IN (" + srtdisc_key + ")"
             : " ")
           + " ORDER BY 2";
FCLTselectorOptions(srtdiscsql,
                    { initKey: sel_srtdisc_key,
                      onChange: 'updateDisc("' + urole + '");',
                      emptyOption: (srtdisc_key == -1? L("lcl_all") : null) // Als een srtdisc_key is meegegeven dan geen lege optie.
                    }) ;
%>

