View Issue Details
| ID | Project | Category | View Status | Date Submitted | Last Update |
|---|---|---|---|---|---|
| 0006760 | MMW v4 | Framework: Scripts/Extensions | public | 2010-11-30 12:27 | 2010-11-30 12:28 |
| Reporter | zvezdan | Assigned To | |||
| Priority | normal | Severity | minor | Reproducibility | always |
| Status | new | Resolution | open | ||
| Summary | 0006760: ISDBArtist::Name is read-only property, althought it is stated as read/write; problem with ISDBSongData::ArtistName | ||||
| Description | Similar description to http://www.ventismedia.com/mantis/view.php?id=6759, only difference is that instead of Album here we have Artist. | ||||
| Steps To Reproduce | Option Explicit Sub OnStartup() Dim oMenuItem Set oMenuItem = SDB.UI.AddMenuItem(SDB.UI.Menu_Edit, 0, 0) oMenuItem.Caption = "Append ""blah-blah"" to SongData.ArtistName" oMenuItem.UseScript = Script.ScriptPath oMenuItem.OnClickFunc = "Append1" Set oMenuItem = SDB.UI.AddMenuItem(SDB.UI.Menu_Edit, 0, 0) oMenuItem.Caption = "Append ""blah-blah"" to SongData.Artist.Name" oMenuItem.UseScript = Script.ScriptPath oMenuItem.OnClickFunc = "Append2" End Sub Sub Append1(oItem) Dim oSongData If SDB.SelectedSongList.Count > 0 Then Set oSongData = SDB.SelectedSongList.Item(0) oSongData.ArtistName = oSongData.ArtistName & " (blah-blah)" oSongData.UpdateDB 'oSongData.UpdateAlbum oSongData.UpdateArtist End If End Sub Sub Append2(oItem) Dim oSongData Dim oArtist If SDB.SelectedSongList.Count > 0 Then Set oSongData = SDB.SelectedSongList.Item(0) Set oArtist = oSongData.Artist oArtist.Name = oArtist.Name & " (blah-blah)" oArtist.UpdateDB oSongData.UpdateDB 'oSongData.UpdateAlbum oSongData.UpdateArtist End If End Sub | ||||
| Tags | No tags attached. | ||||
| Fixed in build | |||||
| related to | 0006759 | new | ISDBAlbum::Name is read-only property, althought it is stated as read/write; problem with ISDBSongData::AlbumName |
