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

     File:               get_ins_info.asp
     Description:        Levert de discipline key en omschrijving op van de onderliggende srtgroep.
     Parameters:
        srtgroep_key     Srtgroep key
        srtdeel_key      Srtdeel key
        deel_key         Deel key
*/ %>

<%
var JSON_Result = true;
%>

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

<%
/***** Get webform parameters *****/
var srtgroep_key = getQParamInt("srtgroep_key", -1);
var srtdeel_key = -1;
var deel_key = -1

if (srtgroep_key == -1)
  srtdeel_key = getQParamInt("srtdeel_key", -1);
if (srtgroep_key == -1 && srtdeel_key == -1)
  deel_key = getQParamInt("deel_key");
// Geen autorisatie check nodig
/***** End get webform parameters *****/

var sql_where = ""
if (srtgroep_key > 0)
  sql_where = " AND sg.ins_srtgroep_key = " + srtgroep_key;
else if (srtdeel_key > 0)
  sql_where = " AND sg.ins_srtgroep_key = sd.ins_srtgroep_key"
            + " AND sd.ins_srtdeel_key = " + srtdeel_key;
else
  sql_where = " AND sg.ins_srtgroep_key = sd.ins_srtgroep_key"
            + " AND sd.ins_srtdeel_key = d.ins_srtdeel_key"
            + " AND d.ins_deel_key = " + deel_key;

var sql = "SELECT td.ins_discipline_key"
        + "     , CASE "
          + "     WHEN sdis.ins_srtdiscipline_prefix IS NULL"
          + "     THEN ''"
          + "     ELSE sdis.ins_srtdiscipline_prefix || '-'"
          + "     END || " + lcl.xsql('td.ins_discipline_omschrijving', 'td.ins_discipline_key') + " disc_omschr"
        + "     , sg.ins_srtgroep_key"
        + "     , " + lcl.xsqla('sg.ins_srtgroep_omschrijving', 'sg.ins_srtgroep_key')
        + (srtgroep_key == -1 && srtdeel_key == -1
          ? "   , sd.ins_srtdeel_key"
            + " , COALESCE(sd.ins_srtdeel_nr, '') ||"
            + "   CASE"
            + "   WHEN sd.ins_srtdeel_nr IS NULL"
            + "   THEN ''"
            + "   ELSE sd.ins_srtdeel_nr || ' '"
            + "   END ||"
            + lcl.xsqla('sd.ins_srtdeel_omschrijving', 'sd.ins_srtdeel_key')
          : "   , ''")
        + (srtgroep_key == -1
          ? "   , ins_srtdeel_image"
          : "")
        + "     , idp.ins_disc_params_autonum"
        + "  FROM ins_srtdiscipline sdis"
        + "     , ins_tab_discipline td"
        + "     , ins_disc_params idp"
        + "     , ins_v_aanwezigsrtgroep sg"
        + (srtgroep_key == -1
          ? "   , ins_v_aanwezigsrtdeel sd"
          : "")
        + (srtgroep_key == -1 && srtdeel_key == -1
          ? "   , ins_v_aanwezigdeel d"
          : "")
        + " WHERE td.ins_srtdiscipline_key = sdis.ins_srtdiscipline_key(+)" // Alleen bij MLD is de ins_srtdiscipline_key (altijd) ingevuld
        + "   AND td.ins_discipline_key = idp.ins_discipline_key"
        + "   AND sg.ins_discipline_key = td.ins_discipline_key"
        + sql_where;
var oRs = Oracle.Execute(sql);
var srtdeel_omschr = ""

var imagePath = null;
if (srtgroep_key == -1)
{
  srtdeel_image = oRs("ins_srtdeel_image").Value;
  if (srtdeel_image)
    imagePath = S("ins_image_path") + srtdeel_image;
}

if (srtgroep_key == -1 && srtdeel_key == -1)
{
  srtdeel_key = oRs("ins_srtdeel_key").Value;
  srtdeel_omschr = oRs("ins_srtdeel_omschrijving").Value;
}
var disc_key = oRs("ins_discipline_key").Value;
var disc_omschr = oRs("disc_omschr").Value;
var autonum = oRs("ins_disc_params_autonum").Value;
var srtgroep_key = oRs("ins_srtgroep_key").Value;
var srtgroep_omschr = oRs("ins_srtgroep_omschrijving").Value;

var result = { disc_key: disc_key,
               disc_omschr: disc_omschr,
               autonum: autonum,
               srtgroep_key : srtgroep_key,
               srtgroep_omschr: srtgroep_omschr,
               srtdeel_key: srtdeel_key,
               srtdeel_omschr: srtdeel_omschr,
               imagePath: imagePath };
Response.Write(JSON.stringify(result));
%>
