94 lines
3.0 KiB
Plaintext
94 lines
3.0 KiB
Plaintext
<%@language = "javascript" %>
|
|
<% /*
|
|
$Revision$
|
|
$Id$
|
|
|
|
File: cad_thema-select.asp
|
|
Description: Kies een theme voor een plattegrond
|
|
ins_key
|
|
ruimte_key
|
|
-
|
|
rest optioneel
|
|
|
|
Note: We kiezen hier puur alleen het theme. De rest
|
|
wordt gewoon via plattegrond.asp gedaan
|
|
|
|
*/ %>
|
|
|
|
<% REGISTERMENU_Disable = true; %>
|
|
<!-- #include file="../Shared/common.inc" -->
|
|
<!-- #include file="./resultset_table.inc" -->
|
|
<!-- #include file="./mobile.inc" -->
|
|
<!-- #include file="./iface.inc" -->
|
|
<%
|
|
var qrc = getQParamInt("qrc", 0) != 0;
|
|
var verdieping_key = getQParamInt("verdieping_key", user.alg_verdieping_key({withcurrent:true})); // transitonly
|
|
var thema_key = getQParamInt("thema_key", -1);
|
|
|
|
var transitParam = buildTransitParam(["verdieping_key"] );
|
|
|
|
if (thema_key > -1) // Dan hebben we al een thema en valt hier niks toe te voegen
|
|
{
|
|
Server.Transfer("plattegrond.asp");
|
|
}
|
|
|
|
var scenario_key=0;
|
|
var bitcode = 0x01; // binnen
|
|
%>
|
|
|
|
<html>
|
|
<head>
|
|
<% FCLTMHeader.Generate({title: L("lcl_kies_thema") }); %>
|
|
</head>
|
|
<body>
|
|
<%
|
|
var header_title = L("lcl_fg_thema") ;
|
|
|
|
PAGE_START({id: "page-1-"+verdieping_key});
|
|
HEADER({title: header_title, back:!qrc, home: !qrc });
|
|
CONTENT_START();
|
|
|
|
function fncolLink(oRs)
|
|
{
|
|
var nurl = "plattegrond.asp?thema_key=" + oRs("cad_thema_key").Value + transitParam;
|
|
return nurl;
|
|
};
|
|
|
|
if (thema_key < 0)
|
|
{
|
|
sql = "SELECT CAD_THEMA_KEY, "
|
|
+ lcl.xsqla('cad_thema_omschrijving', 'cad_thema_key')
|
|
+ " FROM CAD_THEMA "
|
|
+ " WHERE BITAND(CAD_THEMA_TYPE, " + bitcode + ") = " + bitcode
|
|
+ " AND BITAND(CAD_THEMA_TYPE, 4) = 0" // actueel, niet project
|
|
+ " AND BITAND(CAD_THEMA_TYPE, 128) = 0" // de draggables maar niet
|
|
+ " AND (FAC_FUNCTIE_KEY IS NULL"
|
|
+ " OR FAC_FUNCTIE_KEY IN "
|
|
+ " (SELECT FAC_FUNCTIE_KEY FROM fac_v_webgebruiker"
|
|
+ " WHERE prs_perslid_key = " + user_key + "))"
|
|
+ " ORDER BY 2";
|
|
|
|
|
|
var rst = new ResultsetTable({ sql: sql
|
|
, keyColumn: "CAD_THEMA_KEY"
|
|
, linkColumn: fncolLink
|
|
, headerColumn: "cad_thema_omschrijving"
|
|
, ID: "thematable"
|
|
, showAll: true
|
|
, noSearch: true
|
|
, emptySetString: L("lcl_empty")
|
|
});
|
|
var cnt = rst.processResultset();
|
|
if (cnt == 0)
|
|
{
|
|
%><script>alert(L("lcl_mobile_no_stdmelding"));window.history.back(1)</script><%
|
|
}
|
|
}
|
|
|
|
CONTENT_END();
|
|
FOOTER();
|
|
PAGE_END()
|
|
%>
|
|
</body>
|
|
</html>
|