60 lines
2.3 KiB
Plaintext
60 lines
2.3 KiB
Plaintext
<%@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_search_generic") : null) // Als een srtdisc_key is meegegeven dan geen lege optie.
|
|
}) ;
|
|
%>
|
|
|
|
<% ASPPAGE_END(); %>
|