From 69f8925636e89f9803490f3407380879eb0549e6 Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 18 Nov 2009 12:45:34 +0000
Subject: fixed playlist creation bug: absolute path instead of just the
 filename was written to Playlist.Filename

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1948 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/base/UPlaylist.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/base/UPlaylist.pas b/src/base/UPlaylist.pas
index 03ae2ffb..188b02a6 100644
--- a/src/base/UPlaylist.pas
+++ b/src/base/UPlaylist.pas
@@ -350,7 +350,7 @@ begin
     Inc(I);
     PlaylistFile := PlaylistPath.Append(Name + InttoStr(I) + '.upl');
   end;
-  Playlists[Result].Filename := PlaylistFile;
+  Playlists[Result].Filename := PlaylistFile.GetName;
 
   //Save new Playlist
   SavePlayList(Result);
-- 
cgit v1.2.3