'Error in class DotNetNuke.Services.Localization.Localization;
  'from DotNetNuke Comunity 05.01.04

  ''' -----------------------------------------------------------------------------
  ''' <summary>
  ''' TryGetFromResourceFile is used to get the string from a specific resource file
  ''' </summary>
  ''' <remarks>This method searches a specific resource file for the key.</remarks>
  ''' <param name="key">The resource key</param>
  ''' <param name="resourceFile">The resource file to search</param>
  ''' <param name="portalID">The id of the portal</param>
  ''' <param name="resourceValue">The resulting resource value - returned by reference</param>
  ''' <param name="resourceType">An enumerated CustomizedLocale - Application - 0,
  ''' Host - 1, Portal - 2 - that identifies the file to search</param>
  ''' <returns>True if successful, false if not found</returns>
  ''' <history>
  '''   [cnurse]  01/30/2008  created
  ''' </history>
  ''' -----------------------------------------------------------------------------
  Private Shared Function TryGetFromResourceFile(ByVal key As String, ByVal resourceFile As String, ByVal portalID As Integer, ByVal resourceType As CustomizedLocale, ByRef resourceValue As String) As Boolean

    Dim virtualPath As String = ""
    virtualPath.Substring(


    Dim dicResources As Dictionary(Of String, String) = Nothing
    Dim bFound As Boolean = Null.NullBoolean

    Dim resourceFileName As String = resourceFile
    Select Case resourceType
      Case CustomizedLocale.Host
        resourceFileName = resourceFile.Replace(".resx", ".Host.resx")
      Case CustomizedLocale.Portal
        resourceFileName = resourceFile.Replace(".resx", ".Portal-" + portalID.ToString + ".resx")
    End Select

    If resourceFileName.ToLowerInvariant().StartsWith("desktopmodules") OrElse resourceFileName.ToLowerInvariant().StartsWith("admin") Then
      resourceFileName = "~/" + resourceFileName
    End If

    'Local resource files are either named ~/... or <ApplicationPath>/...
    'The following logic creates a cachekey of /....
    Dim cacheKey As String = resourceFileName.Replace("~/", "/").ToLowerInvariant()


    If Not String.IsNullOrEmpty(ApplicationPath) Then

      'ERROR!!! If a subdirectory or the beginning of the resource file matches ApplicationPath
      '-----------------------------------------------------------------------------------------
      'If ApplicationPath.ToLowerInvariant <> "/portals" Then
      '  cacheKey = cacheKey.Replace(ApplicationPath.ToLowerInvariant(), "")
      'Else
      '  cacheKey = "~" & cacheKey
      '  cacheKey = cacheKey.Replace("~" & ApplicationPath.ToLowerInvariant(), "")
      'End If
      '-----------------------------------------------------------------------------------------
      'Necessary:
      Dim virtualAppPath As String = ApplicationPath.ToLowerInvariant()
      If cacheKey.StartsWith(virtualAppPath) Then
        cacheKey = cacheKey.Substring(virtualAppPath.Length)
      End If
      '-----------------------------------------------------------------------------------------
    End If

    'Get resource file lookup to determine if the resource file even exists
    Dim resourceFileExistsLookup As Dictionary(Of String, Boolean) = GetResourceFileLookupDictionary()

    If (Not resourceFileExistsLookup.ContainsKey(cacheKey)) OrElse resourceFileExistsLookup(cacheKey) Then
      'File is not in lookup or its value is true so we know it exists
      dicResources = GetResourceFile(cacheKey)

      If dicResources IsNot Nothing Then
        bFound = dicResources.TryGetValue(key, resourceValue)
      End If
    End If

    Return bFound
  End Function