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

ASDL#37188 Logboek NS: Mogelijkheid om meerdere foto's tergelijk opsturen

Browse Source 
svn path=/Website/trunk/; revision=30621
This commit is contained in:
Erik Groener
2016-09-07 14:28:01 +00:00
parent e17fde8b6f
commit 6275a41384
2 changed files with 4 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
APPL/Shared/FlexFiles.inc
View File

@@ -195,10 +195,6 @@ function flexProps(pModule, pKey, pSubpath, pNiveau, params)
result.multi = true; result.multi = true;
result.regexp = S("bes_photo_size"); result.regexp = S("bes_photo_size");
result.directlink = true; 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; break;
case "INSPH": case "INSPH":
// Bestanden zijn te vinden op ...cust/x/photos/ins // Bestanden zijn te vinden op ...cust/x/photos/ins
@@ -209,10 +205,6 @@ function flexProps(pModule, pKey, pSubpath, pNiveau, params)
result.multi = true; result.multi = true;
result.regexp = S("ins_photo_size"); result.regexp = S("ins_photo_size");
result.directlink = true; 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; break;
case "MLDS": // Stdmelding symbolen case "MLDS": // Stdmelding symbolen
result.AttachRootPath = Server.MapPath(S("mlds_image_path")); result.AttachRootPath = Server.MapPath(S("mlds_image_path"));

6
APPL/Shared/UploadForm_save.asp
View File

@@ -88,7 +88,7 @@ function jslog(str) // VB Vindt de twee underscores niet leuk
{ {
msg = L("lcl_shared_file_ext_not_allowed"); msg = L("lcl_shared_file_ext_not_allowed");
} }
return " (" + filename +": " + msg + ")"; return (msg ? " (" + filename +": " + msg + ")" : "");
} }
var VB_result = VB_getfiles(); 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 '' 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 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 jslog "-->Ios: " & var_filename
End If End If