diff --git a/APPL/Shared/FlexFiles.inc b/APPL/Shared/FlexFiles.inc index cd790cc25a..06967749a6 100644 --- a/APPL/Shared/FlexFiles.inc +++ b/APPL/Shared/FlexFiles.inc @@ -195,10 +195,6 @@ function flexProps(pModule, pKey, pSubpath, pNiveau, params) result.multi = true; result.regexp = S("bes_photo_size"); result.directlink = true; - result.trackcode = "BESUPD"; - var kenmerk_geg = bepaalKenmerkGegevens(pModule, pSubpath); - result.kenmerkoms = kenmerk_geg.kenmerk_omschrijving; - result.kenmerktype = kenmerk_geg.kenmerk_type; break; case "INSPH": // Bestanden zijn te vinden op ...cust/x/photos/ins @@ -209,10 +205,6 @@ function flexProps(pModule, pKey, pSubpath, pNiveau, params) result.multi = true; result.regexp = S("ins_photo_size"); result.directlink = true; - result.trackcode = "INSUPD"; - var kenmerk_geg = bepaalKenmerkGegevens(pModule, pSubpath); - result.kenmerkoms = kenmerk_geg.kenmerk_omschrijving; - result.kenmerktype = kenmerk_geg.kenmerk_type; break; case "MLDS": // Stdmelding symbolen result.AttachRootPath = Server.MapPath(S("mlds_image_path")); diff --git a/APPL/Shared/UploadForm_save.asp b/APPL/Shared/UploadForm_save.asp index f1dd8d4cfd..24ee704535 100644 --- a/APPL/Shared/UploadForm_save.asp +++ b/APPL/Shared/UploadForm_save.asp @@ -88,7 +88,7 @@ function jslog(str) // VB Vindt de twee underscores niet leuk { msg = L("lcl_shared_file_ext_not_allowed"); } - return " (" + filename +": " + msg + ")"; + return (msg ? " (" + filename +": " + msg + ")" : ""); } var VB_result = VB_getfiles(); @@ -363,7 +363,9 @@ Public Function VB_getfiles() '' iPad/IPhone uploaden directe foto altijd als 'Image.jpg' wat erg lastig is If LCase(var_filename) = "image.jpg" Or LCase(var_filename) = "image.jpeg" Then - var_filename = "Image " + iso8601Date(Now) + ".jpg" + ' Bij gelijktijdig uploaden van bestanden is een timestamp op seconde niet toereikend. + ' We doen de teller er ook nog maar bij. + var_filename = "Image_" & iso8601Date(Now) & "_" & i & ".jpg" jslog "-->Ios: " & var_filename End If