65 lines
2.0 KiB
Plaintext
65 lines
2.0 KiB
Plaintext
<%@ 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);
|
|
%>
|