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

    File:           res_goto_extern.asp
    Description:    Spring naar een reservering bij een andere klant
    Parameters:     Maak daartoe bij die andere klant een user aaan
    Context:
    Note:

*/ %>
<%
//DOCTYPE_Disable = 1;
%>

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

<%
var res_disc_key = getQParamInt("res_disc_key");
var deepurl = getQParam("deepurl");

var autfunction = "WEB_RESUSE"; // altijd?

var sql = res.getremotes_sql(autfunction);
sql += "   AND res_ins_discipline_key = " + res_disc_key;

var oRs = Oracle.Execute(sql);
if (oRs.Eof)
    shared.simpel_page(L("lcl_no_auth"));

Session.Contents.Remove("has_no_remote_res"); // Dat weten we nu niet meer zeker

var remoteurl = oRs("res_disc_params_remoteurl").Value;

// Safety check
// In testomgevingen zet je dan bijvoorbeeld res_remoteurl_refuse in custenv.wsc
var unsafe = (S("res_remoteurl_refuse") && new RegExp(S("res_remoteurl_refuse")).test(remoteurl));

var params = { "request" : "update",
               "externId": customerId + "_" + String(user_key),
               "voornaam": user.prs_perslid_voornaam(),
               "achternaam": user.prs_perslid_achternaam(),
               "email": user.prs_perslid_email(),
               "telefoon": user.prs_perslid_telefoonnr(),
               "mobiel": user.prs_perslid_mobiel()
            }

var user_info = HTTP.getJSON(remoteurl + "&API=PRSSET", { data: params });

var resurl = deepurl + "&" + user_info.prs_auth;

if (unsafe)
{
    Response.Write("<h2>Je staat op het punt te gaan naar {0}<br>Dat is misschien niet direct wat je verwacht vanuit {1}</h2>(we zitten in een testomgeving)"
                        .format(remoteurl.split("?")[0], HTTP.urlzelf()));
    Response.Write("<p>Toch <a href='" + safe.htmlattr(resurl) + "'>doorgaan</a>?");
}
else
    Response.Redirect(resurl);
 %>
