MPL theme fallback

This commit is contained in:
mysticbbs 2012-07-24 04:06:43 -04:00
parent 0ff545900f
commit e740571ada
1 changed files with 5 additions and 1 deletions

View File

@ -2319,7 +2319,11 @@ Begin
If Pos('.', FN) = 0 Then FN := FN + mplExtExecute;
If Pos(PathChar, FN) = 0 Then
FN := Config.ScriptPath + FN;
If FileExist(Session.Theme.ScriptPath + FN) Then
FN := Session.Theme.ScriptPath + FN
Else
If Session.Theme.Flags and thmFallBack <> 0 Then
FN := Config.ScriptPath + FN;
MPEName := FN;