Subversion Repositories DevTools

Rev

Rev 3942 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3942 Rev 4021
Line 117... Line 117...
117 
   Private Function Extract( sField, sString )
 117 
   Private Function Extract( sField, sString )
118 
      Dim tempArr, tempSTR
 118 
      Dim tempArr, tempSTR
119 
 
 119 
 
120 
      tempArr = Split( sString, sSEPARATOR )
 120 
      tempArr = Split( sString, sSEPARATOR )
121 
      tempSTR = Join( Filter( tempArr, sField &"=" ) )   ' Append "=" to field name to get e.g. "user_name="
 121 
      tempSTR = Join( Filter( tempArr, sField &"=" ) )   ' Append "=" to field name to get e.g. "user_name="
122 
 
 - 
 
- 
 
 122 
      If tempSTR <> "" Then
123 
      Extract = Right( tempSTR, Len(tempSTR) - Len( sField &"=" ))   ' Strip the fieled name from value
 123 
        Extract = Right( tempSTR, Len(tempSTR) - Len( sField &"=" ))   ' Strip the fieled name from value
- 
 
 124 
      Else
- 
 
 125 
        Extract = ""
- 
 
 126 
      End If
124 
 
 127 
 
125 
   End Function
 128 
   End Function
126 
   '-----------------------------------------------------------------------------------------------------------------
 129 
   '-----------------------------------------------------------------------------------------------------------------
127 
   Private Function GetDataPermission ( sTableName, nRowId, nPermissionType )
 130 
   Private Function GetDataPermission ( sTableName, nRowId, nPermissionType )
128 
      Dim cPermissionValue
 131 
      Dim cPermissionValue