78 lines
3.4 KiB
Plaintext
78 lines
3.4 KiB
Plaintext
<%@language = "javascript" %>
|
|
<% /*
|
|
$Revision$
|
|
$Id$
|
|
|
|
File: LoadInsNew.asp
|
|
Description: Maak een lijst met nieuw te plaatsen symbolen
|
|
Parameters: discs: keys van te tonen disciplines
|
|
|
|
Context: default.asp/Ajax.Updater
|
|
Note: Alleen objecten waar je WEB_INSMAN voor hebt komen in aanmerking
|
|
er wordt nog *geen* rekening gehouden met ALG_SCOPE
|
|
*/
|
|
%>
|
|
<!-- #include file="../Shared/common.inc" -->
|
|
<!-- #include file="FGII.inc" -->
|
|
|
|
<%
|
|
var pDiscs_arr = getQParamIntArray("discs", []);
|
|
var scenario_key = getQParamInt("scenario_key");
|
|
if (pDiscs_arr.length == 0) Response.End;
|
|
|
|
sql = "SELECT " + lcl.xsqla('isg.ins_srtgroep_omschrijving', 'isg.ins_srtgroep_key')
|
|
+ ", " + lcl.xsqla('isd.ins_srtdeel_omschrijving', 'isd.ins_srtdeel_key')
|
|
+ ", isd.ins_srtdeel_key, ins_srtdeel_code, ins_srtdeel_acadsymbol,"
|
|
+ " isg.ins_discipline_key, " + lcl.xsqla('idd.ins_discipline_omschrijving', 'idd.ins_discipline_key')
|
|
+ " FROM ins_srtdeel isd, ins_srtgroep isg, ins_discipline idd,"
|
|
+ " fac_v_webgebruiker w, fac_functie f "
|
|
+ " WHERE w.ins_discipline_key = idd.ins_discipline_key "
|
|
+ " AND w.fac_functie_key = f.fac_functie_key "
|
|
+ " AND w.prs_perslid_key = " + user_key
|
|
+ " AND isd.ins_srtgroep_key = isg.ins_srtgroep_key"
|
|
+ " AND ins_srtdeel_acadsymbol IS NOT NULL"
|
|
+ " AND isg.ins_discipline_key IN (" + pDiscs_arr.join(",") + ")"
|
|
+ " AND idd.ins_discipline_key = isg.ins_discipline_key"
|
|
+ " AND fac_functie_code = " + safe.quoted_sql(scenario_key <= 0? 'WEB_INSMAN' : 'WEB_INSPRJ')
|
|
+ " AND fac_gebruiker_alg_level_write < 9"
|
|
+ " AND ins_srtdeel_verwijder IS NULL"
|
|
+ " ORDER BY UPPER(" + lcl.xsql('isg.ins_srtgroep_omschrijving', 'isg.ins_srtgroep_key') + "), UPPER(" + lcl.xsql('isd.ins_srtdeel_omschrijving', 'isd.ins_srtdeel_key') + ")";
|
|
|
|
//TODO: AND WHERE schrijfautorisatie/op deze verdieping
|
|
|
|
var oRs = Oracle.Execute(sql);
|
|
var fso = new ActiveXObject("Scripting.FileSystemObject");
|
|
var lastDisc = -1; // Tussen/title regeltjes
|
|
%>
|
|
<table><%
|
|
while(!oRs.eof)
|
|
{
|
|
var symbolFile = S("flexfilespath") + "/cad/symbols/" + oRs("ins_srtdeel_acadsymbol").value + ".dwf"
|
|
if (fso.FileExists(symbolFile)) // Anders kunnen we toch niets
|
|
{
|
|
if (lastDisc != oRs("ins_discipline_key").value)
|
|
{ %><tr><td colspan=2><b><%=safe.html(oRs("ins_discipline_omschrijving").Value)%></b></td></tr>
|
|
<%
|
|
}
|
|
%> <tr>
|
|
<td style="cursor:pointer;" onmousedown='mydragstartINS(event, "<%=oRs("ins_srtdeel_key").Value%>");'>
|
|
<img class="legins" alt="<%=safe.htmlattr(L("lcl_descr"))%>"
|
|
src="mysymbol.asp?paperColor=0&sizeX=24&sizeY=24&srtdeel=<%=oRs("ins_srtdeel_key").value%>"
|
|
onmousedown='(function(evt){evt.preventDefault && evt.preventDefault()})(event)'>
|
|
</td>
|
|
<td valign=center title=<%=oRs("ins_srtgroep_omschrijving").Value%>>
|
|
<%= safe.html(oRs("ins_srtdeel_omschrijving").value) %>
|
|
</td>
|
|
</tr>
|
|
<%
|
|
}
|
|
lastDisc=oRs("ins_discipline_key").value;
|
|
oRs.MoveNext();
|
|
}
|
|
%>
|
|
</table>
|
|
<%
|
|
oRs.Close();
|
|
%>
|
|
<% ASPPAGE_END(); %>
|