From d36fb79a6e0914a43fe9381c32dfdc4639e9a19e Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 18 Nov 2009 12:52:07 +0000
Subject: fixed new created playlist contents songs from old one items were not
 cleared on playlist creation

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

(limited to 'src/base')

diff --git a/src/base/UPlaylist.pas b/src/base/UPlaylist.pas
index 188b02a6..f12e06cf 100644
--- a/src/base/UPlaylist.pas
+++ b/src/base/UPlaylist.pas
@@ -343,6 +343,9 @@ begin
   end;
   Playlists[Result].Name := Name;
 
+  // clear playlist items
+  SetLength(Playlists[Result].Items, 0);
+
   I := 1;
   PlaylistFile := PlaylistPath.Append(Name + '.upl');
   while (PlaylistFile.Exists) do
-- 
cgit v1.2.3