<%@ language = "JavaScript" %>
<% /*
$Revision$
$Id$
File: pda/setlocation.asp
Sets or lets the user select a current and global location
Status: 90%
Context:
vanaf smartphone-portal of direct via een QRC of andere plaatsbepalende service
Parameters:
alg_key of loc_key of bld_key of flr_key
*/
%>
<%
// Als ik een alg_key krijg, is dat altijd van level S("mobile_alg_level")
var alg_key = getFParamInt("alg_key", -1);
// Deze zouden door andere systemen of mechanismes gebruikt kunnen worden FOR FUTURE USE
var loc_key = getFParamInt("loc_key", -1);
var bld_key = getFParamInt("bld_key", -1);
var flr_key = getFParamInt("flr_key", -1);
var qrc = getQParamInt("qrc", 0) != 0;
// Met meegegeven waarden ben ik aan het submitten: zet de gedetailleerdste waarde
if (flr_key > -1) {
mobile.iamhere("V", flr_key);
} else if (bld_key > -1) {
mobile.iamhere("G", bld_key);
} else if (loc_key > -1) {
mobile.iamhere("L", loc_key);
} else if (alg_key > -1) {
mobile.iamhere(S("mobile_alg_level"), alg_key);
}
if (flr_key > -1 || bld_key > -1 || loc_key > -1 || alg_key > -1) {
// Gezet, terug naar portal, wellicht nog parameter om niks te doen (QRC)
// Dit lijkt niet helemaal lekker te gaan zo (na langer rondklikken)
Response.Redirect(rooturl + "/appl/pda/Facilitor.asp");
}
// Kies heel ruim waar je autorisatie op hebt
// Let op dat je hier alleen autorisaties met plaats-component toevoegt (fac_functie_minlevel & 8)
var sql = "SELECT COALESCE(MIN(fac_gebruiker_alg_level_read), 9) readlevel"
+ " FROM fac_v_webgebruiker g, fac_functie f "
+ " WHERE g.fac_functie_key = f.fac_functie_key "
+ " AND f.fac_functie_code IN ('WEB_MLDUSE', 'WEB_INSMAN', 'WEB_INSUSE', 'WEB_ALGMAN', 'WEB_ALGUSE', 'WEB_MLDBO2', 'WEB_ORDBO2', 'WEB_MLDBOF', 'WEB_BEZUSE', 'WEB_RESUSE', 'WEB_MLDUSE')"
+ " AND g.prs_perslid_key = " + user_key;
var oRs = Oracle.Execute(sql);
var autlevel = oRs("readlevel").Value; // Pas op: kan ook '0' zijn (regio)
oRs.Close();
// Als keys meegegeven, dan globallocation zetten op die key en refresh naar Facilitor.asp (die toont de locatie)
// Als geen keys meegegeven, dan plaatsselector met default de huidige globallocation om aan te laten passen
%>
<% FCLTMHeader.Generate({title: L("lcl_mobile_setlocation")}); %>
<%
PAGE_START();
HEADER ({back: !qrc});
CONTENT_START();
%>
<%
CONTENT_END();
FOOTER();
PAGE_END();
%>