PROR#78930 Revert 2023.1

svn path=/Website/branches/v2023.1/; revision=61014

APPL/API2/model_prs_perslid.inc

@@ -137,6 +137,7 @@ function model_prs_perslid(params)
             "dbs": "prs_perslid_externoslogin",
             "label": L("prs_perslid_externoslogin"),
             "typ": "varchar",
+            "len": 30,
             "filter": "exact",
             "caseinsensitive": true
         },

APPL/API2/plugins/scimusers.wsc

@@ -270,7 +270,7 @@ FCLT.DEZE.__Log(data);
 
     var person = {};
     assign(person, "login", data, "userName");
-    assign(person, "externallogin", data, "userName");
+    assign(person, "externallogin", data, "userName"); // SCIM only, not uppercased to prevent update war
     assign(person, "externalid", data, "externalId");
     if ("name" in data)
     {
@@ -336,6 +336,10 @@ FCLT.DEZE.__Log(data);
                 var bedrijf_key = oRs("prs_bedrijf_key").Value;
                 oRs.Close()
             }
+            else
+            {   // TODO: Kunnen we een default verzinnen?
+                FCLT.DEZE.api2.error(400, "Missing organization for department");
+            }
 
             var depoms = get_element(enterprise["department"]);
              // Als de department (prs_afdeling) nog niet bestaat gaan we deze aanmaken.
