<%@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:               DEPRECATED, opgenomen in LoadInsLegenda.asp
*/
%>
<!-- #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:grab;" onmousedown='mydragstartINS(event, "<%=oRs("ins_srtdeel_key").Value%>");'>
                    <img class="legins" alt="<%=safe.htmlattr(L("lcl_descr"))%>"
                         src="mysymbol.asp?forceBW=1&paperColor=0&sizeX=72&sizeY=72&scale=950&offsetX=3&offsetY=3&srtdeel=<%=oRs("ins_srtdeel_key").value%>"
                         onmousedown='(function(evt){evt.preventDefault && evt.preventDefault()})(event)'>
                </td>
                <td class="leginsname" 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(); %>
