1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
| Quintiq file version 2.0
| #parent: #root
| Method ValidateURL (String urlstring) as String id:Method_ApplicationLib3DSpace_ValidateURL
| {
| #keys: '[138112.0.855642411]'
| Body:
| [*
| success := true;
| returnstring := '';
| urlstring := urlstring.TrimBoth();
|
| try {
| url := URL::Construct( urlstring );
| urlstring := url.Full();
| } onerror {
| success := false;
| }
|
| if( success )
| {
| returnstring := urlstring;
| }
|
| return returnstring;
| *]
| }
|
|
