UWVA#38639 Ook bijlagen meemailen met opdrachten (en reserveringen) als FO(/BO)

svn path=/Website/trunk/; revision=33627

APPL/MLD/mld_show_opdr.asp

@@ -201,7 +201,9 @@ var urlMail = "../shared/queuemail.asp?pcode=ORDMAI&defemail_key=" + defemail_ke
             + "&defemail_type=" + defemail_type
             + "&key=" + opdr_key
             + "&subject=" + Server.URLencode(subjectMail)
-            + "&mailfrom=" + (hasBOread? 1 : 0);
+            + "&mailfrom=" + (hasBOread? 1 : 0)
+            + "&pmodule=MLD"
+            + "&pniveau=O";
 
 var kosten_verplicht_afm = (mld_opdr.typeopdr_matchtype != 4 && (mld_opdr.typeopdr_kosten_verplicht & 2 || (mld_opdr.typeopdr_kosten_verplicht == 0 && mld_opdr.opdrkosten_verplicht & 2))? 1 : 0) == 1;
 var opdr_kosten = mld_opdr.t_cost;

APPL/Shared/queuemail.asp

@@ -5,12 +5,11 @@
 
     File:               shared/queuemail.asp
     Description:        Zet een e-mail notifatie in de queue. Die wordt later verstuurd
-                        door PutNotification.exe
+                        door het PutOrders notificatieproces
     Parameters:         defemail_key met key van de user waar de mail naar toe moet
                         defemail (rechtstreeks het e-mail adres)
     Context:
-    Note:
-
+    Note:               Bij meldingen, opdrachten en reserveringen kunnen ook bijlagen worden meegestuurd.
 
 */ %>
 
@@ -50,8 +49,8 @@ switch (pmodule)
 {
   case "RES": iamfo = xfunc.canWrite("WEB_RESFOF"); break;
   case "MLD": iamfo = xfunc.canWrite("WEB_MLDFOF"); iambo = xfunc.canWrite("WEB_MLDBOF"); break;
-  case "BES": iamfo = xfunc.canWrite("WEB_BESFOF"); break;
-  case "PRS": iamfo = xfunc.canWrite("WEB_PRSSYS"); break;
+  case "BES": iamfo = xfunc.canWrite("WEB_BESFOF"); break;  /* unsupported yet */
+  case "PRS": iamfo = xfunc.canWrite("WEB_PRSSYS"); break;  /* unsupported yet */
 }
 
 function bestandenlijst(pmodule, pniveau, pkey)
@@ -59,7 +58,7 @@ function bestandenlijst(pmodule, pniveau, pkey)
     var bestandlijst = [];
     if (pmodule && pniveau)
     {
-        var vSubfolder = pmodule + "/" + subfolderKey(pniveau, pkey);
+        var vSubfolder = pmodule + "/" + subfolderKey(pniveau, (pmodule == "RES" ? xkey : pkey));  /* reserveringsbijlagen onder de deelreservering xkey */
         var vAttachPath = S("flexFilesPath")+ "/" + vSubfolder;
 
         var fso = new ActiveXObject("Scripting.FileSystemObject");
@@ -87,11 +86,11 @@ function bestandenlijst(pmodule, pniveau, pkey)
     return bestandlijst;
 }
 
-// Bij MLD worden ook de bestanden van de 'parents' aangeboden
+// Bij MLD-meldingen worden ook de bestanden van de 'parents' aangeboden
 function bestandenlijstALL(pmodule, pniveau, pkey)
 {
     var bestandlijst = bestandenlijst(pmodule, pniveau, pkey);
-    if (pmodule == "MLD")
+    if (pmodule == "MLD" && pniveau == "M")
     {
         var sk = pkey;
         var mk = pkey;

APPL/Shared/queuemail_save.asp

@@ -117,7 +117,7 @@ function bestandenlijst(pmodule, pniveau, pkey)
     var bestandlijst = [];
     if (pmodule && pniveau)
     {
-        var vSubfolder = pmodule + "/" + subfolderKey(pniveau, pkey);
+        var vSubfolder = pmodule + "/" + subfolderKey(pniveau, (pmodule == "RES" ? xkey : pkey));
         var vAttachPath = S("flexFilesPath")+ "/" + vSubfolder;
 
         var fso = new ActiveXObject("Scripting.FileSystemObject");