← Back to branch summary

~mortenoh/+junk/dhis2-detailed-import-export

« back to all changes in this revision

Viewing changes to dhis-2/dhis-web/dhis-web-maintenance/dhis-web-maintenance-dataset/src/main/webapp/dhis-web-maintenance-dataset/javascript/FCK/editor/filemanager/browser/default/connectors/asp/util.asp

  • Committer: larshelge at gmail
  • Date: 2009-03-03 16:46:36 UTC
  • Revision ID: larshelge@gmail.com-20090303164636-2sjlrquo7ib1gf7r
Initial check-in

Show diffs side-by-side

added added

removed removed

Lines of Context:
dhis-2/dhis-web/dhis-web-maintenance/dhis-web-maintenance-dataset/src/main/webapp/dhis-web-maintenance-dataset/javascript/FCK/editor/filemanager/browser/default/connectors/asp/util.asp
 
1
<!--
 
2
 * FCKeditor - The text editor for Internet - http://www.fckeditor.net
 
3
 * Copyright (C) 2003-2007 Frederico Caldeira Knabben
 
4
 *
 
5
 * == BEGIN LICENSE ==
 
6
 *
 
7
 * Licensed under the terms of any of the following licenses at your
 
8
 * choice:
 
9
 *
 
10
 *  - GNU General Public License Version 2 or later (the "GPL")
 
11
 *    http://www.gnu.org/licenses/gpl.html
 
12
 *
 
13
 *  - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
 
14
 *    http://www.gnu.org/licenses/lgpl.html
 
15
 *
 
16
 *  - Mozilla Public License Version 1.1 or later (the "MPL")
 
17
 *    http://www.mozilla.org/MPL/MPL-1.1.html
 
18
 *
 
19
 * == END LICENSE ==
 
20
 *
 
21
 * This file include generic functions used by the ASP Connector.
 
22
-->
 
23
<%
 
24
Function RemoveFromStart( sourceString, charToRemove )
 
25
        Dim oRegex
 
26
        Set oRegex = New RegExp
 
27
        oRegex.Pattern = "^" & charToRemove & "+"
 
28
 
 
29
        RemoveFromStart = oRegex.Replace( sourceString, "" )
 
30
End Function
 
31
 
 
32
Function RemoveFromEnd( sourceString, charToRemove )
 
33
        Dim oRegex
 
34
        Set oRegex = New RegExp
 
35
        oRegex.Pattern = charToRemove & "+$"
 
36
 
 
37
        RemoveFromEnd = oRegex.Replace( sourceString, "" )
 
38
End Function
 
39
 
 
40
Function ConvertToXmlAttribute( value )
 
41
        ConvertToXmlAttribute = Replace( value, "&", "&amp;" )
 
42
End Function
 
43
 
 
44
Function InArray( value, sourceArray )
 
45
        Dim i
 
46
        For i = 0 to UBound( sourceArray )
 
47
                If sourceArray(i) = value Then
 
48
                        InArray = True
 
49
                        Exit Function
 
50
                End If
 
51
        Next
 
52
        InArray = False
 
53
End Function
 
54
 
 
55
%>
 
 
b'\\ No newline at end of file'