@@ -432,7 +436,7 @@ function transform_one_person(params, person)
     var unique = FCLT.DEZE.customerId + "_person_" + String(person.id);
 
     var oneuser = {
-           "userName":person.externallogin || person.login,
+           "userName":person.externallogin || person.login, // externallogin is SCIM only, not uppercased to prevent update war
            "id":unique,
            "name":{
               "formatted":person.name,

APPL/BEZ/bez_edit_afspraak.asp

@@ -74,7 +74,7 @@ if (afspr_key < 0)
     var mld_key = mld_opdr.mld_key;
     var mld_info = mld.mld_melding_info(mld_key);
 
-    var this_opdr = mld.func_enabled_mld(mld_info.disc, "D"); // wat mag ik zoal op de melding en opdracht.
+    var this_opdr = mld.func_enabled_mld(mld_info.disc_key, "D"); // wat mag ik zoal op de melding en opdracht.
 
     // Afspraken toevoegen aan de opdracht. Dan heb ik ORDBOF write rechten nodig.
     user.auth_required_or_abort(this_opdr.canORDBOFwrite);

APPL/CARE/custfunctions.wsc

@@ -239,7 +239,8 @@ fclt_calc_dist_from_google = function (p_prs_perslid_key, p_mld_opdr_uren_datum,
                 var cached_OracleDistance = Get_Cached_OracleDistance(v_db_url_google, care_km_cache_days);
                 var l_afst = cached_OracleDistance.dagkosten;
                 var l_afstinter = cached_OracleDistance.inter_afstand;
-                if (l_afst == -1 || l_afstinter == -1)
+                // BONS#78434: 0 km gecached maar wel meerdere clienten is verdacht ==> opnieuw berekenen
+                if (l_afst == -1 || l_afstinter == -1 || (l_afstinter == 0 && p_adresARR.length > 1))
                 {
                     // Er is geen cache km in DB gevonden, laat Google maar eens rekenen...
 
@@ -257,8 +258,10 @@ fclt_calc_dist_from_google = function (p_prs_perslid_key, p_mld_opdr_uren_datum,
                         __Log ("Google-afstand interclient:" + l_afstinter + " meter");
                     }
                 }
-                if (p_adresARR.length < 2)
+                else if (p_adresARR.length < 2)
+                {
                     l_afstinter = 0; // is in het verleden wel eens foutief gecached
+                }
 
                 var l_route = l_huis + " - " + v_url_google_route + " - " + l_huis;
 

APPL/MARX/API_mareon_opdracht.asp

@@ -176,6 +176,7 @@ function marx_upload_bijlages (p_mld_opdr_key, p_xml, p_root_nodenaam, p_filenaa
                 if (l_temp_node){
                   l_bijlage_ext= node_media_type[0].childNodes[0].nodeValue;
                   __Log("p_filetype_nodenaam[" + i + "] : " + l_bijlage_ext);
+                  l_bestandsnaam = l_bestandsnaam + "." + l_bijlage_ext;
                 }
             }
             
@@ -193,8 +194,7 @@ function marx_upload_bijlages (p_mld_opdr_key, p_xml, p_root_nodenaam, p_filenaa
             
             
             // We staan een maximum aantal bijlages per opdracht toe.
-            if (i <= p_max_uploads && l_bijlage_base64 && l_bestandsnaam && l_bijlage_ext){
-                l_bestandsnaam = l_bestandsnaam + "." + l_bijlage_ext;
+            if (i <= p_max_uploads && l_bijlage_base64 && l_bestandsnaam){
                 __Log("l_bestandsnaam[" + i + "] : " + l_bestandsnaam);
                 api_F_PutOpdr_Bijlage(l_mld_opdr_key, l_bestandsnaam, l_bijlage_base64, l_kenmerk_key);
             }

APPL/PDA/afspraak.asp

@@ -584,7 +584,6 @@ var subject = (isReservering
       <form name="afspraak" id="afspraak" action="../bez/bez_edit_afspraak_save.asp?urole=fe&mobile=1&afspr_key=<%=afs_key%>" method="post" onsubmit="return false;">
         <input type="hidden" name="person"        value="<%=bez_afspraak_contact_key%>">
         <input type="hidden" name="personH"       value="<%=(bez_afspraak_host? safe.htmlattr(bez_afspraak_host) : bez_afspraak_host_key)%>">
-        <input type="hidden" name="phone"         value="<%=safe.htmlattr(bez_afspraak_tel)%>">
         <input type="hidden" name="regiokey"      value="-1">
         <input type="hidden" name="districtkey"   value="-1">
         <input type="hidden" name="next_vis"      value="<%=1 + bez_bezoekers.length%>">
@@ -695,9 +694,22 @@ var subject = (isReservering
           ROFIELD("fld", L("lcl_room"), (isReservering ? rsv.ruimtenr : bez_afspraak_ruimte), {suppressEmpty: true});
         }
 
+        var verplicht = (S("vis_afspraak_tel_required") & 1) == 1;
+        var vullen    = (S("vis_afspraak_tel_required") & 2) == 0;
+        if (afs_key == -1 && (verplicht || vullen))
+        {
+          RWFIELD("phone", L("lcl_phone"), ((vullen || afs_key > 0) ? bez_afspraak_tel : ""), {type: "tel", html: "maxlength=15", pclass: (verplicht?" required":"") })
+        }
+        else
+        {
+%>
+          <input type="hidden" name="phone"         value="<%=safe.htmlattr(bez_afspraak_tel)%>">
+<%
+        }
+
         if (!isReservering)
         {
-            sql = bez.bez_getacties([locatie_key], [gebouw_key], true).sql;
+            sql = bez.bez_getacties([locatie_key], (gebouw_key > 0 ? [gebouw_key] : []), true).sql;
             FCLTselector("actie",
                          sql,
                          { label: L("lcl_action"),

APPL/Shared/Shared.inc

@@ -64,6 +64,7 @@ function fclt_daily()
     // Het liefst zou ik gewoon de *hele* custfolder beschermen maar er staan wel eens
     // (menu)image bestanden die via http worden benaderd.
     setWebconfig(Server.MapPath(custpath + "/Export"));
+    setWebconfig(Server.MapPath(custpath + "/Exchange"));
     setWebconfig(Server.MapPath(custpath + "/Import"));
     setWebconfig(Server.MapPath(custpath + "/Plugins"));
     setWebconfig(Server.MapPath(custpath + "/Tasks"));

APPL/Shared/default.inc

@@ -8,7 +8,7 @@
     Context:     Vanuit ELK asp bestand
 */
 
-var FCLTVersion="2023.1b";
+var FCLTVersion="2023.1c";
 var FCLTMinDatabaseSchema="44"; // Alleen de cijfers
 
 var custpath = rooturl + "/cust/" + customerId;  // path to customer files

UTILS/PutOrders/puo_sendsoap.js

@@ -66,6 +66,13 @@ function submitDOMXSLSOAP( p_connect
         params.headers["SOAPAction"] = p_bedrijfadres.soapaction;
     }
 
+    puo_hook.callhook("pre_soap_http", { p_connect: p_connect,
+                                         params: params,
+                                         XMLpayloadDoc: XMLpayloadDoc,
+                                         XMLpayloadNode: XMLpayloadNode,
+                                         XMLenvelope: XMLenvelope,
+                                         p_textstream: p_textstream });
+
     var XMLhttp = doHTTP(p_connect.CurrentAddress, params);
     // Bij status buiten de 200 range is er al een exception geweest
     LogString2File(2, "SOAP response", XMLhttp.responseText, "xml");

UTILS/gen_export/gen_export.wsf

@@ -133,7 +133,7 @@
     {
         var txt = "Scheduled export {0} error: {1}".format(export_app_id, e.description);
         __Log(txt, { severity: "E" });
-        var sql = "BEGIN fac.putsystemnotification('{0}', 3); END;".format(safe.quoted_sql(txt)); // 3=portal+email
+        var sql = "BEGIN fac.putsystemnotification({0}, 3); END;".format(safe.quoted_sql(txt)); // 3=portal+email
         Oracle.Execute(sql); // hopen dat dit wel lukt
     }
     __Log("End gen_export.wsf");