Files
Facilitor/APPL/BEZ/bez_xml.asp
Peter Feij 7e3dba6b1f UWVA#26829 Bezoekersbon moet dan dus ook nog anders
FSN#26722 Tracking van bezoekers nu ook gekoppeld aan bez_bezoekers ipv bez_afspraak

svn path=/Website/trunk/; revision=18196
2013-06-19 16:16:51 +00:00

52 lines
1.7 KiB
Plaintext

<%@ LANGUAGE = JavaScript %>
<% /*
$Revision$
$Id$
File: bez_xml.asp
Description: XML converter for bezoekers/afspraak
Parameters:
bez_key: een enkele bezoeker, druk badge af
of: afspr_key key of the bez_afspraak to convert into XML
Context: bez_show_afspraak.asp of bo-bezoekerslijst
Note:
*/ %>
<!-- #include file="../Shared/common.inc"-->
<!-- #include file="../Shared/xml_converter.inc" -->
<!-- #include file="./bez.inc" -->
<%
var bez_key = getQParamInt("bez_key", -1);
var dobadge = getQParamInt("badge", 0) == 1;
if (bez_key != -1) {
var sql = "SELECT bez_afspraak_key"
+ " FROM bez_bezoekers"
+ " WHERE bez_bezoekers_key = " + bez_key;
oRs = Oracle.Execute(sql);
var afspr_key = oRs("bez_afspraak_key").value;
var this_bez = bez.func_enabled_afspraak(afspr_key);
user.auth_required_or_abort(this_bez.canBadge);
//FCLT2XMLResponse({xmlnode: 'afspraak', key: afspr_key, xtrakey: bez_key, srtnotificatie: 'BEZDON'});
// Raar: bezdon = binnen, en dan komt er een badge-bon. Je zou een logische mechanisme met
// een parameter oid voor kunnen stellen.
if (dobadge)
FCLT2XMLResponse({xmlnode: 'bezoeker', key: bez_key, srtnotificatie: 'BEZBAD'});
else
FCLT2XMLResponse({xmlnode: 'bezoeker', key: bez_key});
}
else {
var afspr_key = getQParamInt("afspr_key");
var this_bez = bez.func_enabled_afspraak(afspr_key);
user.auth_required_or_abort(this_bez.canReadAny);
FCLT2XMLResponse({xmlnode: 'afspraak', key: afspr_key});
}
%>