<%@ 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 = getQParamIntArray("bez_key", []);
   var dobadge = getQParamInt("badge", 0) == 1;

   if (bez_key.length) {
      var sql = "SELECT bez_afspraak_key, bez_bezoekers_key"
              + "  FROM bez_bezoekers"
              + " WHERE bez_bezoekers_key IN (" + bez_key.join(",") + ")";

      oRs = Oracle.Execute(sql);
      while (!oRs.eof)
      {
         var afspr_key = oRs("bez_afspraak_key").value;
         var bezoekers_key = oRs("bez_bezoekers_key").value;
         var this_bez = bez.func_enabled_afspraak(afspr_key);
         // only eligible appointments
         if (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: bezoekers_key, srtnotificatie: 'BEZBAD'});
            else
               FCLT2XMLResponse({xmlnode: 'bezoeker', key: bezoekers_key});
         }
         oRs.MoveNext();
      }
   }
   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});
   }
%>
<% ASPPAGE_END(); %>
