admin/Facilitor
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FSN#37228 licentieinfo transparant maken: een About

Browse Source 
svn path=/Website/trunk/; revision=30119
This commit is contained in:
Peter Feij
2016-07-25 12:37:00 +00:00
parent 5cde058d99
commit d61d7e7b3a
1 changed files with 22 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
APPL/FAC/about.asp
View File

@@ -18,8 +18,7 @@ var autfunction = "WEB_PRSSYS";
var authparams = user.checkAutorisation(autfunction);
%>
<html>
<head>
<%
<head><%
FCLTHeader.Title(L("lcl_facilitor_appl")+" "+L("lcl_about"));
FCLTHeader.Generate(); %>
</head>
@@ -52,14 +51,15 @@ FCLTHeader.Generate(); %>
+ "recent_login"
+ " FROM fac_v_lcrap_fe_vs_key";
// yields only one record
// timeconsuming, so display a message --todo
oRs = Oracle.Execute(sql);
BLOCK_START("aboutInfo", L("lcl_facilitor_appl")+' '+facilitorversion+' '+oRs("tijdstip").value);
// users
ROFIELDTR("fld", L("lcl_key_users"), L("lcl_usrs_licensed")+": "+licensed_key_users+" \n"+ L("lcl_usrs_actual")+": "+ oRs("key_users").value + (oRs("key_users").value>licensed_key_users ? " \n"+L("lcl_keyactualexceedslicensed").format(oRs("key_users").value-licensed_key_users) : ""));
ROFIELDTR("fld", L("lcl_fe_users"), L("lcl_usrs_licensed")+": "+licensed_fe_users+" \n"+ L("lcl_usrs_actual")+": " + oRs("fe_users").value + (oRs("fe_users").value>licensed_fe_users ? " \n"+L("lcl_feactualexceedslicensed").format(oRs("fe_users").value-licensed_fe_users): ""));
ROFIELDTR("fld", L("lcl_key_users"), L("lcl_usrs_licensed")+": "+licensed_key_users+" \n"+ L("lcl_usrs_actual")+": "+ oRs("key_users").value
+ (oRs("key_users").value>licensed_key_users ? " \n"+L("lcl_keyactualexceedslicensed").format(oRs("key_users").value-licensed_key_users) : ""));
ROFIELDTR("fld", L("lcl_fe_users"), L("lcl_usrs_licensed")+": "+licensed_fe_users+" \n"+ L("lcl_usrs_actual")+": " + oRs("fe_users").value
+ (oRs("fe_users").value>licensed_fe_users ? " \n"+L("lcl_feactualexceedslicensed").format(oRs("fe_users").value-licensed_fe_users): ""));
oRs.Close();
// an approximation of the modules used.
@@ -70,29 +70,37 @@ FCLTHeader.Generate(); %>
+ " WHERE gr.fac_functie_key = f.fac_functie_key"
+ " AND (fac_gebruiker_alg_level_write < 9 OR fac_gebruiker_prs_level_write < 9)"
+ " AND f.fac_functie_module = m.fac_module_name"
// + " AND DECODE (f.fac_functie_code, 'WEB_UDRMAN', 'UDR', f.fac_functie_module) = m.fac_module_name"
+ " AND f.fac_functie_module NOT IN ('FAC', 'FAQ')"
+ " AND f.fac_functie_module NOT IN ('FAC', 'FAQ', 'UDR')"
+ " AND NOT EXISTS"
+ " (SELECT ''"
+ " FROM fac_groeprechten gr1, fac_functie f1"
+ " WHERE gr1.fac_functie_key = f1.fac_functie_key"
+ " AND f1.fac_functie_code IN ('WEB_FACFAC', 'WEB_PRSSYS')"
+ " AND gr1.fac_groep_key = gr.fac_groep_key)"
+ " GROUP BY fac_module_name, m.fac_module_remark"
+ " HAVING COUNT (fac_groep_key) > 2"
+ " UNION ALL"
+ " UNION"
+ " SELECT m.fac_module_remark, fac_module_name, 1"
+ " FROM fac_module m"
+ " WHERE fac.getsetting ('faq_enabled') = 1 AND m.fac_module_name = 'FAQ' "
+ " UNION ALL"
+ " UNION"
+ " SELECT m.fac_module_remark, fac_module_name, 1"
+ " FROM fac_module m"
+ " WHERE fac.getsetting ('fac_usrrap_mode') = 1 AND m.fac_module_name = 'UDR' "
+ " UNION"
+ " SELECT m.fac_module_remark, fac_module_name, 1"
+ " FROM fac_module m"
+ " WHERE fac.getsetting ('mobile_enabled') = 1 AND m.fac_module_name = 'PDA' "
+ " ORDER BY 1";
oRs = Oracle.Execute(sql);
first = true;
var i = 1;;
while (!oRs.eof) {
ROFIELDTR("fld", (first ? L("lcl_modules_inuse") : ""), oRs("fac_module_remark").value + " [" + oRs("fac_module_name").value + "]");
first = false;
ROFIELDTR("fld", (i==1 ? L("lcl_modules_inuse") : ""), i + ". " + oRs("fac_module_remark").value + " [" + oRs("fac_module_name").value + "]");
i += 1;
oRs.moveNext();
}
oRs.Close();
BLOCK_END();
BLOCK_END();
%>
<p class="aboutfooter"><%=L("lcl_about_footer")%></p>